VBA按M列数值条件复制行到目标表下一个可用空行问题求助

原有代码问题梳理 #

• 目标行起始值设置错误：原代码固定将DestinationRow赋值为2，每次运行都会从Order表第2行开始覆盖已有的历史数据，无法自动识别当前已有数据的下一个空行。
• 缺少值合法性校验：当Search表M列存在空值、文本内容、公式错误值时，直接执行>0判断会触发运行时错误，或导致符合条件的行被漏判。
• 遍历边界存在风险：UsedRange会包含表格历史使用过的空行，可能出现无效遍历，甚至误判空行符合条件。

修正后完整代码 #

Sub CopySomeCells()
    Dim SourceSheet As Worksheet
    Dim DestinationSheet As Worksheet
    Dim SourceRow As Long
    Dim DestinationRow As Long
    Dim SourceLastRow As Long
    
    ' 绑定工作表，使用ThisWorkbook避免激活其他工作簿时出错
    Set SourceSheet = ThisWorkbook.Sheets("Search")
    Set DestinationSheet = ThisWorkbook.Sheets("Order")
    
    ' 自动计算Order表下一个可用空行：以粘贴起始列B列为基准找最后非空行，行号+1即为空行
    DestinationRow = DestinationSheet.Cells(DestinationSheet.Rows.Count, "B").End(xlUp).Row + 1
    ' 如果Order表完全空白，默认从第2行开始（保留第1行做表头）
    If DestinationRow < 2 Then DestinationRow = 2
    
    ' 计算Search表M列最后有数据的行，缩小遍历范围
    SourceLastRow = SourceSheet.Cells(SourceSheet.Rows.Count, "M").End(xlUp).Row
    
    For SourceRow = 2 To SourceLastRow
        ' 先判断M列是数值，再判断是否大于0，避免报错
        If IsNumeric(SourceSheet.Range("M" & SourceRow).Value) Then
            If SourceSheet.Range("M" & SourceRow).Value > 0 Then
                ' 复制A列到AC列（共29列）到目标行的B列起始位置，和原代码逻辑一致
                SourceSheet.Range(SourceSheet.Cells(SourceRow, 1), SourceSheet.Cells(SourceRow, 29)).Copy _
                    DestinationSheet.Cells(DestinationRow, 2)
                DestinationRow = DestinationRow + 1
            End If
        End If
    Next SourceRow
    
    ' 清空剪贴板
    Application.CutCopyMode = False
    
    ' 释放对象
    Set SourceSheet = Nothing
    Set DestinationSheet = Nothing
End Sub

可选优化说明 #

如果不需要复制单元格格式、只想粘贴数值，可以替换Copy方法为直接赋值，运行效率更高：

' 替换原有Copy行的代码
DestinationSheet.Range(DestinationSheet.Cells(DestinationRow, 2), DestinationSheet.Cells(DestinationRow, 30)).Value = _
SourceSheet.Range(SourceSheet.Cells(SourceRow, 1), SourceSheet.Cells(SourceRow, 29)).Value

额外排查方向 #

如果修正后仍无法复制数据，请确认：

• 工作表名称拼写完全正确，无多余空格、大小写不匹配问题
• M列大于0的数值为数值格式，不是文本格式存储的数字
• 代码运行时未启用工作表保护，允许写入内容

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