Sub Sample()
Dim i As Long
Dim row As Long
Dim start As Long '【(】の位置
Dim goal As Long ' 【)】の位置
row = Cells(Rows.Count, 1).End(xlUp).row
For i = 1 To row
'①:カッコと閉じカッコがある文字の位置をInStr関数で取得
start = InStr(Cells(i, 1).Text, "(") '【(】の位置を取得
goal = InStr(Cells(i, 1).Text, ")") '【)】の位置を取得
'②:カッコがない場合の処理
If start = 0 Or goal = 0 Then 'かっこがなかった場合は処理をしない
GoTo Skip
End If
'③:①で取得した位置の間の文字をMid関数で抜き出す
Cells(i, 2).Value = Mid(Cells(i, 1).Text, start + 1, goal - start - 1)
Skip: '
Next i
End Sub
コメントを残す