2つのExcelファイルを比較するスクリプトが動作しない

Question

2つのExcelファイルを比較するスクリプトを作成しています。

私は（ループのために何が、方法は遅くするように6450行の長さ）私が探してきた

を、私は2番目のブック内で検索したい参照を取得しないように最初のワークブック内のループのために使用しています

For i = 7 to numLines ''numLines is the number of used lines of the first workbook 

    If '''test to get out of the LOOP 
objExcel.Workbooks(Str1).Sheets(1).Range("D"&i)="" AND objExcel.Workbooks(Str1).Sheets(1).Range("H"&i)="" AND objExcel.Workbooks(Str1).Sheets(1).Range("L"&i)="" Then 

     i = numLines 

    Else '' here i get the reference (the 6 first digits of the first workbook and I try to find it in the second) 

     If objExcel.Workbooks(Str1).Sheets(1).Range("D"&i)<>"" Then 

      Reference = Mid(objExcel.Workbooks(Str1).Sheets(1).Range("D"&i),1,6) 

      Set table_lookup = objExcel.Workbooks(Str1).Sheets(1).Range("C1:C" & numLines2) 
      cell = objExcel.Workbooks(Str2).WorksheetFunction.vlookup(Reference, table_lookup, 0, False) 
      MsgBox cell.row 
      MsgBox cell.column 

     End If 

    End If 

Next 

Answer 1

あなたは「見つける」メソッドの代わりに、VBA

に動作していないようVLOOKUPに切り替えてください：VLOOKUPのものを使用するが、私はそれがここで動作させることができなかったいくつかの方法は、コードです

For i = 7 to numLines 
    If objExcel.Workbooks(Str1).Sheets(1).Range("D"&i)="" AND objExcel.Workbooks(Str1).Sheets(1).Range("H"&i)="" AND objExcel.Workbooks(Str1).Sheets(1).Range("L"&i)="" Then 
     i = numLines 
    Else 
     If objExcel.Workbooks(Str1).Sheets(1).Range("D"&i)<>"" Then 
      Reference = Mid(objExcel.Workbooks(Str1).Sheets(1).Range("D"&i),1,6) 
       Set r = objExcel.Workbooks(Str2).Sheets(1).Range("C1:C" & numLines2) 
      Set matched = r.Find(Reference) 
      If Not r.Find(Reference) Is Nothing Then 
       objExcel.Workbooks(Str1).Sheets(1).Range("R"&i).Value = matched.Offset(0,0).Value 
       objExcel.Workbooks(Str1).Sheets(1).Range("S"&i).Value = matched.Offset(0,1).Value 
       objExcel.Workbooks(Str1).Sheets(1).Range("T"&i).Value = matched.Offset(0,2).Value 
       objExcel.Workbooks(Str1).Sheets(1).Range("U"&i).Value = matched.Offset(0,3).Value 
       objExcel.Workbooks(Str1).Sheets(1).Range("V"&i).Value = matched.Offset(0,6).Value 
      End If    
     End If 
    End If 
Next