excel - 将数据粘贴到“A4”的下一个空白中

Question

我有4个标签..

第 1 年、第 2 年、第 3 年，总支出。

第 1 年在总支出选项卡中粘贴如下：

https://i.stack.imgur.com/SegGE。

现在，我需要将第 2 年和第 3 年的数据从第 4 行向下复制并粘贴到 Total Spend 的下一行空白中。

这是我用来标记第 2 年和第 3 年范围并尝试在 A 列中找到第一个空白单元格以粘贴数据的代码。

我不知道为什么这不起作用。它不会在任何位置粘贴任何内容。

    Dim Year2 As Range
Dim Year3 As Range
Dim Location As Range

Set Year2 = Sheets("Year 2 Data").Range("4:4").End(xlDown)
Set Year3 = Sheets("Year 3 Data").Range("4:4").End(xlDown)
Set Location = Sheets("Total Spend").Cells(Rows.Count, 1).End(xlUp)
If Len(Location.Value) > 0 Then Set Location = Location.Offset(1)


 ' This paste is manual so Row 2 stays blank - this is needed in formatting later on. 

    Sheets("Year 1 Data").Select
    Cells.Select
    Selection.Copy
    Sheets("Total Spend").Select
    Cells.Select
    ActiveSheet.Paste

Year2.Copy Location

Year3.Copy Location

标签： excelvbacopy-pastecopyingpasting

Answer 1

用这个

'    Range(Sheets("Year 2 Data").Range("4:4"), Sheets("Year 2 Data").Range("4:4").End(xlDown))

代替

Sheets("Year 2 Data").Range("4:4").End(xlDown)

同样的事情将适用于表格（“第 3 年数据”）