根据列A值遍历B列的vba脚本

Sub TraverseColumnB()
    Dim lastRow As Long
    Dim i As Long
    
    ' 获取列A的最后一行
    lastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
    ' 遍历列A的每一行
    For i = 1 To lastRow
        ' 获取列A当前行的值
        Dim valueA As Variant
        valueA = Cells(i, 1).Value
        
        ' 在列B中查找与列A当前行值匹配的单元格
        Dim foundCell As Range
        Set foundCell = Columns(2).Find(What:=valueA, LookIn:=xlValues, LookAt:=xlWhole)
        
        ' 如果找到匹配的单元格，则进行相应的操作
        If Not foundCell Is Nothing Then
            ' 获取匹配单元格的行号
            Dim rowB As Long
            rowB = foundCell.Row
            
            ' 在这里可以根据需要进行相应的操作，例如获取列B匹配单元格的值
            Dim valueB As Variant
            valueB = Cells(rowB, 2).Value
            
            ' 输出结果到Immediate窗口
            Debug.Print "列A当前行值: " & valueA & "，列B匹配单元格值: " & valueB
        End If
    Next i
End Sub