excel vba 设置单元格包含字符A显示绿色

Sub GreenCells() Dim cell As Range For Each cell In ActiveSheet.UsedRange If InStr(cell.Value, "A") > 0 Then cell.Interior.Color = vbGreen End If Next cell End Sub

这个宏将遍历活动工作表上的所有单元格，并将包含字符"A"的单元格的背景颜色设置为绿色。请注意，这可能需要一些时间，具体取决于工作表的大小和计算机的速度。如果只想在特定区域中搜索单元格，请将“ActiveSheet.UsedRange”更改为所需的区域。