Как очистить ячейки в excel но сохранить формулы

Удаление формул

При удалении формулы также удаляется ее результат. Если вы не хотите удалять значение, можно удалить только формулу.

Удаление формулы

Вы выберите ячейку или диапазон ячеек, содержащих формулу.
Нажмите клавишу DELETE.

Удаление формулы с сохранением результатов

Для этого нужно скопировать формулу, а затем вкопировать ее в ту же ячейку с помощью параметра Вировать значения.

Выберем ячейку или диапазон ячеек, которые содержат формулу.
Если формула является формулой массива, необходимо сначала выбрать все ячейки в диапазоне ячеек, которые содержат формулу массива:
1. Щелкните ячейку в формуле массива.
2. На вкладке Главная в группе Редактирование нажмите кнопку Найти и выделить, а затем выберите команду Перейти.
3. Нажмите кнопку Дополнительный.
4. Выберите текущий массив.
Удаление формулы массива

Чтобы удалить формулу массива, выберите все ячейки в диапазоне ячеек, которые содержат формулу массива. Для этого:
1. Щелкните ячейку в формуле массива.
2. На вкладке Главная в группе Редактирование нажмите кнопку Найти и выделить, а затем выберите команду Перейти.
3. Нажмите кнопку Дополнительный.
4. Выберите текущий массив.
5. Нажмите клавишу DELETE.
Удаление формулы с сохранением результатов
1. Выберем ячейку или диапазон ячеек, которые содержат формулу.
2. Щелкните Главная >Копировать (или нажмите CTRL+C).
3. Щелкните главная > под кнопкой В >в таблице.
Дополнительные сведения

Вы всегда можете задать вопрос эксперту в Excel Tech Community или получить поддержку в сообществах.

Как очистить ячейки в excel но сохранить формулы

Argument ‘Topic id’ is null or empty

Сейчас на форуме

© Николай Павлов, Planetaexcel, 2006-2023
info@planetaexcel.ru

Использование любых материалов сайта допускается строго с указанием прямой ссылки на источник, упоминанием названия сайта, имени автора и неизменности исходного текста и иллюстраций.

ООО «Планета Эксел»
ИНН 7735603520
ОГРН 1147746834949 ИП Павлов Николай Владимирович
ИНН 633015842586
ОГРНИП 310633031600071

покупка

Как удалить все данные, но сохранить формулы в Excel?

Если у вас есть рабочий лист с несколькими данными, включая числа, тексты и формулы, и вы просто хотите удалить все данные, но сохранить формулы на этом листе, как вы можете это сделать?

You may interest in:

Easily highlight all cells with formulas in the whole workbook in Excel

Click Enterprise > Worksheet Design to enable the Design tab, click the Highlight Formulas button, then all cells with formulas in the whole workbook are highlighted immediately. See below screenshot:

Kutools for Excel includes more than 300 handy Excel tools. Free to try with no limitation in 60 days. Read More Download the free trial now

Удалите все данные, но сохраните формулы с помощью функции «Перейти к специальной» в Excel

В Excel нет функции прямого или быстрого удаления всех данных, кроме формул, но вы можете использовать Перейти к специальному функция, чтобы сначала выбрать все данные, кроме формул, а затем удалить их.

1. Выберите диапазон, в котором нужно удалить все данные, кроме формул, нажмите Ctrl + G клавиши одновременно, чтобы открыть Перейти к диалоговое окно, затем щелкните Special в диалоговом окне, чтобы открыть Перейти к специальному диалог. Смотрите скриншоты:

2. Затем в Перейти к специальному диалог, проверьте Константы и нажмите OK чтобы закрыть диалог. Смотрите скриншот:

3. Теперь все данные, кроме формул, выбраны, и нажмите Удалить кнопку на клавиатуре или щелкните правой кнопкой мыши, чтобы выбрать Удалить для удаления всех данных, кроме ячеек люма.

Удалите все формулы, но сохраните данные с помощью Kutools for Excel

Напротив, в этом разделе мы покажем вам, как удалить все формулы из выбранного диапазона, но сохранить данные в Excel.

Перед применением Kutools for Excel, Пожалуйста, сначала скачайте и установите.

1. Выберите диапазон с формулами, которые вы хотите удалить, но сохранить данные, затем щелкните Кутулс > К фактическому. Смотрите скриншот:

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

Если вы хотите получить бесплатную (30-дневную) пробную версию этой утилиты, пожалуйста, нажмите, чтобы загрузить это, а затем перейдите к применению операции в соответствии с указанными выше шагами.

Относительные статьи:

Как удалить в ячейке формулу, оставив значения?

Иногда формула в ячейке нужна лишь на короткое время — только для получения результата. А затем уже не нужна ни сама формула, ни ячейки, на которые она ссылается. Но вот беда — если удалить ячейки, то формула «ломается», как это говорится. Т.е. в ячейке получается либо #ЗНАЧ! либо #ССЫЛКА! . А иногда необходимо просто зафиксировать значение, полученное в результате работы формулы. Т.е. чтобы формулы там не было, а было только значение. Как ни странно, но делается это проще простого:
Выделяем ячейку(несколько ячеек) с формулами -Копируем -Правая кнопка мыши — Специальная вставка (Paste Special) —Значения (Values) .

КАК БЫСТРО ВЫЗЫВАТЬ СПЕЦИАЛЬНУЮ ВСТАВКУ ЗНАЧЕНИЙ:
Данную команду можно вынести на Панель быстрого доступа и использовать в одно нажатие тогда, когда нужно. Как это сделать:
- 2010 Excel и вышеФайл— Параметры— Настройка. В выпадающем списке Выбрать команды из: выбираем Все команды. Находим команду Вставить значения и добавляем
- 2007 ExcelМеню— Параметры Excel— Настройка. В выпадающем списке Выбрать команды из: выбираем Все команды. Находим команду Вставить значения и добавляем
- 2003 Excel: Сервис— Настройка— вкладка Команды— категория Правка— Вставить значения.
Теперь в Панели быстрого доступа появится значок Вставка значений.

Вставка значений при помощи кода на Visual Basic for Application
Тоже самое можно сделать при помощи кода VBA:
```
Sub Formulas_To_Values() Selection.Value = Selection.Value End Sub
```
Sub Formulas_To_Values() Selection.Value = Selection.Value End Sub

Как использовать: Для начала надо убедиться, что разрешены макросы и при необходимости включить их: почему не работает макрос. Затем копируем код выше, из Excel переходим в редактор VBA( Alt + F11 ) —Insert —Module. Вставляем туда скопированный код. Теперь код можно вызывать нажатием клавиш Alt + F8 -выделяем Formulas_To_Values —Выполнить (Run) .
Данный код заменяет формулы в выделенном диапазоне на значения. Только необходимо учитывать, что выделенный диапазон должен быть неразрывным. Иначе код выдаст ошибку. А такой код:
```
Sub All_Formulas_To_Values() ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value End Sub
```
Sub All_Formulas_To_Values() ActiveSheet.UsedRange.Value = ActiveSheet.UsedRange.Value End Sub

заменит все формулы на значения во всех ячейках листа. При этом будут разорваны все связи на данном листе. Так же этот код заменит все формулы даже если на листе применен фильтр(т.е. замена будет и в скрытых фильтром ячейках). Это стоит учитывать. Кстати, иногда именно для этого и применяют подобный код.
Так же следует помнить, что после выполнения практически любого макроса буфер обмена Excel очищается и отменить действие макроса невозможно. Поэтому все действия и «испытания» лучше производить на копиях данных. Но если все же заменили на рабочем файле — можно попробовать закрыть книгу без сохранений.

А следующий код заменит формулы на значения во всех ячейках на всех листах активной книги:
```
Sub All_Formulas_To_Values_In_All_Sheets() Dim wsSh As Worksheet For Each wsSh In Worksheets wsSh.UsedRange.Value = wsSh.UsedRange.Value Next wsSh End Sub
```
Sub All_Formulas_To_Values_In_All_Sheets() Dim wsSh As Worksheet For Each wsSh In Worksheets wsSh.UsedRange.Value = wsSh.UsedRange.Value Next wsSh End Sub

У этого кода нюансы со связями и скрытыми ячейками точно такие же, как и у предыдущего, но уже в масштабах всех листов книги. Плюс, даже если какие-то листы скрыты — замена будет произведена и на них тоже.

А вот код ниже более интересен с точки зрения повседневного использования: он заменить формулы на значения только в видимых ячейках выделенного диапазона. Может пригодиться, если заменить надо формулы при установленном фильтре или в несмежных областях:
```
Sub All_Formulas_To_Values_OnlyVisible() Dim rRng As Range, rArea As Range If Selection.Count = 1 Then Set rRng = ActiveCell Else Set rRng = Selection.SpecialCells(12) End If For Each rArea In rRng.Areas rArea.Value = rArea.Value Next rArea End Sub
```
Sub All_Formulas_To_Values_OnlyVisible() Dim rRng As Range, rArea As Range If Selection.Count = 1 Then Set rRng = ActiveCell Else Set rRng = Selection.SpecialCells(12) End If For Each rArea In rRng.Areas rArea.Value = rArea.Value Next rArea End Sub

ДОБАВИТЬ КОМАНДУ «ВСТАВИТЬ ЗНАЧЕНИЯ» В КОНТЕКСТНОЕ МЕНЮ:
Если один раз выполнить код ниже, то в контекстном меню по правому клику мыши появится стандартная команда Вставить значения (Insert Values) . Она полностью дублирует стандартную, только вызвать её быстрее — одно нажатие и все.:
```
Sub Add_PasteSpecials() Dim cbb Set cbb = Application.CommandBars("Cell").FindControl(ID:=370) If Not cbb Is Nothing Then cbb.Delete 'удаляем пункт, если он был уже добавлен ранее Application.CommandBars("Cell").Controls.Add ID:=370, before:=4 End Sub
```
Sub Add_PasteSpecials() Dim cbb Set cbb = Application.CommandBars(«Cell»).FindControl(ID:=370) If Not cbb Is Nothing Then cbb.Delete ‘удаляем пункт, если он был уже добавлен ранее Application.CommandBars(«Cell»).Controls.Add ID:=370, before:=4 End Sub

Статья помогла? Поделись ссылкой с друзьями!
Похожие публикации: