Excel VBA --查找A列中任何值的第一个匹配项，然后将B列的值插入C列(同一行)

Sub FindAndInsert()
    Dim lastRow As Long
    Dim i As Long
    
    lastRow = Cells(Rows.Count, "A").End(xlUp).Row ' 获取A列最后一行的行号
    
    For i = 1 To lastRow ' 遍历A列中的每一行
        If Cells(i, "A").Value <> "" Then ' 判断A列当前行是否有值
            Cells(i, "C").Value = Cells(i, "B").Value ' 将B列的值插入C列
        End If
    Next i
End Sub