Question

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

    '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

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

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

VBA Excel Book to Book复制单元格值不是公式

2 个答案: