将带有udf的工作表复制到新工作簿

Question

我有一张包含5张UDF（用户自定义函数）的工作簿 我需要将这5张纸复制到新工作簿中，但我只需要这些值 问题是，当我复制这些工作表时，所有使用UDF的单元格都被#value打破了，因为我没有在这个新工作簿上使用我的宏。

我无法复制该模块，因为许多用户将使用此工作簿，并且他们的Excel可能不允许我操纵vba project。

我尝试仅在工作簿之间复制和粘贴值，但它不起作用。我认为这是因为我的工作表有很多合并的行和列。 Excel显示错误消息。我会在这里将葡萄牙语翻译成英语，也许Excel并没有使用这种方法：

  

此选项要求合并的单元格大小相同。

我不明白这个错误。我甚至尝试手动执行此操作：复制整个工作表（右键单击，移动和复制），然后选择我原始工作簿上的所有使用范围，ctrl + c，然后选择新工作簿中的第一个单元格，然后按ctrl + v和然后只粘贴值。并且Excel抛出错误。我还尝试在按下ctrl + v之前在新工作簿上选择整个范围。同样的问题。

我不知道该怎么做。我现在正在做的是仅复制和粘贴原始工作簿中的值，然后将整个工作表复制到新工作簿。问题是这个动作破坏了我原来的工作簿，所以我必须关闭它并重新打开，我不想做的事。

任何人都知道如何继续？

Answer 1

尝试以下步骤

1. 复制现有文件中的工作表。
2. 复制然后粘贴新复制的工作表中的所有信息（在现有文件中）
3. 将新复制的（和新粘贴的值）工作表移动到新文件。

Answer 2

鉴于您要求代码，您可以自动执行guitarthrower的solution，如下所示（您将在下面的图书中更改您的工作表名称）

Sub Redone()
Dim WB As Workbook
Dim ws As Worksheet

'runs on ActiveWorkbook
Set WB = ActiveWorkbook
WB.Sheets(Array("Sheet1", "Sheet2", "Sheet3", "Sheet4", "Sheet5")).Copy

'converts formulae to values on new workbook with the 5 specific sheets
For Each ws In ActiveWorkbook.Sheets
    ws.UsedRange.Value = ws.UsedRange.Value
Next

End Sub

Answer 3

试试这个：

• 使用SaveAs
复制整个文件
• 在文件副本中转到每个目标表。
• 右键单击左上角的单元格，然后选择复制：

• 然后再次右键单击并选择仅粘贴特殊选择值。
• 现在删除您不想包含的所有工作表。