Sheet1のA列とSheet2のA列を比較置き換え

Sub A列が同じ場合置き換える()

Dim i As Long
For i = 1 To Worksheets("sheet2").Range("A1").End(xlDown).Row
Worksheets("sheet1").Range("A:A").Replace what:=Worksheets("sheet3").Cells(i, 1), replacement:=Worksheets("sheet2").Cells(i, 2)
Next

End Sub

※2行目から開始
※Sheet1 のA列最終行まで実行
※Sheet2 のA列に同じ文字が大量にあったり、置き換え後の文字がSheet2 A列にある場合は、何度も処理されてしまうので注意

 

Follow me!