シート１をシート２の記載してある言葉で置換したい

Question

起動しない

無し

該当のソースコード

Dim ws As Worksheet
Set ws = Worksheets("ピッキングリスト")
Set ii = Worksheets("12")

Dim I, Q, lRow, mRow As Long
Dim Moji As String

lRow = ws.Range("A:A").End(xlUp).Row 'A列の最終行を取得　置換先
mRow = ii.Range("B:B").End(xlUp).Row 'B列の最終行を取得　変更元　PI

For I = 1 To lRow 'A列の最終行まで繰り返す。

For Q = 1 To mRow 'N列の最終行まで繰り返す（勘定科目コード表）
With ws.Columns("A") 'A列を指定（置換対象）
.Replace What:=ws.Cells(Q, "B"), Replacement:=ws.Cells(Q, "C") '勘定科目コード⇒勘定科目へ置換　PI
End With
Next Q
Next I

Answer 1

'lRow =  ws.Range("A:A").End(xlUp).Row
 lRow =  ws.Range("A" & ws.Rows.Count).End(xlUp).Row

Answer 2

いまいちなにをしたいのかわかってませんが、
VLOOKUP関数を使うという話でしょうか。
この名前でぐぐると解説が出てくるので読んでみてください

Comments

[mikuto]

ピッキングリストのシート内のA列を
12のしーと内のB列ですので一致する文言を読み取りA列文言をC列の文言へ置換
こちらの動作を行いたいです