VBA Excel书来复制单元格值不公式

我已经开发了（在stackoverflow用户的帮助下：@ xificurC）一个Excel中的VBAmacros，它复制一定范围的单元格并将它们粘贴到单独的工作簿的表中。 但是这些表格上有一些公式与我的帐户上的用户权限不可用的数据片断有关。 所以我的问题是如何复制实际的单元格的面值而不是公式。

'get all excel files (and only excel files) from specified folder file_checks = Dir(path & "\*.xls*") Do Until file_checks = "" 'open file Set wkbklp = Workbooks.Open(path & "\" & file_checks) Set wkshtlp = wkbklp.Sheets(1) 'copy data away from original Set data_return = wkshtlp.Range(start_cell).CurrentRegion data_return.Copy check_sheet.Cells(check_sheet.Rows.Count, "B").End(xlUp).Offset(1, 0) 'close file without saving to make it all more automated wkbklp.Close False 'loop through files until all are done file_checks = Dir Loop 

这是将数据从一本书转移到另一本的代码。 我还没有find这样的命令，但我只是业余的，所以可能使用了错误的关键词。

Answer 1

尝试使用pastespecial。

  data_return.Copy check_sheet.Cells(check_sheet.Rows.Count, "B").End(xlUp).Offset(1, 0).PasteSpecial xlPasteValues 

Answer 2

你可以使用pastespecial方法，我没有看到你在哪里粘贴，但会是这样的

 Range.PasteSpecial Paste = xlPasteValues