Excel vba中的范围，空行

【问题标题】：Range, empty row in Excel vbaExcel vba中的范围，空行
【发布时间】：2014-04-16 10:23:13
【问题描述】：

我找到了一个用于在 excel 中选择下一个空行的 sn-p，但是当我运行宏时它告诉我它会引发运行时错误 1004。知道为什么吗？

Sub CopyValues()

Sheets("Report").Select
Range("B4:D10").Select
Selection.Copy
Sheets("Data").Select
Range("A1").End(xlDown).Offset(1, 0).Select
ActiveSheet.Paste

End Sub

是的，工作表名称是正确的。 Range("A1").End(xlDown).Offset(1, 0).Select 抛出错误

【问题讨论】：

标签： excel vba

【解决方案1】：

Sub CopyValues()
    Sheets("Report").Range("B4:D10").Copy _
        Destination:=Sheets("Data").Range("A" & Sheets("Data").Range("A" & Rows.Count).End(xlUp).Row + 1)
End Sub

【讨论】：

但我现在注意到它总是将数据复制到同一个单元格上。知道为什么吗？似乎“没有”找到下一个空行
Nope-Down 是正确的。如果我从下往上开始，Up 会按预期工作
@Michael 好吧，你应该在你的问题中提到你是从下往上开始的，呵呵
我不是。我想从上到下开始