Скопируйте листы с udf в новую книгу

Question

У меня есть книга с 5 листами, заполненными UDF (пользовательские функции).
Мне нужно скопировать эти 5 листов в новую книгу, но мне нужны только значения.
Проблема в том, что при копировании этих листов все ячейки с UDF были сломаны с # значением на нем, потому что у меня нет моих макросов в этой новой книге.

Я не могу скопировать модуль, потому что многие пользователи будут использовать эту книгу, и, возможно, их Excel не позволит мне манипулировать vba project.

Я пытался копировать и вставлять только значения между книгой, но это не работает. Я думаю, это потому, что у моего листа много объединенных строк и столбцов. Excel показывает сообщение об ошибке. Я буду переводить с португальского на английский здесь, может быть, Excel не использует это именно так:

Эта опция требует, чтобы объединенные ячейки были одинакового размера.

Я не понимаю эту ошибку. Я даже попытался сделать это вручную: скопируйте весь лист (щелкните правой кнопкой мыши, переместите и скопируйте), затем выберите весь использованный диапазон в моей оригинальной книге ctrl + c, затем выберите первую ячейку в новой книге, затем ctrl + v и затем вставьте только значения. И Excel вызывает ошибку. Я также попытался выбрать весь диапазон в новой книге, прежде чем нажимать ctrl + v. Та же проблема.

Я не знаю, что делать. То, что я делаю сейчас, это копирование и вставка только значений в мою оригинальную книгу, а затем копирование всего листа в новую книгу. Проблема в том, что это действие уничтожает мою первоначальную книгу, поэтому я должен закрыть ее и снова открыть, чего я не хотел делать.

У кого-нибудь есть идеи о том, как действовать?

Answer 1

Попробуйте эти шаги

1. Копирование на листы внутри существующего файла.
2. Скопируйте, затем вставьте значения всей информации на вновь скопированном листе (в существующем файле)
3. Переместите только что скопированные (и вновь вставленные значения) лист в новый файл.

Answer 2

Попробуйте это:

• Скопируйте полный файл с помощью SaveAs
• В копии файла перейдите к каждой из целевых листов.
• правой кнопкой мыши верхнюю левую ячейку и выберите копию:

• Затем щелкните правой кнопкой мыши еще раз и выберите вставить только специальные значения выбора.
• Теперь удалите все листы, которые вы не хотите включать.

Answer 3

Учитывая вы просили код, вы можете автоматизировать 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