Excel 如何用VBA写A列中某个单元格与项中相同值自动填充颜色，如下图表示。

你好！楼主想要的VBA程序代码，其程序代码如下： Sub ColorInset() Dim i1, i2, i3 On Error Resume Next '忽略运行过程中可能出现的错误 Set mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表 For i1 = 2 To 1000 '从第2行到1000行 If mysheet1.Cells(i1, 1) "" Then '