如何快速检测Excel中E至BB列是否混合存在Dr和Cr格式数值（无需为每列设置单独辅助列）

嘿，这个需求我之前也碰到过，不用给每列都加辅助列的话，有几个实用方法可以试试，我按你偏好的无宏方法优先说：

方法一：单个辅助列配合公式（支持新旧Excel版本） #

找个空白列（比如BC列），用来统一显示E到BB列的检测结果：

• 如果你的Excel支持动态数组（2021及以后版本或365），在BC2单元格输入这个公式，然后下拉到BB列对应的行即可：

  =LET(
      col, INDIRECT(ADDRESS(1, COLUMN(E:E))&":"&ADDRESS(1, COLUMN(E:E))),
      data_range, OFFSET(col, 3, 0, COUNTA(col)-3, 1),
      formats, BYROW(data_range, LAMBDA(x, CELL("format", x))),
      has_Dr, COUNTIF(formats, "*Dr*")>0,
      has_Cr, COUNTIF(formats, "*Cr*")>0,
      IF(has_Dr*has_Cr, "混合Dr/Cr", IF(has_Dr, "全Dr", "全Cr"))
  )
  

  解释一下：公式会自动提取对应列的单元格格式，判断是否存在Dr/Cr，最后返回列的状态。OFFSET(col,3,0,...)是假设你的数据从第4行开始，要是实际行不一样，把数字3改成对应起始行减1就行。
• 如果是旧版Excel（没有LET和BYROW），用数组公式（输入后按Ctrl+Shift+Enter确认）：

  =IF(AND(COUNTIF(OFFSET(E:E,3,0,COUNTA(E:E)-3,1),"*Dr*")>0,COUNTIF(OFFSET(E:E,3,0,COUNTA(E:E)-3,1),"*Cr*")>0),"混合Dr/Cr",IF(COUNTIF(OFFSET(E:E,3,0,COUNTA(E:E)-3,1),"*Dr*")=COUNTA(E:E)-3,"全Dr","全Cr"))
  

  同样要注意调整数据起始行的偏移量。

方法二：条件格式可视化（完全不用辅助列） #

直接通过颜色标记列标题，一眼就能分辨状态：

1. 选中E到BB列的标题行（比如第1行的E1:BB1）
2. 点击「开始」→「条件格式」→「新建规则」→「使用公式确定要设置格式的单元格」
3. 添加三个规则：
   • 规则1（混合状态）：输入公式 =AND(COUNTIF(E:E,"*Dr*")>0,COUNTIF(E:E,"*Cr*")>0)，设置填充色为红色
   • 规则2（全Dr）：输入公式 =COUNTIF(E:E,"*Dr*")=COUNTA(E:E)-COUNTBLANK(E:E)，设置填充色为绿色
   • 规则3（全Cr）：输入公式 =COUNTIF(E:E,"*Cr*")=COUNTA(E:E)-COUNTBLANK(E:E)，设置填充色为蓝色
     设置完后，列标题的颜色就直接告诉你这列是全Dr、全Cr还是混合啦。

方法三：VBA宏（批量处理更高效） #

如果你能接受用宏，这个脚本可以自动遍历E到BB列，把结果写到最右边的空白列：

Sub CheckDrCrColumns()
    Dim ws As Worksheet
    Dim col As Range
    Dim dataRange As Range
    Dim hasDr As Boolean, hasCr As Boolean
    Dim cell As Range
    Dim resultCol As Integer
    
    Set ws = ActiveSheet
    resultCol = ws.Cells(1, Columns.Count).End(xlToLeft).Column + 1 '自动找最右侧空列存结果
    ws.Cells(1, resultCol).Value = "列状态"
    
    For Each col In ws.Range("E:BB").Columns
        hasDr = False
        hasCr = False
        '只遍历列中的数字单元格，跳过空白和文本
        On Error Resume Next
        Set dataRange = col.SpecialCells(xlCellTypeConstants, xlNumbers)
        On Error GoTo 0
        
        If Not dataRange Is Nothing Then
            For Each cell In dataRange
                If InStr(CELL("format", cell), "Dr") > 0 Then
                    hasDr = True
                ElseIf InStr(CELL("format", cell), "Cr") > 0 Then
                    hasCr = True
                End If
                '如果已经同时找到Dr和Cr，提前结束遍历
                If hasDr And hasCr Then Exit For
            Next cell
        End If
        
        '写入结果
        Select Case True
            Case hasDr And hasCr
                ws.Cells(col.Row, resultCol).Value = "混合Dr/Cr"
            Case hasDr
                ws.Cells(col.Row, resultCol).Value = "全Dr"
            Case hasCr
                ws.Cells(col.Row, resultCol).Value = "全Cr"
            Case Else
                ws.Cells(col.Row, resultCol).Value = "无数据"
        End Select
    Next col
End Sub

使用方法：按Alt+F11打开VBA编辑器，插入模块，粘贴代码，回到Excel按F5运行即可。

备注：内容来源于stack exchange，提问作者AllSolutions