根据CountA函数结果设置工作表标签颜色的宏异常问题

问题原因 #

你的宏存在两个关键问题导致无法独立设置各标签颜色：

• 代码中Set CountaRange = Range("B7:H26")没有指定所属工作表，这个Range对象默认指向当前激活的工作表的B7:H26区域。
• 循环遍历所有工作表时，每次判断的都是同一个（当前激活表的）区域是否为空，所以所有标签颜色都会统一跟着当前表的结果走，无法独立判断每个工作表的目标区域。

修正后的代码 #

你只需要让目标区域明确关联到当前循环的工作表对象即可，以下是两种可行的修正方案：

方案一：循环内为每个工作表指定目标区域

Option Explicit

Sub ColorTabs()
    Dim ws As Worksheet
    Dim CountaRange As Range
    
    For Each ws In ThisWorkbook.Worksheets
        ' 为当前遍历的工作表指定目标区域
        Set CountaRange = ws.Range("B7:H26")
        If Application.WorksheetFunction.CountA(CountaRange) = 0 Then
           ws.Tab.Color = vbRed
        Else
           ws.Tab.Color = vbBlue
        End If
    Next ws
End Sub

方案二：直接在判断中引用工作表的区域（省去变量）

Option Explicit

Sub ColorTabs()
    Dim ws As Worksheet
    
    For Each ws In ThisWorkbook.Worksheets
        If Application.WorksheetFunction.CountA(ws.Range("B7:H26")) = 0 Then
           ws.Tab.Color = vbRed
        Else
           ws.Tab.Color = vbBlue
        End If
    Next ws
End Sub

修正说明 #

核心改动是让Range("B7:H26")通过ws.前缀明确关联到当前循环的工作表对象，这样每个工作表都会独立检查自己的B7:H26区域是否为空，从而设置对应的标签颜色。

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