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

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

+1仅适用于复制值的正确方法 (4认同)
你应该使用`Sheets("data").Cells(Sheets("data").Rows.Count,"A")`因为没有限定符的`Rows`评估为ActiveSheet.我没有改变,因为你说'完美复制'! (2认同)