VBA - 実行時エラー「13」の行に値

Question

を転置しようとしたとき、私は私が転置しようとしている場合は、列Aの値が列Bに

存在しているかどうかを確認するために別のワークシートに2つの列を比較しようとしています比較のために辞書に格納すると、実行時エラー '13'が発生します。ここで

は、コードは次のとおりです。

Sub Compare() 

Dim rngA As Range, rngB As Range 
Dim dict As Object, rw As Range 
Dim a As Application, tmp As String 
Dim Row1Last As Long 
Dim Row2Last As Long 

Set a = Application 
Set dict = CreateObject("scripting.dictionary") 
Set sht1 = Worksheets("list_Facility_BOS") 
Set sht2 = Worksheets("List_Facility_PG") 


With Sheets("list_Facility_BOS") 
Row1Last = .Cells(Rows.Count, "G").End(xlUp).Row 
End With 

With Sheets("List_Facility_PG") 
Row2Last = .Cells(Rows.Count, "H").End(xlUp).Row 
End With 

Set rngA = sht1.Range("G2:G" & Row1Last) 
Set rngB = sht2.Range("H2:H" & Row2Last) 

For Each rw In rngA.Rows 
    dict.Add Join(a.Transpose(a.Transpose(rw.Value)), Chr(0)), rw.Row 
Next rw 

For Each rw In rngB.Rows 
    tmp = Join(a.Transpose(a.Transpose(rw.Value)), Chr(0)) 
    If dict.exists(tmp) Then 
    Else 
     rw.Cells(1).Interior.ColorIndex = 3 
    End If 
Next rw 

End Sub 

私は別のワークシート内の別の20kの行の列に対して20K行のレコードの列を比較しようとします。このコード行ではエラー '13'が発生しました。

私はVBAプログラミングに秀でています。申し訳ありませんが、わかりやすく説明できません。私のコードに間違いがある場合は、私に知らせてください。

Answer 1

関数の説明が何度も失われてしまいました。 これは私が考えているオリジナルですfastest-way-to-find-a-row-in-excel-range-using-excel-macro-vba

はあなたがrngAに一意の行を必要とするか、またはあなたがエラー13 が問題のその種類を使用して、回避することができUsing-the-Dictionary-Class-in-VBA

を参照してください原因となる配列を、取得コメント

For Each rw In rngA.Rows 
    'Create a key from the entire row and map to row 
    ' If your rows are not unique you'll have to do a bit more work here 
    ' and use an array for the key value(s) 
    dict.Add Join(a.Transpose(a.Transpose(rw.Value)), Chr(0)), rw.Row 
Next rw 

を見てくださいExcelファイルの代わりにデータベース。