使用VBA/VlookUp使用一个表中的数据来匹配另一个表中的数据，并使用该数据来计算数量

Sub CalculateQuantity()
    Dim rngData As Range
    Dim rngLookup As Range
    Dim rngResult As Range
    Dim lastRow As Long
    
    ' 定义数据范围和查找范围
    Set rngData = Worksheets("Sheet1").Range("A2:B10") ' 数据范围
    Set rngLookup = Worksheets("Sheet2").Range("A2:A6") ' 查找范围
    
    ' 循环遍历查找范围中的每个值，并在数据范围中进行查找
    For Each cell In rngLookup
        ' 使用VlookUp函数进行垂直查找
        Set rngResult = rngData.Columns(2).Find(cell.Value, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到匹配项，则在另一列中计算数量
        If Not rngResult Is Nothing Then
            lastRow = Worksheets("Sheet2").Cells(Rows.Count, "B").End(xlUp).Row
            Worksheets("Sheet2").Cells(lastRow + 1, "B").Value = rngResult.Offset(0, 1).Value
        End If
    Next cell
End Sub