在vba excel中的同一行的其他列中查找字符串并粘贴其他值

Sub FindAndPaste()
    Dim searchValue As String
    Dim pasteValue As String
    Dim lastColumn As Long
    Dim i As Long
    
    searchValue = "要查找的字符串"
    pasteValue = "要粘贴的值"
    
    ' 获取最后一列的列号
    lastColumn = Cells(1, Columns.Count).End(xlToLeft).Column
    
    ' 循环遍历同一行的其他列
    For i = 2 To lastColumn
        ' 判断当前单元格的值是否包含要查找的字符串
        If InStr(1, Cells(1, i).Value, searchValue, vbTextCompare) > 0 Then
            ' 将要粘贴的值赋给当前单元格
            Cells(1, i).Value = pasteValue
        End If
    Next i
End Sub