用VBA在Excel中根据值匹配从另一张表中抓取数据

Sub 抓取数据()
    Dim 匹配值 As Range
    Dim 数据表 As Range
    Dim 抓取结果 As Range
    Dim 匹配单元格 As Range
    Dim 抓取单元格 As Range
    
    ' 设置匹配值范围
    Set 匹配值 = Worksheets("匹配值").Range("A1")
    
    ' 设置数据表范围
    Set 数据表 = Worksheets("数据表").Range("A1:B10") ' 假设数据表范围是A1:B10
    
    ' 设置抓取结果的起始单元格
    Set 抓取结果 = Worksheets("匹配值").Range("B1")
    
    ' 循环遍历匹配值范围
    For Each 匹配单元格 In 匹配值
        ' 在数据表中查找匹配值
        Set 抓取单元格 = 数据表.Find(匹配单元格.Value)
        
        ' 如果找到匹配值，则将对应的数据抓取到结果单元格中
        If Not 抓取单元格 Is Nothing Then
            抓取结果.Value = 抓取单元格.Offset(0, 1).Value ' 假设数据在匹配值的右侧一列
        Else
            抓取结果.Value = "未找到匹配值"
        End If
        
        ' 移动到下一个结果单元格
        Set 抓取结果 = 抓取结果.Offset(1, 0)
    Next 匹配单元格
End Sub