Excel VBA实现将“Complete”状态行从“Open”工作表移动至目标工作表的技术问询

先明确你的业务场景：

• 日常操作在名为Open的工作表上
• 当某一行的公式结果显示安装状态为Complete时，需要把该行内容移到另一目标工作表的第一个可用行
• 目标工作表的第一列要填入对应的月份数字

你提供的这段VBA代码还没写完，而且存在几个小问题，我先把现有代码整理出来，再给你修正后的可运行版本：

你提供的未完成代码 #

Sub MoveUsingOneWord()
Dim strSearch As String, EndRw As Long, Rw As Long

' 从A列底部向上定位最后一个非空行
EndRw = Cells(Rows.Count, "A").End(xlUp).row
strSearch = "Complete"

' 尝试忽略#N/A错误
On Error Resume Next

For Rw = 2 To EndRw
    If InStr(Cells(Rw, "A").Value, SrchTerm) Then

        ' A是要移动的起始列，7是测试用的移动单元格数，实际要32个
        With Cells(Rw, "A").Resize(, 7)
            .Copy Sheets("Billed or Cancel...

现有代码的问题点 #

• 变量名不匹配：你定义了搜索关键词变量strSearch，但判断时却用了未定义的SrchTerm，运行时会直接报错
• 复制目标不完整：Copy Sheets("Billed or Cancel...这部分没写完，必须指定完整的目标工作表名称，以及要粘贴的位置
• 错误捕获不合理：On Error Resume Next会隐藏所有错误，包括变量名错误、工作表不存在等问题，不利于调试
• 循环方向有坑：从上往下循环时，如果删除原行，后续行的索引会乱，导致漏处理

修正后的可运行参考代码 #

Sub MoveCompleteRows()
    Dim wsOpen As Worksheet, wsTarget As Worksheet
    Dim lastRowOpen As Long, lastRowTarget As Long
    Dim searchTerm As String
    Dim i As Long
    
    ' 绑定工作表对象，避免硬编码的潜在问题
    Set wsOpen = ThisWorkbook.Worksheets("Open")
    ' 替换成你实际的目标工作表名称
    Set wsTarget = ThisWorkbook.Worksheets("Billed or Cancel")
    
    searchTerm = "Complete"
    ' 获取Open表A列最后一行
    lastRowOpen = wsOpen.Cells(wsOpen.Rows.Count, "A").End(xlUp).Row
    
    ' 从下往上循环，避免删除行后索引混乱
    For i = lastRowOpen To 2 Step -1
        ' 检查当前行A列是否包含"Complete"，不区分大小写
        If InStr(1, wsOpen.Cells(i, "A").Value, searchTerm, vbTextCompare) > 0 Then
            ' 找到目标表的第一个可用行
            lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row + 1
            
            ' 在目标表第一列填入月份（这里用当前系统月份，可根据你的需求修改）
            wsTarget.Cells(lastRowTarget, "A").Value = Month(Date)
            
            ' 复制当前行的32个单元格到目标表的第二列开始
            wsOpen.Cells(i, "A").Resize(, 32).Copy wsTarget.Cells(lastRowTarget, "B")
            
            ' 如果是"移动"而非复制，就删除原行；不需要的话注释掉这行
            wsOpen.Rows(i).Delete
        End If
    Next i
End Sub

代码细节说明 #

• 用wsOpen、wsTarget绑定工作表，比直接用Cells更清晰，也避免了当前工作表切换导致的错误
• 从下往上循环行，解决了删除行后后续行索引偏移的问题
• 加入vbTextCompare实现不区分大小写的搜索，适配更多场景
• 明确指定复制32个单元格到目标表的第二列，同时在第一列填入月份（默认取当前系统月份，你可以改成从其他单元格获取）
• 移除了盲目错误捕获，让代码的问题更容易排查

备注：内容来源于stack exchange，提问作者Scott