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  '如果A列单元格不是空白，则

  For i2 = 2 To 6  '从第2列到第6列

   If mysheet1.Cells(i1, 1) = mysheet1.Cells(i1, i2) Then '如果两个单元格的内容相同

    mysheet1.Cells(i1, 1).Interior.Color = RGB(255, 255, 0) '填充黄颜色

    mysheet1.Cells(i1, i2).Interior.Color = RGB(255, 255, 0)

   End If

  Next

 End If

Next

End Sub

程序运行之后的结果如下：

先要去重数据到某列，
然后引用这个列，
条件格式 选择不同的颜色

我觉得这个用调教格式轻松就可以实现，为何一定要用VBA呢？