[英]Comparing two columns in VBA
我应该下载一个包含客户ID(约100)的工作表(称之为第一个工作簿)。 我们有一个不同的工作簿(工作簿2),其中包含所有客户ID和这些客户的名称。 我想将工作簿1中的客户ID转换为基于第二个工作簿的预期名称。 我认为到目前为止,我的基础相当不错,但是调试方面却碰壁。 我们欢迎所有的建议!
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
基本上您正在尝试使用查询来获取数据。 您应该在此响应中看到此示例
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.