小编use*_*081的帖子

我正在从一张纸 ( 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