Sheet 1
E-Code E-Name
11621 Hari
12205 Dass
11709 Boss
11913 Pass
11755 Test
Sheet 2
E-Code
11621
11709
11913
11755
12205
一意のフィールドである E コードに対して、シート 2 の vlookup 関数を自動的に実行するマクロを実行したいと考えています。
作成したマクロは以下の通りです。ただし、データを変更すると機能しません。
Sub Macro()
Sheets("Sheet2").Select
Range("B2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet1!C[-1]:C,2,0)"
Range("B2").Select
ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1],Sheet1!C1:C2,2,0)"
Range("B2").Select
Selection.Copy
Range("B3:B6").Select
ActiveSheet.Paste
Range("A1").Select
End Sub