ここでは、ExcelのVBA・マクロで文字や値を完全一致で検索し置換する方法を紹介します。
ExcelのVBA・マクロで文字や値を完全一致で検索し置換するには、Replaceを使います。
＜サンプル＞
Sub test38()
‘表の書式設定
Range(“A1:C1”).Interior.Color = rgbYellow
Range(“A1:C1”).Font.Color = rgbRed
Range(“A1:C1”).HorizontalAlignment = xlCenter
Range(“A1:C7”).Borders.Weight = xlThin
Range(“A1:C7”).Font.Name = “Meiryo UI”
Range(“A1:C7”).Font.Size = 12
‘表のデータ
Range(“A1”).Value = “グループ”
Range(“B1”).Value = “名前”
Range(“C1”).Value = “点数”
Range(“A2”).Value = “A”
Range(“A3”).Value = “B”
Range(“A4”).Value = “C”
Range(“A5”).Value = “A”
Range(“A6”).Value = “B”
Range(“A7”).Value = “C”
Range(“B2”).Value = “高橋”
Range(“B3”).Value = “鈴木”
Range(“B4”).Value = “野村”
Range(“B5”).Value = “野村卓也”
Range(“B6”).Value = “野村匠”
Range(“B7”).Value = “野村”
Range(“C2”).Value = 100
Range(“C3”).Value = 80
Range(“C4”).Value = 60
Range(“C5”).Value = 50
Range(“C6”).Value = 30
Range(“C7”).Value = 10
‘文字を置換
Cells.Replace what:=”野村”, replacement:=”福田”, LookAt:=xlWhole
End Sub
「Cells.Replace what:=”野村”, replacement:=”福田”, LookAt:=xlWhole」で文字の置換をしています。
「what:=”野村”」で置換前の文字を、「replacement:=”福田”」で置換後の文字を指定しています。「 LookAt:=xlWhole」で完全一致を指定しています。LookAtはxlPartで部分一致となります。