画像のC6:C15の数字部を抜取O6:O15に入れたいです
「C_A_」「±1」などは不要です
マクロを作ってボタンでワンプッシュで処理したかったのですがやり方がわからなかったため
ご指導のほどよろしくお願いします

「マクロで文字抽出って可能でしょうか?」の質問画像

A 回答 (1件)

以下のマクロを標準モジュールに登録してください。



Option Explicit
Public Sub 数字部抜取()
Dim row As Long
For row = 6 To 15
Cells(row, "O").Value = GetNumber(Cells(row, "C").Value)
Next
End Sub
Private Function GetNumber(ByVal str As String) As String
GetNumber = ""
Dim i As Long
Dim char As String
Dim flag As Boolean
For i = 1 To Len(str)
char = Mid(str, i, 1)
If InStr("0123456789", char) > 0 Then
flag = True
GetNumber = GetNumber & char
Else
If flag = True Then Exit Function
End If
Next
End Function
    • good
    • 0
この回答へのお礼

迅速な回答ありがとうございました
大変勉強になりました

お礼日時:2017/06/20 00:34

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人はこんなQ&Aも見ています


このQ&Aを見た人がよく見るQ&A

人気Q&Aランキング