VBA宏自动生成日志错误码统计用透视表及直方图运行报错1004求助

触发1004报错的核心原因 #

你录制的宏之所以报错，全是硬编码写死的内容和实际运行场景不匹配导致的，四个典型坑：

• 新建工作表后直接硬编码表名为Sheet10，实际Excel新建表的序号是动态累加的，根本不是固定值
• 把数据源改成整列Sheet1!$A:$A时，透视表缓存无法识别无明确边界的整列引用，必须匹配实际有数据的单元格范围
• 硬编码透视字段名为"40520"，下次解析的日志错误码完全不同时，代码根本匹配不到对应字段
• 图表数据源写了带旧文件名的绝对路径引用，改了文件名、移动文件位置就会直接失效

适配现有流程的极简实现代码 #

完全不用复杂的透视表冗余逻辑，就围绕你已经跑通的「Sheet1存储全量错误码在A列」的现状改，代码体量小、稳定性高：

Sub 自动生成错误码直方图()
    Dim wsRaw As Worksheet, wsChart As Worksheet
    Dim lastRow As Long, i As Long
    ' 绑定存储错误码的原始工作表
    Set wsRaw = ThisWorkbook.Worksheets("Sheet1")
    ' 动态取A列最后一行有数据的位置，自动适配不同日志的错误码总量
    lastRow = wsRaw.Cells(wsRaw.Rows.Count, "A").End(xlUp).Row
    
    ' 清除之前运行生成的旧表，避免重复新建报错
    On Error Resume Next
    ThisWorkbook.Worksheets("错误码频次统计").Delete
    On Error GoTo 0
    Set wsChart = ThisWorkbook.Worksheets.Add(after:=wsRaw)
    wsChart.Name = "错误码频次统计"
    
    ' 用内置去重功能拿到所有不重复的错误码，写入新表
    wsRaw.Range("A1:A" & lastRow).AdvancedFilter Action:=xlFilterCopy, _
        CopyToRange:=wsChart.Range("A1"), Unique:=True
    
    ' 给去重后的错误码匹配计算出现次数
    wsChart.Range("B1") = "出现次数"
    For i = 2 To wsChart.Cells(wsChart.Rows.Count, "A").End(xlUp).Row
        wsChart.Cells(i, "B") = WorksheetFunction.CountIf(wsRaw.Range("A:A"), wsChart.Cells(i, "A"))
    Next
    
    ' 按出现次数倒序排序，让最高频的错误码排在最前面
    wsChart.Sort.SortFields.Clear
    wsChart.Sort.SortFields.Add Key:=wsChart.Range("B:B"), SortOn:=xlSortOnValues, Order:=xlDescending
    wsChart.Sort.SetRange wsChart.Range("A1:B" & wsChart.Cells(wsChart.Rows.Count, "A").End(xlUp).Row)
    wsChart.Sort.Apply
    
    ' 直接基于统计结果生成柱状图（即需求的直方图效果）
    wsChart.Shapes.AddChart2(201, xlColumnClustered, 50, 50, 500, 300).Select
    With ActiveChart
        .SetSourceData Source:=wsChart.Range("A1:B" & wsChart.Cells(wsChart.Rows.Count, "A").End(xlUp).Row)
        .ChartTitle.Text = "错误码出现频次统计"
    End With
End Sub

方案适配性说明 #

• 全动态适配数据范围：通过End(xlUp)自动定位数据边界，不管这次解析的日志生成10个还是1000个错误码，都能自动识别范围，不用手动调整代码参数
• 去掉冗余逻辑：删掉了录制宏自动生成的几十行透视表格式冗余配置，只用去重+计数的基础逻辑，比透视表方案稳定，不会因为动态变化的错误码字段名触发找不到字段的报错
• 无缝衔接现有流程：你已经跑通的「grep导出txt→Excel自动导入→分列预处理」流程完全不用改，预处理完成后直接调用这个宏就行
• 输出更贴合使用需求：自动按频次倒序排序，用户打开就能直接看到最高频的错误码，不用手动调整图表排序

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