excel - 复制并粘贴到另一个工作表的第一个空行，如果第一个单元格为空，则粘贴到上一行

Question

我正在从一张纸( B14:I14 )中复制一个范围，并将值粘贴到第一个空行中的另一张纸上。如果范围在第一个单元格中有数据( B14 )，这可以正常工作。

当某些单元格中有数据但 B14 没有数据时，下次它粘贴到与我上次执行宏时相同的行上。

范围会因所有包含数据的单元格或仅包含两个单元格而异。我需要它来检查目标行是否为空，而不仅仅是第一个单元格。

这是我的宏:

Sub Save7()
    Dim NextRow As Range
    With Sheets("Sheet3")
        Set NextRow = .Cells(.Rows.Count, 2).End(xlUp).Offset(1, 0)
    End With
    Sheet1.Range("B14:I14").Copy
    NextRow.PasteSpecial Paste:=xlValues, Transpose:=False
    Application.CutCopyMode = False
    Set NextRow = Nothing
End Sub

Answer 1

我建议使用这个:

Sub Save7()
    Dim NextRow As Range
    Set NextRow = Range("B" & Sheets("Sheet3").UsedRange.Rows.Count + 1)
    Sheet1.Range("B14:I14").Copy
    Sheet3.Activate
    NextRow.PasteSpecial Paste:=xlValues, Transpose:=False
    Application.CutCopyMode = False
    Set NextRow = Nothing
End Sub

那应该很好用。 UsedRange 检查所有列，因此如果 B 为空，则不会覆盖它。唯一的问题是如果第一行是空白的，但你可以在那里添加标题数据，或者其他东西，它不会再被它打扰。当第一行为空白时，UsedRange.Rows.Count 仍然输出 1。享受吧!