セルの文字列や数式の文字列を任意の
文字列に置換する方法を紹介します。
■セルの文字列を置換する方法
次の例は、会員名簿に入力されている趣味が
マイコンをパソコンに置き換えます。
Sub Sample1()
Dim i As Long
For i = 2 To 1000
If Cells(i, 8) = "マイコン" Then
Cells(i, 8) = Replace(Cells(i, 8), "マイコン", "パソコン")
End If
Next i
End Sub
■セルに入力されている数式の文字列を置換する方法
次の例は、セル範囲("A1:Z30")に入力されている数式［=Shieet2!顧客ID1］の"顧客ID1"を
"顧客ID2"に置き換えます。
Sub Sample2()
Worksheets("顧客ID2").Select
Range("A1:Z30").Select
Selection.Replace What:="顧客ID1", Replacement:="顧客ID2"
Range("A1").Select
End Sub
■表内の不要な文字 例：’・ ’を一括除去する方法
次の例は、セル範囲("C3:D7")に入力されている数式’・ ’を除去します。
Sub Sample3()
Dim MsgRtn As Long
MsgRtn = MsgBox(Prompt:="表内の'・'を除去しますか？", _
If MsgRtn = vbNo Then Exit Sub
Range("C3:D7").Select
Selection.Replace What:="・", Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False
Range("K4").Select
MsgBox "除去に成功しました。"
End Sub
