Excel按Object ID交替颜色高亮关联行的实现方法咨询

完全可以实现，以下是两种高效的解决方法，适配不同数据场景：

方法一：辅助列+条件格式（通用方案） #

这种方法无需编程，适配大多数Excel版本：

• 插入辅助列（如D列），在D2单元格输入公式：

  =MOD(SUMPRODUCT(--(UNIQUE($A$2:$A$10001)<=A2)),2)
  

  下拉填充至所有行，相同Object ID的行会得到一致的0或1标记，且标记在不同ID间交替切换。

  若你的Excel版本不支持UNIQUE函数，替换为兼容公式：

  =MOD(SUMPRODUCT(--(FREQUENCY(MATCH($A$2:$A$10001,$A$2:$A$10001,0),ROW($A$2:$A$10001)-ROW($A$2)+1)<=MATCH(A2,$A$2:$A$10001,0))),2)
  

• 选中A2:C10001数据区域，依次点击「开始」→「条件格式」→「新建规则」：
  1. 选择「使用公式确定要设置格式的单元格」，输入=$D2=1，设置红色填充；
  2. 重复新建规则，输入=$D2=0，设置蓝色填充。

方法二：VBA批量处理（大体积数据首选） #

针对1万+行的大数据，VBA处理效率更高：

1. 按Alt+F11打开VBA编辑器；
2. 右键当前工作簿→「插入」→「模块」，粘贴以下代码：

   Sub AlternateHighlightByID()
       Dim ws As Worksheet
       Dim lastRow As Long
       Dim idDict As Object
       Dim currentID As String
       Dim colorFlag As Boolean
       
       Set ws = ActiveSheet
       lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
       Set idDict = CreateObject("Scripting.Dictionary")
       colorFlag = True
       
       For i = 2 To lastRow
           currentID = ws.Cells(i, "A").Value
           If Not idDict.Exists(currentID) Then
               idDict.Add currentID, colorFlag
               colorFlag = Not colorFlag
           End If
           
           ws.Rows(i).Interior.Color = IIf(idDict(currentID), RGB(255, 0, 0), RGB(0, 0, 255))
       Next i
   End Sub
   

3. 按F5运行代码，即可完成所有行的交替高亮。

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