VBA实现字符匹配复制行至新工作簿遇对象定义错误求助

嘿，我来帮你搞定这个头疼的「对象定义错误」！从你的描述和代码片段来看，大概率是踩了几个VBA新手常犯的坑——比如乱用Select、Range引用不清晰，或者没正确创建新工作簿的对象。我给你梳理下问题，再给个靠谱的修正方案：

先说说你代码里可能出问题的地方 #

• Range("BN")引用不完整：你只写了列名没指定行，而且直接用Select的话，如果「HHP」工作表没激活，就会直接报错。VBA里尽量别用Select/Activate，直接操作对象才是稳的。
• 新工作簿对象没定义：你要粘贴到新工作簿，但如果代码里没创建并绑定这个新工作簿的对象，系统根本不知道要往哪贴，自然会报“对象不存在”的错。
• 参数冗余容易混乱：你的moveData传了一堆参数，但从需求来看其实没必要，反而容易把逻辑绕晕。

修正后的完整代码 #

直接用这个替代你的代码，记得把searchString改成你要找的字符串：

Sub CopyRowsToNewWorkbook()
    Dim sourceWS As Worksheet
    Dim newWB As Workbook
    Dim newWS As Worksheet
    Dim lastRow As Long
    Dim i As Long
    Dim targetRow As Long
    Dim searchString As String ' 你要查找的目标字符串
    
    ' 替换成你需要匹配的指定字符串，如果要找0就改成 searchString = "0"
    searchString = "你的目标字符串"
    
    ' 绑定源工作表，不用激活/选中
    Set sourceWS = ThisWorkbook.Worksheets("HHP")
    
    ' 创建新工作簿并绑定第一个工作表
    Set newWB = Workbooks.Add
    Set newWS = newWB.Worksheets(1)
    targetRow = 1 ' 新表的起始粘贴行
    
    ' 获取BN列最后一行数据的行号（避免遍历空行）
    lastRow = sourceWS.Cells(sourceWS.Rows.Count, "BN").End(xlUp).Row
    
    ' 逐行检查并复制
    For i = 1 To lastRow
        ' 检查当前行BN列是否包含目标字符串（不区分大小写）
        If InStr(1, sourceWS.Cells(i, "BN").Value, searchString, vbTextCompare) > 0 Then
            ' 直接复制整行到新工作表，不用复制粘贴分开写
            sourceWS.Rows(i).Copy Destination:=newWS.Rows(targetRow)
            targetRow = targetRow + 1 ' 下一次粘贴往下移一行
        End If
    Next i
    
    ' 自动调整新表列宽，看着舒服点
    newWS.Columns.AutoFit
    
    MsgBox "数据复制完成！", vbInformation
End Sub

关键改进点说明 #

1. 彻底抛弃Select/Activate：通过Set sourceWS = ...直接绑定工作表，不管当前激活的是哪个表，代码都能正常跑，从根源避免对象错误。
2. 明确绑定新工作簿对象：Set newWB = Workbooks.Add创建新工作簿后，用newWS绑定它的工作表，粘贴时目标明确，不会找不到对象。
3. 精准遍历数据行：用lastRow获取有效数据的最后一行，不会浪费时间遍历空行，也避免了引用超出数据范围的单元格。
4. 灵活匹配字符串：InStr函数支持模糊匹配，如果你的需求是精确匹配（比如单元格值就是0），把判断条件改成sourceWS.Cells(i, "BN").Value = 0就行。

最后排查小提示 #

如果还是报错，先检查这几点：

• 源工作表名称「HHP」是不是拼写完全正确（VBA对工作表名称大小写敏感）
• 目标字符串有没有设置对，比如要找0的话别写成了"O"
• 电脑有没有权限创建新工作簿（比如文件夹被锁定）

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