VBA:Vlookupで別のブックのすべてのシートを検索範囲に設定する方法

Question

前提・実現したいこと
VBA:Vlookupで別のブックのすべてのシートを検索範囲に設定する方法

ここに質問の内容を詳しく書いてください。
（例）エクセルVBAでWorkbook("A.xlsm")のA列を検索値として、("B.xlsx")のA列に該当するものがあれば、（"A.xlsm")のL列を("B.xlsx")のQ列にコピーするマクロを作成中です。
実装中に以下のエラーメッセージが発生しました。

発生している問題・エラーメッセージ
オブジェクトが必要です。

エラーが出る該当のソースコード
Set SerchRange = ws.Range(ws.Cells(2, 1), ws.Cells(100001, 1))

Sub データ戻す用()
      
   Workbooks.Open ("B.xlsx")
   
   If ActiveSheet.FilterMode = True Then
        ActiveSheet.ShowAllData
      End If
                   
    Dim SerchKey  '検索値
    Dim SerchRange  '検索範囲
    Dim OutputRange  '出力範囲
    Dim i As Long
    Dim ws As Variant

  For Each ws In _
    Array("aa", "bb", "cc", "dd", "ee", "ff")
    Debug.Print ws
    
    Set SerchKey = Workbooks("A.xlsm").Worksheets(2).Range("A2:A100001")
    Set SerchRange = ws.Range(ws.Cells(2, 1), ws.Cells(100001, 1))
    Set OutputRange = Workbooks("A.xlsm").Worksheets(2).Range("L2:L100001")
     
    Application.ScreenUpdating = False
    
    For i = 1 To SerchKey.Rows.Count
        OutputRange(i, 1) = WorksheetFunction.VLookup(SerchKey(i, 1), SerchRange, 17, False)
    Next
     Next
    
    Application.ScreenUpdating = True

   End Sub

Answer 1

B.xlsxブックに "aa", "bb", "cc", "dd", "ee", "ff" という名前のシートがあるということですよね。

現状のコードだと ws には "aa" というような文字列が格納されてます。
エラー行のコードはを下記の意味になります。

'Set SerchRange = "aa".Range("aa".Cells(2, 1), "aa".Cells(100001, 1))'

当然エラーになりますね。文字列は Range とか cells は持ちませんので。

With Workbooks("B.xlsx").Worksheets(ws)
    Set SerchRange = .Range(.Cells(2, 1), .Cells(100001, 1))
End With

Answer 2

このコードにおいて ws はVariant（実質String）であってWorksheet型ではない、ということでは。

Sub データ戻す用()

    With Workbooks("A.xlsm").Worksheets(2)
        Dim k As Variant, o As Range, v As Variant
        k = .Range("A2:A100001").Value
        Set o = .Range("L2:L100001")
        v = o.Value
    End With
    
    With Workbooks.Open("B.xlsx")
        Dim n As Variant, w As Worksheet, s As Variant, i As Long
        For Each n In Array("aa", "bb", "cc", "dd", "ee", "ff")
            Set w = .Worksheets(n)
           'w.ShowAllData
            s = w.Range("A2:Q100001").Value
            
            For i = 1 To UBound(k, 1)
                v(i, 1) = WorksheetFunction.VLookup(k(i, 1), s, 17, False)
            Next i
        Next n
       '.Close False
    End With
    
    o.Value = v

End Sub