如何在宏中搜索文本并向下一个单元格填充值？

Sub SearchAndFill()
    Dim searchRange As Range
    Dim searchValue As String
    Dim fillValue As String
    Dim cell As Range
    
    ' 设置搜索范围
    Set searchRange = Range("A1:A10") ' 修改为你要搜索的范围
    
    ' 设置搜索值和填充值
    searchValue = "搜索文本" ' 修改为你要搜索的文本
    fillValue = "填充值" ' 修改为你要填充的值
    
    ' 循环搜索范围中的每个单元格
    For Each cell In searchRange
        ' 判断单元格的值是否包含搜索文本
        If InStr(1, cell.Value, searchValue) > 0 Then
            ' 如果包含搜索文本，则向下一个单元格填充值
            cell.Offset(1, 0).Value = fillValue
        End If
    Next cell
End Sub