repost:复制粘贴数据而不是公式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进一步剥离了这个值，比如18-2015-2015年2月18日变成了42053个。如果您已经在单元格中使用了数字格式(例如，18-2015年2月-2015年)并希望保留它，请使用.Text代替.Value。