如何在不同的工作簿中使用 excel 宏匹配值？

Question

所以我有两个工作簿。一个是 ADUsers.xls，另一个是 DeviceInventory.xls

ADUsers.xls - 它有不同的列，其中一列是用户 ID（e2 到 e565），最后一列是找到的匹配项（g2 到 g565）。

DeviceInventory.xls - 它有不同的列，但我们需要的是 userID (a3 - a3199)。

问题 - 我们需要做的是一一检查 ADUsers excel 表中的 userID，并对照 DeviceInventory excel 表中的 userID 列进行检查。如果在任何 3199 行中的某处找到匹配项，我想在 G 列的 ADUsers.xls 的相应行中插入“MATCH FOUND”。

知道如何使用 excel 宏来实现这一点吗？对此提出建议将不胜感激。

Answer 1

查找匹配项

Option Explicit

Sub matchUsers()
    
    ' Adjust the following constants
    Const sFilePath As String = "C:\Test\DeviceInventory.xls"
    Const sName As String = "Sheet1"
    Const dName As String = "Sheet1"
    
    Dim srg As Range
    Set srg = Workbooks.Open(FilePath).Worksheets(sName).Range("A3:A3199")
    
    Dim drg As Range: Set drg = ThisWorkbook.Worksheets(dName).Range("E2:E565")
        
    Dim dCell As Range
    For Each dCell In drg.Cells
        If IsNumeric(Application.Match(dCell.Value, srg, 0)) Then
            dCell.Offset(, 2).Value = "MATCH FOUND"
        End If
    Next dCell
    
End Sub