VBAループのExcelブック内のすべてのシートのVlookupが機能していません

Question

ブック内の各シートで同じ機能（別のExcelブックのテーブルからVLookupを外して）を実行しようとしています。私はVBAスクリプトを構築しているが、ループは機能していない。 VLookupは、私が行っているシート上で動作しますが、残りのサイクルは繰り返されません。

スクリプト：

Sub loop_through_all_worksheets() 

    Dim ws As Worksheet 
    Dim starting_ws As Worksheet 
    Set starting_ws = ActiveSheet 

    For Each ws In ThisWorkbook.Worksheets 
     Range("AE2").Select 
     ActiveCell.FormulaR1C1 = "=VLOOKUP(RC[-1], [Vendor.xlsx]AP210!C1:C2,2,FALSE)" 
     Range("AE2").Select 
     Selection.AutoFill Destination:=Range("AE2:AE49") 
     Range("AE2:AE49").Select 
     Columns("AE:AE").Select 
     Selection.Copy 
     Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, _ 
           SkipBlanks:=False, Transpose:=False 

     starting_ws.Activate 
    Next 
End Sub 

注： 'Vendor.xlsxは' 第二のファイルであるルックアップテーブルです。

私はこれを私の独自のVLookupスクリプトを作成してループスクリプトに追加しました。

タブと、各タブの名前の数がvaiableある

ループが機能しない理由上の任意の入力？私は完全にこれを根拠にしていませんか？

は助けを

Answer 1

はブロックと.Selectと.Activate

使用を避け、ループオブジェクトと親ワークシートを設定し、事前に、ありがとうございます。

Sub loop_through_all_worksheets() 

    Dim ws As Worksheet 
    Dim starting_ws As Worksheet 
    Set starting_ws = ActiveSheet 

    For Each ws In ThisWorkbook.Worksheets 
     With ws.Range("AE2:AE49") 
      .FormulaR1C1 = "=VLOOKUP(RC[-1], [Vendor.xlsx]AP210!C1:C2,2,FALSE)" 
      .Value = .Value 
     End With   
    Next 
    starting_ws.Activate 
End Sub