excel vba在匹配时添加数据

Sub AddDataOnMatch()
    Dim ws As Worksheet
    Dim searchRange As Range
    Dim cell As Range
    Dim lookupValue As Variant
    Dim dataToAdd As Variant
    
    ' 设置工作表和搜索范围
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    Set searchRange = ws.Range("A1:A10")
    
    ' 设置要查找的值和要添加的数据
    lookupValue = "Apple"
    dataToAdd = "Fruit"
    
    ' 在搜索范围内查找匹配的单元格
    For Each cell In searchRange
        If cell.Value = lookupValue Then
            ' 如果找到匹配的值，则在相邻的单元格添加数据
            cell.Offset(0, 1).Value = dataToAdd
        End If
    Next cell
End Sub