repot:复制粘贴数据，而不是公式excel VBA

Question

好的，我必须转发这个，因为我的原始线程被标记为重复，"原始"线程与我的问题无关，而将其标记为欺骗的人无法提供答案。

我在代码中使用activecell是有原因的，因为它与outlook进行交互，并验证来自其他单元格的某些条件。

ActiveCell.Cells(1, 37).Copy Destination:=wsTest.Range("A" & Rows.Count).End(xlUp).Offset(1)

现在我试过了：

ActiveCell.Cells(1, 37).Copy Destination:=wsTest.Range("A" & Rows.Count).End(xlUp).Offset(1).pastespecial

但是我得到了错误1004。

如果有人能告诉我：如何在excel 中只粘贴值

请告诉我4个答案中的哪一个会真正起作用，因为它们对我来说都不起作用。

Answer 1

反转过程并直接传递值。

wsTest.Range("A" & Rows.Count).End(xlUp).Offset(1) = ActiveCell.Cells(1, 37).value

.Value是单元格中的原始基础值，如果单元格包含公式，则是公式的结果。.Value2进一步剥离值，其中2015年2月18日等日期变为42053。如果您在单元格中使用了数字格式（例如2015年2月18日）并希望保留它，请使用.Text代替.Value。