Excel VBA 1004错误‘对象未定义’问题排查求助

阿华AIGC实验室

2026-5-27

解决Excel宏1004“对象未定义”错误的思路和修复方案

Hey Dario，我看你在开发Excel宏的时候碰到了1004“对象未定义”的错误，这种问题我之前帮不少人排查过，咱们一步步来搞定它～

首先先把你给出的代码片段整理清楚（看起来你没写完条件判断部分，我先补全常见的写法）：

Sub ord_esp_aprob()
    a = Worksheets("Minor").Cells(Rows.Count, 1).End(xlUp).Row
    b = Worksheets("Sheet1").Cells(Rows.Count, 4).End(xlUp).Row + 1
    For i = 3 To a
        If Worksheets("Minor").Cells(i, 1).Value = "某个条件" Then ' 这里应该是你原本的条件逻辑
            ' 复制行到Sheet1的代码
        End If
    Next i
End Sub

最可能导致1004错误的几个原因及修复方法：

工作表名称不匹配
Excel的工作表名称是严格匹配的，哪怕多一个空格、大小写不一致（虽然VBA不区分大小写，但保险起见还是完全一致最好），都会导致Worksheets("Minor")找不到对象。你可以打开Excel，右键点击工作表标签查看准确名称，确保代码里的名称和实际完全一致。

未指定工作表的Rows.Count
代码里的Rows.Count默认会取当前活动工作表的行数，如果运行宏时活动工作表不是Minor或Sheet1，就可能导致计算的行数出错，甚至触发对象错误。修复方法是给Rows.Count指定所属工作表：

a = Worksheets("Minor").Cells(Worksheets("Minor").Rows.Count, 1).End(xlUp).Row
b = Worksheets("Sheet1").Cells(Worksheets("Sheet1").Rows.Count, 4).End(xlUp).Row + 1

更清晰的写法是先定义工作表对象，避免重复写Worksheets("xxx")：

Dim wsMinor As Worksheet, wsSheet1 As Worksheet
Set wsMinor = ThisWorkbook.Worksheets("Minor")
Set wsSheet1 = ThisWorkbook.Worksheets("Sheet1")

a = wsMinor.Cells(wsMinor.Rows.Count, 1).End(xlUp).Row
b = wsSheet1.Cells(wsSheet1.Rows.Count, 4).End(xlUp).Row + 1

Value属性拼写错误
你代码里写的.Val...应该是.Value，少写了"ue"的话，VBA会找不到这个属性，直接抛出对象未定义的错误。一定要确保属性拼写正确！

如果是结构化表格（ListObject）而非普通单元格区域
如果你遍历的是Excel里的结构化表格（不是手动输入的单元格区域），直接用Cells遍历会出问题，应该用ListObject的ListRows来操作：

Sub ord_esp_aprob_Table()
    Dim tblMinor As ListObject, tblSheet1 As ListObject
    Dim tblRow As ListRow
    
    ' 替换成你实际的表格名称
    Set tblMinor = ThisWorkbook.Worksheets("Minor").ListObjects("Table_Minor")
    Set tblSheet1 = ThisWorkbook.Worksheets("Sheet1").ListObjects("Table_Sheet1")
    
    For Each tblRow In tblMinor.ListRows
        ' 这里替换成你的条件判断
        If tblRow.Range(1).Value = "需要满足的条件" Then
            ' 添加新行到目标表格并复制数据
            Dim newRow As ListRow
            Set newRow = tblSheet1.ListRows.Add
            newRow.Range.Value = tblRow.Range.Value
        End If
    Next tblRow
End Sub