パソコンに関するノウハウ備忘録

Excel　VBA　etc

数式の文字列一括置換

　　セルの文字列や数式の文字列を任意の文字列に置換する方法を紹介します。

■セルの文字列を置換する方法
　次の例は、会員名簿に入力されている趣味が
マイコンをパソコンに置き換えます。

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

↑頁トップへ