如何修改VBA代码实现值替换并高亮单元格背景？

只需在完成值替换的代码后，添加一行设置单元格背景色的语句即可实现需求。以下是修改后的完整代码：

Sub test_Dam()
Dim sh1 As Worksheet, sh2 As Worksheet
Dim f As Range
Dim i As Long, col1 As Long, ini As Long
 
'set worksheet
Set sh1 = Sheets("Sheet1")
Set sh2 = Sheets("Brands")
 
Set f = sh1.Cells.Find("Brand", , xlValues, xlPart, , , False)
If Not f Is Nothing Then
col1 = f.Column
ini = f.Row + 2

For i = ini To sh1.Cells(Rows.Count, col1).End(3).Row
Set f = sh2.Cells.Find(sh1.Cells(i, col1).Value, , xlFormulas, xlPart, xlByRows, xlNext, False)
If Not f Is Nothing Then
sh1.Cells(i, col1).Value = f.Offset(0, 0).Value ' 替换值
sh1.Cells(i, col1).Interior.Color = vbGreen ' 新增：设置单元格背景为绿色
End If
Next
End If

End Sub

关键改动说明 #

• 新增语句 sh1.Cells(i, col1).Interior.Color = vbGreen，直接将完成替换的单元格背景色设置为绿色。若需要自定义绿色色调，也可以用RGB值替代，比如 RGB(0, 255, 0)（纯绿色）或者RGB(146, 208, 80)（浅橄榄绿）。

内容的提问来源于stack exchange，提问作者Knockoutpie