如何修复VBA统计代码，实现TAPS工作表数值汇总功能？

原代码核心问题 #

• 变量初始化与逻辑顺序错误：Set range1 = wss.Range(...)执行时，wss还未通过For Each循环赋值，会触发“对象变量或With块变量未设置”错误；且If wss.Name Like "TAPS"的判断位置错误，应该放在工作表遍历循环内部，先遍历再筛选符合条件的表。
• 结构不完整：缺少Next m、End With、Next wss、End If这些结束语句，导致VBA无法识别代码块边界，出现“For Each缺少Next”“End With缺少With”类报错。
• 统计逻辑偏差：Application.CountIf(m) > 30是判断整行中满足条件的单元格数量大于30，和需求“统计FC列中数值>30的单元格总数”不符；且结果赋值语句放在循环内会反复更新文本框，效率低下。

修正后的完整代码 #

Sub CountTapsFCColumn()
    Dim n As Long
    Dim cell As Range
    Dim wss As Worksheet
    Dim targetRange As Range
    
    ' 初始化计数
    n = 0
    
    ' 遍历所有工作表
    For Each wss In ThisWorkbook.Worksheets
        ' 筛选名称包含"TAPS"的工作表
        If wss.Name Like "*TAPS*" Then
            ' 定义FC列从FC2开始的已使用区域
            With wss
                Set targetRange = .Range("FC2", .Range("FC2").End(xlDown))
                ' 处理空区域（如果FC2下面没有数据）
                If targetRange.Row = 2 And targetRange.Value = "" Then
                    Set targetRange = .Range("FC2")
                End If
            End With
            
            ' 遍历目标区域的每个单元格
            For Each cell In targetRange
                ' 判断单元格数值是否大于30（排除空单元格）
                If IsNumeric(cell.Value) And cell.Value > 30 Then
                    n = n + 1
                End If
            Next cell
        End If
    Next wss
    
    ' 最后将汇总结果赋值到文本框
    Mark1.WBAVAILABLETEXTBOX.Value = n
End Sub

修正说明 #

1. 调整逻辑顺序：先遍历所有工作表，再判断名称是否包含"TAPS"，避免变量未赋值就使用的问题。
2. 补全代码结构：添加所有必要的Next、End If语句，确保代码块边界清晰。
3. 修正统计逻辑：直接遍历FC列目标区域的每个单元格，判断数值是否大于30，同时增加空区域处理（防止FC2为空时End(xlDown)跳到工作表最后一行）。
4. 优化赋值时机：将文本框赋值放在循环结束后，只更新一次，提升效率。

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