Excel技术问题：如何高亮工号重复、多职位且含Manager的行？

当然能搞定这个需求！下面给你分享几种实用的实现方式，从不用写代码的条件格式到灵活的VBA，你可以根据自己的场景选：

这是最适合普通用户的方案，不用碰代码，设置一次就能自动生效。假设你的数据结构是：员工编号在A列，职位名称在B列，第1行是表头，步骤如下：

• 选中需要高亮的行区域（比如A2:B100，根据你的实际数据范围调整）
• 点击「开始」选项卡 → 「条件格式」→ 「新建规则」→ 选择「使用公式确定要设置格式的单元格」
• 在公式框里输入：

  =AND(COUNTIF($A:$A,$A2)>1,SUMPRODUCT(--(($A:$A=$A2)*(ISNUMBER(SEARCH("Manager",$B:$B)))))>=1)
  

• 设置你想要的高亮格式（比如填充浅黄色），点击确定即可。

公式解释 #

• COUNTIF($A:$A,$A2)>1：判断当前行的员工编号在A列出现次数超过1次（也就是该员工有多个职位）
• SUMPRODUCT(...)>=1：统计同一个员工编号下，职位名称包含“Manager”的行数，只要≥1就满足条件。如果需要区分大小写，把SEARCH换成FIND就行

如果你的数据经常更新，或者需要更灵活的逻辑（比如批量处理多个工作表），VBA会更高效。下面是一个一键高亮的宏：

Sub HighlightManagerRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim empID As String
    Dim hasManager As Boolean
    Dim countPositions As Integer
    
    ' 替换成你要处理的工作表名称，比如"销售数据"
    Set ws = ThisWorkbook.Worksheets("Sheet1")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
    
    ' 先清除之前的高亮格式
    ws.Cells.Interior.ColorIndex = xlNone
    
    ' 遍历每一行数据（跳过第1行表头）
    For i = 2 To lastRow
        empID = ws.Cells(i, "A").Value
        ' 统计当前员工的职位数量
        countPositions = Application.WorksheetFunction.CountIf(ws.Range("A:A"), empID)
        ' 检查该员工是否有带Manager的职位
        hasManager = Application.WorksheetFunction.CountIfs(ws.Range("A:A"), empID, ws.Range("B:B"), "*Manager*") > 0
        
        ' 满足条件就高亮整行
        If countPositions > 1 And hasManager Then
            ws.Rows(i).Interior.Color = RGB(255, 255, 153) ' 浅黄色，可自行修改RGB值
        End If
    Next i
    
    MsgBox "高亮完成！", vbInformation
End Sub

使用方法 #

1. 按Alt+F11打开VBA编辑器
2. 右键你的工作簿→「插入」→「模块」
3. 把上面的代码粘贴进去，修改工作表名称（如果需要）
4. 按F5运行宏，或者给宏添加一个工作表按钮，方便后续一键操作。

如果你的数据量很大，或者需要先整理再高亮，Power Query可以帮你先标记符合条件的行，再用条件格式高亮：

1. 选中数据区域→「数据」选项卡→「从表格/区域」（勾选“我的表格有标题”）
2. 在Power Query编辑器中，添加自定义列，公式如下：

   = if List.Count(List.Distinct(Table.SelectRows(#"Changed Type", each [员工编号] = [员工编号])[职位名称]))>1 and List.AnyTrue(List.Transform(Table.SelectRows(#"Changed Type", each [员工编号] = [员工编号])[职位名称], (x)=>Text.Contains(x,"Manager"))) then "高亮" else ""
   

3. 点击「关闭并上载」，把处理后的数据导回Excel，然后根据自定义列的“高亮”值设置条件格式即可。

小提示 #

• 条件格式公式里的列引用要注意：列用绝对引用（比如$A:$A），行号用相对引用（比如$A2），这样公式才能正确应用到每一行。
• VBA里的颜色可以自定义，用取色器获取RGB值替换即可。

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