VBA按条件移动表格行报错求助及数据自动上移需求

我有一个包含4个工作表的工作簿：1个每日更新的主工作表，以及3个存储历史数据的工作表。每个工作表中都有多个已命名的表格。主工作表「Current DMB Template」中的「Problems」表第6列为「Status」，需要编写宏自动将状态为「Solved」或「Rejected」的行移动至「Problems」工作表的「ProblemsSolved」表。已编写代码，但出现438错误（对象不支持该方法），同时希望实现删除行后数据自动上移。现有代码如下：

a = ActiveWorkbook.Worksheets("Current DMB Template").ListObjects("Problems").Range.Rows.Count

For i = 2 To a

If ActiveWorkbook.Worksheets("Current DMB Template").ListObjects("Problems").Cells(i, 6).Value = "Rejected" Or "Solved" Then

ActiveWorkbook.Worksheets("Current DMB Template").ListObjects("Problems").Rows(i).Cut

ActiveWorkbook.Worksheets("Problems").Activate
b = ActiveSheet.ListObjects("ProblemsSolved").Cells(Rows.Count, 1).End(xlUp).Row
ActiveSheet.ListObjects("ProblemsSolved").Cells(b + 1, 1).Select
ActiveSheet.Paste
Worksheets("Current DMB Template ").Activate
End If


Next
End Sub

438错误及其他问题的根源 #

• ListObject对象调用错误：直接通过ListObjects("Problems").Cells或.Rows访问单元格/行是错误的，ListObject的数据行需要通过DataBodyRange属性调用，否则会触发「对象不支持该方法」的438错误。
• If条件语法错误：= "Rejected" Or "Solved"不符合VBA逻辑判断规则，必须完整写出两次值比较。
• 工作表名称冗余空格：Worksheets("Current DMB Template ").Activate中的工作表名称末尾多了一个空格，会导致无法定位工作表。
• 循环方向错误：从第2行到最后一行正向循环，删除行后后续行的索引会偏移，导致部分行被遗漏。

修正后的完整代码 #

Sub MoveSolvedProblems()
    Dim wsCurrent As Worksheet
    Dim tblProblems As ListObject
    Dim wsHistory As Worksheet
    Dim tblSolved As ListObject
    Dim lastRow As Long
    Dim i As Long
    
    ' 绑定目标工作表和表格对象，避免频繁激活/选择操作
    Set wsCurrent = ThisWorkbook.Worksheets("Current DMB Template")
    Set tblProblems = wsCurrent.ListObjects("Problems")
    Set wsHistory = ThisWorkbook.Worksheets("Problems")
    Set tblSolved = wsHistory.ListObjects("ProblemsSolved")
    
    ' 获取Problems表格数据区域的最后一行数
    lastRow = tblProblems.DataBodyRange.Rows.Count
    
    ' 倒序循环处理，避免删除行后索引错乱
    For i = lastRow To 1 Step -1
        ' 判断当前行的Status列值
        Select Case tblProblems.DataBodyRange.Cells(i, 6).Value
            Case "Rejected", "Solved"
                ' 复制行到ProblemsSolved表格的末尾（自动新增行）
                tblProblems.DataBodyRange.Rows(i).Copy _
                    Destination:=tblSolved.ListRows.Add.Range
                ' 删除原行，表格会自动上移后续数据
                tblProblems.DataBodyRange.Rows(i).Delete
        End Select
    Next i
End Sub

核心优化说明 #

• 取消激活/选择操作：直接绑定工作表和表格对象进行操作，大幅提升代码稳定性和运行速度。
• 倒序循环：从最后一行往前遍历，解决删除行后后续行索引偏移的问题，确保每一行都能被正确检查。
• 利用ListObject内置功能：ListRows.Add自动在历史表格末尾创建新行，删除行后表格会自动上移数据，无需额外处理。
• Select Case简化判断：多条件判断更清晰，代码可读性更强。

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