vba - 宏仅将值从一张纸复制到另一张纸

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