[VBA][Error1004]Sheet.cells.value引起的应用程序定义或对象定义错误

If ws1.Cells(i, j).Value = ws2.Cells(row2, j).Value Then 显示运行时错误1004，请调试

在上述代码的基础上增添以下模块：Sub CreateSummarySheet() On Error GoTo ErrorHandler Application.ScreenUpdating = False ' 检查统计表和汇总分析表是否存在 Dim statSheet As Worksheet, analysisSheet As Worksheet Dim summarySheet As Worksheet Dim sheetExists As Boolean: sheetExists = True On Error Resume Next Set statSheet = ThisWorkbook.Sheets("卫星节目故障统计表") Set analysisSheet = ThisWorkbook.Sheets("卫星节目汇总分析表") On Error GoTo 0 If statSheet Is Nothing Or analysisSheet Is Nothing Then MsgBox "未找到统计表和汇总分析表，请先运行生成报告程序", vbExclamation Exit Sub End If ' 删除旧的数据统计汇总表（如果存在） Application.DisplayAlerts = False On Error Resume Next ThisWorkbook.Sheets("数据统计汇总表").Delete On Error GoTo 0 Application.DisplayAlerts = True ' 创建新的数据统计汇总表 Set summarySheet = ThisWorkbook.Sheets.Add(After:=analysisSheet) summarySheet.Name = "数据统计汇总表" ' ==== 步骤0：设置表头 ==== With summarySheet.Range("A1:E1") .Merge .Value = statSheet.Range("A1").Value ' 复制统计表第一行内容 .Font.Bold = True .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With ' ==== 步骤1：创建标题行 ==== summarySheet.Range("A2:E2") = Array("序号", "影响卫星", "对应节目", "节目数量", "节目数量合计") summarySheet.Rows(2).Font.Bold = True summarySheet.Range("A2:E2").HorizontalAlignment = xlCenter ' ==== 步骤2-3：收集卫星和节目数据 ==== Dim lastStatRow As Long lastStatRow = statSheet.Cells(statSheet.Rows.Count, "A").End(xlUp).Row ' 使用字典存储卫星和对应的节目集合 Dim satelliteDict As Object Set satelliteDict = CreateObject("Scripting.Dictionary") Dim r As Long For r = 3 To lastStatRow Dim satellite As String, program As String satellite = statSheet.Cells(r, 1).Value ' A列: 影响卫星 program = statSheet.Cells(r, 2).Value ' B列: 影响节目 ' 添加卫星到字典 If Not satelliteDict.Exists(satellite) Then satelliteDict.Add satellite, CreateObject("Scripting.Dictionary") End If ' 添加节目到卫星对应的字典（自动去重） satelliteDict(satellite)(program) = True Next r ' ==== 步骤4-6：填充数据 ==== Dim summaryRow As Long: summaryRow = 3 Dim satellites() As Variant satellites = satelliteDict.Keys ' 步骤5：填充序号 For i = 0 To UBound(satellites) summarySheet.Cells(summaryRow, 1) = i + 1 ' 序号 summaryRow = summaryRow + 1 Next i ' 填充卫星、节目和节目数量 summaryRow = 3 Dim totalPrograms As Long: totalPrograms = 0 For Each satellite In satellites ' 步骤3：填充影响卫星 summarySheet.Cells(summaryRow, 2) = satellite ' 步骤3：合并节目名称 Dim programs() As Variant programs = satelliteDict(satellite).Keys Dim programStr As String programStr = Join(programs, "、") summarySheet.Cells(summaryRow, 3) = programStr ' 步骤4：计算节目数量 Dim programCount As Long programCount = satelliteDict(satellite).Count summarySheet.Cells(summaryRow, 4) = programCount totalPrograms = totalPrograms + programCount summaryRow = summaryRow + 1 Next satellite ' 步骤6：添加节目数量合计 Dim lastSummaryRow As Long lastSummaryRow = summarySheet.Cells(summarySheet.Rows.Count, "A").End(xlUp).Row With summarySheet.Range("E3:E" & lastSummaryRow) .Merge .Value = totalPrograms .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End With ' ==== 步骤7：设置格式 ==== summarySheet.Columns("A:E").AutoFit summarySheet.Cells.HorizontalAlignment = xlCenter summarySheet.Cells.VerticalAlignment = xlCenter ' 设置边框 With summarySheet.Range("A2:E" & lastSummaryRow).Borders .LineStyle = xlContinuous .Weight = xlThin End With ' 冻结标题行 summarySheet.Activate summarySheet.Range("A3").Select ActiveWindow.FreezePanes = True Application.ScreenUpdating = True MsgBox "数据统计汇总表创建完成！", vbInformation Exit Sub ErrorHandler: MsgBox "错误 " & Err.Number & ": " & Err.Description, vbCritical, "创建汇总表时出错" Application.ScreenUpdating = True End Sub

VBA这么写为什么不行 hz.Cells(ming_hang, ming_lie) = hz.Cells(ming_hang, ming_lie).Value + 1

stateSegKey = wsTable.Cells(i, "AAA_State").Value & "|" & wsTable.Cells(i, "Segment").Value显示错误