将数据从源 sheet 复制到目标 sheet 的最后一行

Question

我想用代码执行标题任务

Sub COPYTOLASTROW()
Dim LRDest As Long, SrcRng As Range
With Sheets("source")
Set SrcRng = .Range("B16:E20")
End With
With Sheets("summary")
LRDest = .Cells(.Rows.Count, 1).End(xlUp).Row
SrcRng.Copy .Cells(LRDest + 1, 1)
End With
End Sub

以上代码基于线程。

但是，我只想将 VALUES 粘贴到目标位置。我应该如何处理上面的代码？

Answer 1

替换：

SrcRng.Copy .Cells(LRDest + 1, 1)

与：

SrcRng.Copy 
.Range("A" & LRDest + 1).PasteSpecial paste:= xlPasteValues
Application.CutCopyMode = False

将数据从源 sheet 复制到目标 sheet 的最后一行

copy data from source sheet to last row of destination sheet

excel

vba

copy-paste