Excel VBA:查找值并仅粘贴颜色(没有颜色的问题)

Sub FindAndPasteColor()
    Dim searchValue As String
    Dim pasteRange As Range
    Dim cell As Range
    
    ' 设置要查找的值
    searchValue = "要查找的值"
    
    ' 设置要粘贴颜色的范围
    Set pasteRange = Range("A1:A10")
    
    ' 遍历范围中的每个单元格
    For Each cell In pasteRange
        ' 检查单元格的值是否与要查找的值匹配
        If cell.Value = searchValue Then
            ' 仅粘贴颜色
            cell.Interior.Color = cell.DisplayFormat.Interior.Color
        End If
    Next cell
End Sub