基于单元格值复制整行至另一工作表的VBA代码报错求助

原代码问题分析 #

• EntireRow.EntireRow是无效语句，既未指定所属的单元格/行对象，也没有执行复制、粘贴的核心操作
• 变量I未初始化，也无循环逻辑遍历Sheet1的每一行
• 数据范围Range("b2:w185" & P)写法错误，无法正确定位目标区域
• 使用字符串比较CStr(DataRg(I).Value) >= "3000"会导致非预期结果（比如字符串"900"会被判定为大于"3000"）
• 逻辑缺失：未实现检查每行任意单元格是否满足≥3000的条件

修正后的完整代码 #

Sub CopyRowsWithHighValue()
    Dim wsSource As Worksheet
    Dim wsTarget As Worksheet
    Dim lastRowSource As Long
    Dim lastRowTarget As Long
    Dim currentRow As Long
    Dim cell As Range
    Dim hasHighValue As Boolean
    
    ' 定义工作表对象
    Set wsSource = ThisWorkbook.Worksheets("Sheet1")
    Set wsTarget = ThisWorkbook.Worksheets("Sheet2")
    
    ' 关闭屏幕更新提升运行速度
    Application.ScreenUpdating = False
    
    ' 获取Sheet1最后一行行号
    lastRowSource = wsSource.Cells(wsSource.Rows.Count, "A").End(xlUp).Row
    
    ' 遍历Sheet1的每一行（从第1行开始，可根据实际表头调整起始行）
    For currentRow = 1 To lastRowSource
        hasHighValue = False
        ' 检查当前行的所有单元格（若需限定列范围，可改为wsSource.Range("A" & currentRow & ":D" & currentRow)）
        For Each cell In wsSource.Rows(currentRow).Cells
            ' 只检查数值型单元格，避免文本干扰
            If IsNumeric(cell.Value) Then
                If cell.Value >= 3000 Then
                    hasHighValue = True
                    Exit For ' 找到符合条件的单元格，直接跳出内层循环
                End If
            End If
        Next cell
        
        ' 如果当前行符合条件，复制到Sheet2
        If hasHighValue Then
            ' 获取Sheet2的最后空行
            lastRowTarget = wsTarget.Cells(wsTarget.Rows.Count, "A").End(xlUp).Row
            ' 复制整行并直接粘贴到目标位置
            wsSource.Rows(currentRow).Copy Destination:=wsTarget.Cells(lastRowTarget + 1, "A")
        End If
    Next currentRow
    
    ' 恢复屏幕更新
    Application.ScreenUpdating = True
    MsgBox "完成！已复制符合条件的行到Sheet2"
End Sub

代码关键说明 #

• 使用工作表对象wsSource和wsTarget，简化代码并提升可读性
• 动态获取最后一行行号，适配数据行数的变化
• 内层循环仅针对数值型单元格判断，避免文本内容引发报错
• 找到符合条件的单元格后立即跳出内层循环，提升运行效率
• 复制时直接指定粘贴目标，无需单独执行粘贴操作，简化逻辑

测试示例 #

Sheet1原始数据：

a  10   100   4000
b  15   102   2900
c  3000 3010  129

运行代码后Sheet2结果：

a  10   100   4000
c  3000 3010  129

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