またおまえか
正規表現使えよ
とりあえずパンツは脱ぎました。その後どう表現すればいいんですか?
Sub test() Dim gyo As Long For gyo = 1 To 100 '1行目から100行目までの場合 Range("E" & gyo).Value = Mid(Range("A" & gyo).Value, InStr(Range("A" & gyo).Value, "(") + 1, InStr(Ran...