求Excel VBA宏代码：检查D:AC列特定文本数量并设置单元格颜色

核心代码实现 #

以下是满足需求的VBA宏代码，可直接复制到Excel的VBA编辑器中使用：

Sub CheckColumnRequirements()
    Dim ws As Worksheet
    Dim col As Range
    Dim countA As Long, countB As Long
    
    ' 指定目标工作表，可替换为实际表名如"Sheet1"
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 遍历D列至AC列的每一列
    For Each col In ws.Range("D:AC").Columns
        ' 统计列中指定文本的数量
        countA = Application.WorksheetFunction.CountIf(col, "specific text A")
        countB = Application.WorksheetFunction.CountIf(col, "specific text B")
        
        ' 根据校验结果设置第3行单元格底色
        If countA = 2 And countB = 2 Then
            col.Cells(3, 1).Interior.ColorIndex = 3 ' 满足条件设为红色
        Else
            col.Cells(3, 1).Interior.ColorIndex = 2 ' 不满足设为白色
        End If
    Next col
End Sub

关键说明 #

• 工作表指定：默认使用当前活动工作表，若需固定操作某张表，可将Set ws = ThisWorkbook.ActiveSheet修改为Set ws = ThisWorkbook.Worksheets("你的表名")
• 文本匹配：代码中的"specific text A"和"specific text B"需替换为你实际要校验的文本
• 大小写区分：上述代码使用的CountIf函数不区分大小写，若需严格区分大小写，可替换为以下统计逻辑：

  Dim lastRow As Long, i As Long
  lastRow = ws.Cells(ws.Rows.Count, col.Column).End(xlUp).Row
  countA = 0
  countB = 0
  For i = 1 To lastRow
      If StrComp(col.Cells(i, 1).Value, "specific text A", vbBinaryCompare) = 0 Then
          countA = countA + 1
      ElseIf StrComp(col.Cells(i, 1).Value, "specific text B", vbBinaryCompare) = 0 Then
          countB = countB + 1
      End If
  Next i
  

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