Excel VBAでvlookup関数を使った処理を作りたいです。VBAをどのように作成すればよいか、ご教示をお願いします。

画像

Excel84閲覧xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

1

1人がナイス!しています

ThanksImg質問者からのお礼コメント

ご丁寧にありがとうございました。大変、助かりました。

お礼日時:8/1 21:00

その他の回答(1件)

1

②Sheet1のF列(項目6)とSheet2のA列(項目1)と照合し、マッチした場合には、C列(項目C)の情報をSheet2のB列(納期)へ転記、マッチしない場合には、ブランクをSheet2のB列(納期)へ転記 要件がごちゃごちゃになってないですか? Sheet2とSheet3を比較して、Sheet3に転記では?

1人がナイス!しています

Sub aaa() Dim i Dim MaxRow1, MaxRow3 Dim S1, S2, S3 Set S1 = Worksheets("Sheet1") Set S2 = Worksheets("Sheet2") Set S3 = Worksheets("Sheet3") MaxRow1 = S1.Cells(Rows.Count, 6).End(xlUp).Row S1.Range("F2:F" & MaxRow1).Copy S3.Range("A1") On Error Resume Next MaxRow3 = S3.Cells(Rows.Count, 1).End(xlUp).Row