- Excel VBA 質問スレ Part34
260 ：デフォルトの名無しさん[]：2014/08/02(土) 16:48:17.89 ID:fbt+8TPU - >>259
Sub test()
Dim a As Range
For Each a In ActiveSheet.UsedRange
If InStr(a, "(〜)") > 0 Then
a = Left(a, InStr(a, "(〜)") - 1) & Right(a, Len(a) - InStr(a, "(〜)") - Len("(〜)") + 1)
End If
Next a
End Sub
|