FindメソッドをForで繰り返し行う場合に出るエラーの解消法

Question

たびたびお世話になります。
前回Findメソッドについて質問をさせていただきましたが今回はその拡張版です。
やりたいこと
Excel2016の使用するファイルはExcelファイルを2つの1つにはSheet１とSheetシート２があり、もう一つのファイルはSheet1のみです。
これらを用いて

①Sheet2の1列目に別のワークシートのF列にある番号をコピペします。
②Sheet2の1列目に張り付けられた番号をSheet１の1列目からFindメソッドにて探し出します。
③番号の一致したセルの1列目から８列目までの値を参照させます。
④同様の作業を10行目間まで繰り返します。

以上のことを行いたいです。

問題が出るのはFor内のFindメソッドでオブジェクトエラーが起こってしまいます。
かなり雑なコードですがよろしくお願いします。

Sub Test()
Call main　//標準モジュール内でSheet1をWs1、同様にWs2と定義し、それを呼び出す。
//①コピぺのコード
On Error Goto myError
   Windows("ExCExcelOut.csv").Activate
   Range("F1:F10").Select
   Selection.Copy
   Window("Test.xlsm").Activate
   Ws2.Range("A1").Select
   Selection.PasteSpecial Paste:=xlPasteFormulas

myError:
//もしコピペするものがない場合は途中で止める
If Ws2.Range("A2").Value = "" Then
   Exit Sub
End If

//ここからが問題のFindメソッドとForの合わせ技です。
Dim myrng As Range
 Set myrnge = Ws1.Range("A:A")
Dim i　As Long
For i = 1 to 10
  //問題の箇所↓
    If Not myrng.Find(Ws2.Cells(i,1).Value,LookAt := xlPart) Is Nothing Then
    Dim j As Long 
       For j = 1 to 8
         Ws2.Cells(i,j).Value = Ws1.Cells(myrnd.Find(Ws2.Cells(i,j).Value, LookAt 
         := xlPart).Row,j).Value
        Next j
    End If
Next i
  
End Sub()

Answer 1

Option Explicit

Sub testMain()
    Dim rngKeys As Range
    Dim rngList As Range
    Dim rngTarget As Range
    Dim rngResults As Range
    Dim c As Range
    Dim ix As Range
    
    If GetRange(rngKeys, rngList, rngResults) Then
        For Each c In rngkyes
            Set rngTarget = GetData(c.Text, rngList)
            If Not rngTarget Is Nothing Then
                ix = ix + 1
                rngResults.Rows(ix).Value = rngTarget.Value
            End If
        Next
    End If
End Sub

Function GetRange(ByRef rngKeys As Range, _
                  ByRef rngList As Range, _
                  ByRef rngResults As Range)
    On Error GoTo WayOut
    Set rngKeys = Workbooks("ExCExcelOut.csv").Sheets(1).Range("F1:F10")
    Set rngList = ThisWorkbook.Sheets(1).UsedRange
    Set rngResults = ThisWorkbook.Sheets(2).Range("A2:H2")

    GetRange = True
Exit Function

WayOut:
End Function

Function GetData(ByVal sKey As String, _
                 ByRef Rng As Range) As Range
    Dim c As Range
    
    With Rng.Columns(1)
        Set c = .Find(what:=sKey, _
                      after:=.Cells(.Cells.Count), _
                      LookIn:=xlValues, _
                      LookAt:=xlWhole)
        If c Is Nothing Then Exit Sub
    End With
    
    Set GetData = Intersect(Rng, c.EntireRow)
End Function

こういうことがやりたいんでしょうか？

あと、
同じセルを指定するのにFindメソッドを何回も実行するのは無駄です。
変数をうまく使いましょう。

Answer 2

とりあえず、

  //問題の箇所↓
    If Not myrng.Find(Ws2.Cells(i,1).Value,LookAt := xlPart) Is Nothing Then
    Dim j As Long 
       For j = 1 to 8
         Ws2.Cells(i,j).Value = Ws1.Cells(myrnd.Find(Ws2.Cells(i,j).Value, LookAt := xlPart).Row,j).Value
        Next j
    End If

xlPart (部分一致)を指定するのはLookInではなくLookAtでは? 2つめはLoolInとタイプミスもしているし。

Comments

[Apoll047]

おっしゃる通りでした。
タイプミスしていました。失礼いたしました。