重新发布：复制粘贴数据而不是公式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。

如果有人会在此指出我：how to paste only values in excel

请告诉我4个答案中哪一个确实有效，因为没有一个能在我的工作中完成。

Answer 1

反转程序并直接传递该值。

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

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