別ブックの内容を参照して置換するVBAを教えてほしい。

Question

VBAでプログラミングしているのですが詰まってしまったので質問したいです。
Sub A（）
Cells.Replace what:="B",
replacement :="C"
End Sub

Excelのセルすべてを確認して、別ブックのセルの内容に合致するものがあったら
対応する値を代入するVBAを作成したいのですがどうしたらいいでしょうか。

別ブックは開いたままで実行したいです。

Answer 1

こんな感じでどうでしょうか。

Sub A()
    Dim mySheet As Worksheet
    Set mySheet = Activesheet
    Dim wb As Workbook, ws As Worksheet, rng As Range, c As Range
    
'    Set wb = Workbooks.Open("別ブック.xlsx")
    Set wb = Workbooks("別ブック.xlsx")
    Set ws = wb.Worksheets(1)
    Set rng = ws.UsedRange.Columns(1).Cells
    For Each c In rng
        mySheet.Cells.Replace what:=c.Value, replacement:=c.Offset(, 1).Value
    Next

End Sub