Macro in Excel 2010

Question

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   

Я хочу запустить макрос, который автоматически выполняет функцию vlookup в листе 2 против E-Code, которые являются уникальными полями.

Макрос, который я создал, как показано ниже. Однако, когда я меняю данные, он не работает.

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 

Answer 1

Я проверил ваш код. Он работает нормально. Однако, если вы увеличиваете количество строк, это не будет учитываться. Пожалуйста, найдите приведенный ниже код, который найдет число строк в Sheet1 и Sheet2.

Sub Macro1() 

    Dim sht1 As Worksheet 
    Dim sht2 As Worksheet 

    Set sht1 = ThisWorkbook.Sheets("Sheet1") 
    Set sht2 = ThisWorkbook.Sheets("sheet2") 

    Sh1Rows = sht1.Range("A" & Rows.Count).End(xlUp).Row 
    sh2rows = sht2.Range("A" & Rows.Count).End(xlUp).Row 

    sht2.Range("B2") = "=Vlookup(A2," & sht1.Name & "!" & sht1.Range("A2:B" & sh2rows).Address & ",2,false)" 
    sht2.Range("B2").Copy sht2.Range("B2:B" & sh2rows) 
End Sub