用(嵌套循环) .find抓取等值分表VBA EXCEL

Sub FetchData()
    Dim mainTable As Range
    Dim subTable As Range
    Dim mainCell As Range
    Dim subCell As Range
    Dim searchValue As Variant
    
    ' 定义主表和分表的范围
    Set mainTable = Worksheets("主表").Range("A2:A10")
    Set subTable = Worksheets("分表").Range("A2:B10")
    
    ' 遍历主表
    For Each mainCell In mainTable
        searchValue = mainCell.Value
        
        ' 遍历分表
        For Each subCell In subTable.Columns(1).Cells
            ' 使用.find方法查找匹配的值
            If subCell.Value = searchValue Then
                ' 将匹配的值复制到主表中
                mainCell.Offset(0, 1).Value = subCell.Offset(0, 1).Value
                Exit For
            End If
        Next subCell
    Next mainCell
End Sub