宏仅将值从一个工作表复制到另一个工作表

Question

我有这个VBA代码

Sheets("log").Range("A125:f1000").Copy _ 
Sheets("data").Cells(Rows.Count, "A").End(xlUp).Offset(1)

并将其从表格log完美复制到data。我面临的唯一问题是它也会复制公式，而我只想要值。我想使用相同的VBA代码，仅对粘贴值进行一些修改。

Answer 1

不使用剪贴板：

Sheets("data").Cells(Rows.Count, "A").End(xlUp).Offset(1).Value = Sheets("log").Range("A125:f1000").Value

Answer 2

需要添加PasteSpecial Paste:=xlPasteValues

下次尝试录制宏并修改代码

Sheets("log").Range("A125:f1000").Copy
Sheets("data").Cells(Rows.Count, "A").End(xlUp).Offset(1). _ 
PasteSpecial Paste:=xlPasteValues, _ 
Operation:=xlNone, SkipBlanks:=False, Transpose:=False