通过工作簿VBA更新主列表中的价格

Sub UpdatePrice()
    Dim mainSheet As Worksheet
    Dim priceSheet As Worksheet
    Dim mainList As Range
    Dim priceList As Range
    Dim mainCell As Range
    Dim priceCell As Range
    
    ' 设置主列表工作表和价格列表工作表
    Set mainSheet = ThisWorkbook.Worksheets("主列表")
    Set priceSheet = ThisWorkbook.Worksheets("价格列表")
    
    ' 设置主列表和价格列表的范围
    Set mainList = mainSheet.Range("A2:A10") ' 假设主列表的产品名称在A列，从第2行到第10行
    Set priceList = priceSheet.Range("A2:B10") ' 假设价格列表的产品名称在A列，价格在B列，从第2行到第10行
    
    ' 循环遍历主列表中的每个单元格
    For Each mainCell In mainList
        ' 在价格列表中查找对应的产品名称
        Set priceCell = priceList.Columns(1).Find(mainCell.Value)
        
        ' 如果找到对应的产品名称，则更新主列表中的价格
        If Not priceCell Is Nothing Then
            mainCell.Offset(0, 1).Value = priceCell.Offset(0, 1).Value ' 假设价格在主列表的下一列
        End If
    Next mainCell
End Sub