Question

我正在尝试将 4 列及其数据从 GraphColumns 工作表（有 2666 行）复制到名为 Graph Data 的同一工作簿中的另一个工作表。我想把它粘贴到Graph Data的最后一行12155。我的代码如下：

Sub C_P()
Dim lastrow As Integer

lastrow = Range("A" & Rows.Count).End(xlUp).Row


LR = ActiveSheet.Range("A" & Rows.Count).End(xlUp).Row
Range("A2:D" & LR).Copy Destination:=Sheets("Graph Data").Range("A12155")

End Sub

我的 lastrow 没有做任何我知道的事情。我只希望宏将 .Range("last row of Graph Data") 粘贴到 A12155 而不调用它，因为随着我们的进展，我将需要它来获取未来的数据。

Answer 1

也许您正在寻找类似的东西：

Sub C_P()

'Declare worksheets and variables
Dim GD As Worksheet: Set GD = ThisWorkbook.Sheets("Graph Data")
Dim GC As Worksheet: Set GC = ThisWorkbook.Sheets("Graph Columns")
Dim lr As Long

'Determine Graph Columns Range Size & Copy
lr = GC.Range("A" & GC.Rows.Count).End(xlUp).Row
GC.Range("A2:D" & lr).Copy

'Paste in first blank row on Graph Data
GD.Range("A" & (GD.Range("A" & GD.Rows.Count).End(xlUp).Offset(1).Row)).PasteSpecial xlPasteValues

End Sub

如果你真的将数据粘贴到静态行，那么你可以将最后一行更改为

GD.Range("A12155").PasteSpecial xlPasteValues

VBA - 使用范围函数从一张纸复制并粘贴到另一张纸

1 个答案: