  |
またおまえか
正規表現使えよ
とりあえずパンツは脱ぎました。その後どう表現すればいいんですか？
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...
17
