使用VBA生成总计/极值/均值表格时遇1004错误求助

先拆解你代码里的核心问题，这些就是导致1004错误和功能不符合预期的根源：

1. 公式字符串拼接的语法错误 #

你当前的公式行：

Cells(N + 1, "B").Formula = "=IF(COUNT(B$13:B$44)=0,"",MAX(B$13:B$44))" & N & ")"

有两个致命问题：

• 双引号未转义：在VBA里，要在字符串中表示一个双引号，必须用两个双引号""来转义。你写的""会直接终止字符串，导致公式语法断裂，触发1004错误。
• 多余的拼接内容：末尾的& N & ")"完全是画蛇添足，会让最终公式变成=IF(...)N)，属于无效公式，直接破坏了IF函数的结构。

2. 固定范围不符合动态数据量需求 #

你代码里用了固定的B$13:B$44，但你明确说数据量是1到100条不固定，而且已经通过N获取了当前列最后一行的行号，应该把范围改成动态的B$13:B$" & N & "，这样才能匹配实际的数据行数。

3. 未适配200列的需求 #

当前代码只处理了B列，要覆盖200列，需要通过循环遍历每一列来批量处理。

修正后的完整代码 #

下面是修复错误、适配动态数据量和200列的版本：

Sub CalculateStats()
    Dim lastRow As Long
    Dim currentCol As Integer
    Dim startCol As Integer, endCol As Integer
    
    ' 设置要处理的列范围：比如从B列(2)到第201列（共200列）
    startCol = 2
    endCol = startCol + 199 ' 对应200列的范围
    
    ' 获取数据区域的最后一行（以起始列为基准，可根据实际表头列调整）
    lastRow = Cells(Rows.Count, startCol).End(xlUp).Row
    
    ' 遍历每一列计算统计值
    For currentCol = startCol To endCol
        ' 最大值：处理空数据情况，动态匹配数据范围
        Cells(lastRow + 3, currentCol).Formula = _
            "=IF(COUNT(" & Cells(13, currentCol).Address(True, True) & ":" & Cells(lastRow, currentCol).Address(True, True) & ")=0,"""",MAX(" & Cells(13, currentCol).Address(True, True) & ":" & Cells(lastRow, currentCol).Address(True, True) & "))"
        
        ' 额外添加你需要的其他统计项
        ' 总计
        Cells(lastRow + 2, currentCol).Formula = _
            "=IF(COUNT(" & Cells(13, currentCol).Address(True, True) & ":" & Cells(lastRow, currentCol).Address(True, True) & ")=0,"""",SUM(" & Cells(13, currentCol).Address(True, True) & ":" & Cells(lastRow, currentCol).Address(True, True) & "))"
        ' 最小值
        Cells(lastRow + 4, currentCol).Formula = _
            "=IF(COUNT(" & Cells(13, currentCol).Address(True, True) & ":" & Cells(lastRow, currentCol).Address(True, True) & ")=0,"""",MIN(" & Cells(13, currentCol).Address(True, True) & ":" & Cells(lastRow, currentCol).Address(True, True) & "))"
        ' 平均值
        Cells(lastRow + 5, currentCol).Formula = _
            "=IF(COUNT(" & Cells(13, currentCol).Address(True, True) & ":" & Cells(lastRow, currentCol).Address(True, True) & ")=0,"""",AVERAGE(" & Cells(13, currentCol).Address(True, True) & ":" & Cells(lastRow, currentCol).Address(True, True) & "))"
    Next currentCol
    
    ' 给统计行添加表头（可选，提升可读性）
    Cells(lastRow + 2, startCol - 1).Value = "总计"
    Cells(lastRow + 3, startCol - 1).Value = "最大值"
    Cells(lastRow + 4, startCol - 1).Value = "最小值"
    Cells(lastRow + 5, startCol - 1).Value = "平均值"
End Sub

关键优化点说明 #

• 动态范围：用Cells(13, currentCol).Address(True, True)生成每列的绝对引用地址，彻底摆脱固定行号列号的限制。
• 双引号转义：用""""表示公式里的空字符串，保证VBA生成的公式语法完全正确。
• 多列循环：通过For currentCol = startCol To endCol遍历200列，一次性完成所有列的统计计算。
• 位置适配：按照你要求的“填充单元格下方2行处”开始统计表格，用lastRow + 2作为总计行，依次往下排列最大值、最小值、平均值。

这样修改后，既解决了1004错误，也完全满足动态数据量和200列的需求啦。

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