Многочисленные формулы в книге Excel приводят к увеличению размера файла. Уменьшить размер можно макросом, преобразовав формулы в значения, разумеется, если вам они больше не нужны, для дальнейших расчётов.
Копируйте код и сохраните его в Личной книге макросов.
Макрос для преобразования формул в значения в одном или нескольких выделенных диапазонах:
Sub FormulasToValuesSelection()
'Преобразование формул в значения в выделенном диапазоне(-ах)
Dim rgSelection As Range
For Each rgSelection In Selection.Areas
rgSelection.Value = rgSelection.Value
Next rgSelection
End Sub
Макрос для преобразования формул в значения на текущем листе книги:
Sub FormulasToValuesSheet()
'Преобразование формул в значения на активном листе
ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value
End Sub
Макрос для преобразования формул в значения во всей книге:
Sub FormulasToValuesBook()
'Преобразование формул в значения во всей книге
For Each ws In ActiveWorkbook.Worksheets
ws.UsedRange.Value = ws.UsedRange.Value
Next ws
End Sub
Если последний макрос не работает попробуйте:
Sub FormulasToValuesBook()
'Преобразование формул в значения во всей книге
Dim s, n As Integer
Application.ScreenUpdating = False
'Удаляем формулы
n = 1
For s = 1 To Application.Worksheets.Count
Worksheets(n).Activate
Cells.Select
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Cells(1, 1).Select 'возврат в ячейку А1
n = n + 1
Next
End Sub
Открыть редактор VBA Alt +F11:
Вызвать меню для выполнения или изменения макросов Alt + F8:
На выполнение макроса можно назначить "Горячие клавиши", нажав в окне Параметры:
В поле Сочетание клавиш введите прописные или строчные буквы, которые вы хотите использовать. Важен регистр и язык. Нельзя назначить макрос на функциональные клавиши Excel.
- Для Windows сочетание клавиш для строчных букв — Ctrl + буква. Для прописных букв — Ctrl + Shift + БУКВА.
- Для Mac сочетание клавиш для строчных букв — Option + Command + буква или Ctrl + буква. Для прописных букв — Ctrl + Shift + буква.
Спасибо, что дочитали до конца!
Если Вам было интересно, ставьте лайк, пишите, что думаете в комментариях и подписывайтесь на канал, если еще не сделали этого.
