请求提供基于Name列单元格值批量为整行配色的Macro或公式

我懂你说的痛点——当Name列里的取值太多时，用条件格式一个个设置高亮实在太繁琐了！特意写了个VBA宏来解决这个问题：它会自动给每个不同的Name值分配专属颜色，相同Name对应的整行都会用同一种颜色高亮，省心又高效！

先看你的示例数据 #

INC-No  Host  Name
INC1    x1    e1
INC2    x2    e2
INC3    x3    e3
INC4    x4    e2
INC5    x5    e5
INC6    x6    e1
INC7    x7    e3

直接能用的VBA宏代码 #

下面这个宏默认假设Name列是C列（第3列），如果你的Name列在其他位置，只要改一下代码里的nameCol值就行：

Sub HighlightRowsByName()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim nameCol As Integer
    Dim nameDict As Object
    Dim currentName As String
    Dim colorIndex As Integer
    Dim i As Long
    
    ' 操作当前激活的工作表，也可以改成指定工作表，比如Set ws = ThisWorkbook.Sheets("Sheet1")
    Set ws = ActiveSheet
    ' 设置Name列的列号，示例中是C列（第3列），根据实际调整
    nameCol = 3
    ' 获取Name列最后一行数据的行号
    lastRow = ws.Cells(ws.Rows.Count, nameCol).End(xlUp).Row
    
    ' 用字典存储每个Name对应的颜色索引，确保相同Name用同一种颜色
    Set nameDict = CreateObject("Scripting.Dictionary")
    ' 从颜色索引3开始（避开默认的白、黑，颜色更明显）
    colorIndex = 3
    
    ' 从第2行开始遍历（假设第1行是表头）
    For i = 2 To lastRow
        currentName = ws.Cells(i, nameCol).Value
        
        ' 如果这个Name还没分配颜色，就给它新颜色
        If Not nameDict.Exists(currentName) Then
            nameDict.Add currentName, colorIndex
            ' 颜色索引递增，超过Excel最大颜色索引56就重置
            colorIndex = colorIndex + 1
            If colorIndex > 56 Then colorIndex = 3
        End If
        
        ' 给当前行设置填充颜色
        ws.Rows(i).Interior.ColorIndex = nameDict(currentName)
    Next i
    
    ' 释放占用的对象
    Set nameDict = Nothing
    Set ws = Nothing
    
    MsgBox "整行高亮完成！", vbInformation
End Sub

怎么用这个宏？ #

1. 打开你的Excel文件，按下Alt + F11打开VBA编辑器
2. 在左侧的工程资源管理器里，右键点击你的工作表名称，选择「插入」→「模块」
3. 把上面的代码粘贴到弹出的模块窗口里
4. 检查并修改nameCol的值（比如Name列是D列就改成4）
5. 按下F5运行宏，或者回到Excel界面，点击「开发工具」→「宏」，选中HighlightRowsByName后点击「执行」

小提示 #

• 如果你的Name值超过56个，颜色会循环重复，但相同Name还是会保持同一种颜色
• 运行宏前建议先备份数据，避免意外覆盖原有格式
• 如果想保留某些行的原有颜色，可以在代码里加个判断，比如只给非空值的行设置高亮

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