VBAの2つの列を比較する

Question

顧客ID（約100）を含むワークシート（最初のブックと呼ぶ）をダウンロードすることになっています。すべての顧客IDとその顧客の名前を含む別のワークブック（ワークブック2）があります。ワークブック1の顧客IDを2番目のワークブックに基づいて将来の名前に変換したいと思います。私は今までのところまったくまともな基礎を持っていたと思うが、私はデバッグして壁にぶつかった。どんな提案も大歓迎です！

Option Explicit 

Sub getcompanyname() 

Dim wsll As Worksheet 
Dim wsd As Workbook 

Dim c As Range 
Dim d As Range 

Dim lastRow2 As Integer 
lastRow2 = Workbooks("MatchWerks Customer Quick Reference.xlsx").Worksheets("Sheet1").UsedRange.Rows.Count 

Dim lastRow As Integer 
lastRow = ActiveSheet.UsedRange.Rows.Count 

Set wsd = Workbooks.Open("C:\Users\Dylan Hoffman\Documents\SugarSync Shared Folders\Support\Customer Support\MatchWerks Customer Quick Reference.xlsx") 
Set wsll = ThisWorkbook.Worksheets("customtableitem_customtable_mbs") 

For Each c In ThisWorkbook.Worksheets("customtableitem_customtable_mbs").Columns("C1:C" & lastRow).Cells 

    For Each d In Workbooks("MatchWerks Customer Quick Reference.xlsx").Worksheets("Sheet1").Columns("A3:A" & lastRow2).Cells 
    If c = d Then 
    c = d.Offset(0, 1) 
    End If 
    Next d 
Next c 

End Sub 

Answer 1

基本的に、クエリでデータを取得しようとしています。これについてのサンプルはこちらresponse