比較VBA中的兩列

我應該下載一個包含客戶ID（約100）的工作表（稱之爲第一個工作簿）。我們有一個不同的工作簿（workbook2），其中包含所有客戶ID和這些客戶的名稱。我想根據第二個工作簿將這些客戶ID從工作簿1翻譯成他們的預期姓名。我認爲迄今爲止我有一個相當不錯的基礎，但是我已經調試過了。我們歡迎所有的建議！比較VBA中的兩列

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

來源

2016-03-25 Dylan

基本上，你正試圖通過查詢獲取數據。你應該看到這個樣本在這response

來源

2016-03-25 20:14:12

哇我不知道你可以在Excel中使用SQL！所以你說的是我應該做兩個工作簿之間的內部連接？ – Dylan

該示例適用於一個工作簿中的表（一個數據庫用於您的目的）。我認爲你可以將目標工作表（使用vba）複製到工作簿（數據庫）源代碼和查詢中，就像我在其他文章中解釋的一樣。 –

好吧，你提供的那個示例混亂，謝謝你的輸入 – Dylan

比較VBA中的兩列

回答

相關問題