Excel VBA宏跨工作表失效及部分功能异常排查与修复求助

咱们先逐个分析你遇到的问题，再给出针对性的修复代码和预防措施。

一、第一个宏HideRowsInThirdPartyTabTemp失效原因分析 #

这个宏在THIRD-PARTY工作表突然失效，主要有三个核心问题：

1. 工作表引用不明确：所有Range("XX:XX")操作都没有指定工作表，默认会操作当前激活的工作表。如果运行宏时你正处于SERVICES表，就会错误地修改SERVICES的行，而THIRD-PARTY表完全没变化，看起来就像是“失效”了。
2. 无效的整行判断逻辑：Sheets("THIRD-PARTY").Rows("8:23") = " "这行代码完全错误——整行区域不能直接和单个空格字符串比较，这行本身会触发隐性错误，导致第一个表格的行永远不会被隐藏。
3. 冗余语法（不影响功能但不规范）：每个If语句的单行写法后多了End If，虽然语法上允许，但会增加代码混乱度。

修复后的HideRowsInThirdPartyTabTemp宏 #

Sub HideRowsInThirdPartyTabTemp()
    Call TurnOffFunctions
    
    ' 明确指定目标工作表，避免依赖当前激活表
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("THIRD-PARTY")
    
    ' 修复第一个表格的判断：检查B8:B23是否全为空/空格
    Dim isFirstBlockBlank As Boolean
    isFirstBlockBlank = True
    Dim cell As Range
    For Each cell In ws.Range("B8:B23")
        ' 去掉首尾空格后判断是否非空
        If Trim(cell.Value) <> "" Then
            isFirstBlockBlank = False
            Exit For ' 只要有一个非空就停止检查
        End If
    Next cell
    ws.Rows("8:23").Hidden = isFirstBlockBlank
    
    ' 处理后续所有表格块，全部指定目标工作表
    If ws.Range("B36").Value = 0 Then ws.Rows("29:48").Hidden = True
    If ws.Range("B57").Value = 0 Then ws.Rows("50:69").Hidden = True
    If ws.Range("B78").Value = 0 Then ws.Rows("71:90").Hidden = True
    If ws.Range("B99").Value = 0 Then ws.Rows("92:111").Hidden = True
    If ws.Range("B120").Value = 0 Then ws.Rows("113:132").Hidden = True
    If ws.Range("B141").Value = 0 Then ws.Rows("134:153").Hidden = True
    If ws.Range("B162").Value = 0 Then ws.Rows("155:174").Hidden = True
    If ws.Range("B183").Value = 0 Then ws.Rows("176:195").Hidden = True
    If ws.Range("B204").Value = 0 Then ws.Rows("197:216").Hidden = True
    If ws.Range("B225").Value = 0 Then ws.Rows("218:237").Hidden = True
    If ws.Range("B246").Value = 0 Then ws.Rows("239:258").Hidden = True
    If ws.Range("B267").Value = 0 Then ws.Rows("260:279").Hidden = True
    If ws.Range("B288").Value = 0 Then ws.Rows("281:300").Hidden = True
    If ws.Range("B309").Value = 0 Then ws.Rows("302:321").Hidden = True
    If ws.Range("B330").Value = 0 Then ws.Rows("323:342").Hidden = True
    If ws.Range("B351").Value = 0 Then ws.Rows("344:363").Hidden = True
    
    Call TurnOnFunctions
End Sub

二、第二个宏HideRowsInThirdPartyTabDim的问题分析 #

这个宏只隐藏第二个表格的空白行，主要问题是：

1. 判断逻辑不准确：Len(c.Text) = 0只检查单个单元格的文本长度，但第一个表格的B8:B23单元格是引用其他区域的求和，可能返回0而非空字符串，这个判断条件覆盖不到0的情况；另外，同一行可能被多次判断（因为区域包含多列），最后一次判断会覆盖之前的结果。
2. 区域选择混乱：把第一个表格的B列和后续表格的C列混在一起，逻辑上没有区分不同表格的判断规则。

修复后的HideRowsInThirdPartyTabDim宏（更简洁的数组版） #

Sub HideRowsInThirdPartyTabDim()
    Call TurnOffFunctions
    
    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("THIRD-PARTY")
    Application.ScreenUpdating = False
    
    ' 处理第一个表格：遍历B8:B23，单元格为空/0则隐藏对应行
    Dim cell As Range
    For Each cell In ws.Range("B8:B23")
        cell.EntireRow.Hidden = (Trim(cell.Value) = "" Or cell.Value = 0)
    Next cell
    
    ' 用数组存储所有后续表格的判断单元格和对应行范围，简化循环
    Dim tableBlocks As Variant
    tableBlocks = Array( _
        Array("B36", "29:48"), _
        Array("B57", "50:69"), _
        Array("B78", "71:90"), _
        Array("B99", "92:111"), _
        Array("B120", "113:132"), _
        Array("B141", "134:153"), _
        Array("B162", "155:174"), _
        Array("B183", "176:195"), _
        Array("B204", "197:216"), _
        Array("B225", "218:237"), _
        Array("B246", "239:258"), _
        Array("B267", "260:279"), _
        Array("B288", "281:300"), _
        Array("B309", "302:321"), _
        Array("B330", "323:342"), _
        Array("B351", "344:363") _
    )
    
    Dim i As Integer
    For i = LBound(tableBlocks) To UBound(tableBlocks)
        ws.Rows(tableBlocks(i)(1)).Hidden = (ws.Range(tableBlocks(i)(0)).Value = 0)
    Next i
    
    Application.ScreenUpdating = True
    Call TurnOnFunctions
End Sub

三、避免后续再次出现问题的预防措施 #

1. 强制指定工作表：永远不要依赖默认的当前激活工作表，用Set ws = ThisWorkbook.Sheets("SheetName")明确指定，所有单元格/行操作都加上ws.前缀。
2. 使用规范的判断逻辑：判断区域是否为空时，优先用WorksheetFunction.CountA(ws.Range("XX:XX")) = 0（检查区域是否无任何非空值），避免直接比较整行/整列。
3. 简化重复代码：像后续表格的重复判断，用数组存储参数再循环处理，减少冗余代码，降低出错概率。
4. 添加错误处理：可以在宏开头加入错误捕获逻辑，方便排查问题，比如：

   On Error GoTo ErrorHandler
   ' 宏主体代码
   Exit Sub
   

ErrorHandler:
MsgBox "宏运行出错：" & Err.Description
Call TurnOnFunctions ' 确保即使出错也恢复功能

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