Excel макрос на очистку ячеек

Метод Range.Clear для полной очистки диапазона ячеек из кода VBA Excel. Методы очистки отдельных свойств и их групп в ячейках. Примеры использования.

Методы очистки ячеек

Метод	Очищаемые свойства	Примечание
Range.Clear	Почти все свойства	Ширина и высота ячеек не изменяются
Range.ClearComments	Комментарии	Для Excel в составе Office 365
Range.ClearContents	Формулы и значения	Исходное форматирование сохраняется
Range.ClearFormats	Свойства, задающие форматы	В том числе отмена объединения ячеек
Range.ClearHyperlinks	Гиперссылки	Текст и форматирование сохраняются
Range.ClearNotes	Примечания и заметки	Примечания – для локальных программ Excel, заметки – для Excel в составе Office 365
Range.ClearOutline	Структура данных	Смотрите, что такое структурирование данных

Range – выражение, возвращающее диапазон ячеек.

Примеры использования

1. Удаление гиперссылки из ячейки A1
Cells(1, 1).ClearHyperlinks

2. Очистка диапазона A1:L50 от формул и значений
Range("A1:L50").ClearContents

3. Очистка всех свойств ячеек в столбцах A:K
Columns("A:K").Clear

4. Очистка форматирования ячеек в строках 1:20
Rows("1:20").ClearFormats

Методы очистки диапазонов ячеек в VBA Excel возвращают очищаемые свойства ячеек к значениям по умолчанию. К таким, как на вновь созданном стандартном рабочем листе. При любых методах очистки высота строк и ширина столбцов не изменяются.

Фразы для контекстного поиска: очистка ячеек, очистка ячейки, очистка формул, очистка от формул, удаление формул, очистка значений, удаление значений, очистка форматов, удаление форматирования, удаление форматов.

Источник

Обычно вы можете удерживать Ctrl нажмите клавишу, чтобы выбрать несколько конкретных ячеек, а затем очистите содержимое ячейки по мере необходимости. Если вам всегда нужно время от времени очищать эти конкретные ячейки, вы можете создать кнопку очистки, чтобы очистить их одним щелчком мыши. В этой статье я расскажу о том, как создать кнопку «Очистить все», чтобы очистить определенное содержимое ячеек.

Применить кнопку, чтобы очистить конкретное содержимое ячейки с помощью кода VBA

Применить кнопку, чтобы очистить конкретное содержимое ячейки с помощью кода VBA

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

1. Нажмите Вставить > Формы > Прямоугольники , чтобы выбрать форму прямоугольника, а затем перетащите мышь, чтобы нарисовать кнопку прямоугольника в любом месте листа, как вам нужно, см. снимок экрана:

2. Затем введите текст и отформатируйте кнопку формы, как вам нужно, см. Снимок экрана:

3. Затем вы должны вставить код VBA, удерживая ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

Код VBA: очистить содержимое определенных ячеек:

Sub Clearcells()
'Updateby Extendoffice
Range("A2", "A5").Clear
Range("C10", "D18").Clear
Range("B8", "B12").Clear
End Sub

Внимание: В приведенном выше коде: A2, A5 указать, что он очистит ячейки в диапазоне A2: A5, а не только две ячейки по отдельности, вы можете добавить несколько диапазонов, например Диапазон («B8», «B12»). Очистить сценарий внутри кода, чтобы очистить.

4. Затем сохраните и закройте окно кода, а затем свяжите код с кнопкой формы, щелкните кнопку правой кнопкой мыши и выберите Назначить макрос, В Назначить макрос диалогового окна, выберите Клирселлс кодовое имя из Имя макроса список и щелкните OK кнопку, чтобы выйти из этого диалогового окна. Смотрите скриншот:

5. А теперь, когда вы нажимаете Очистить все Кнопка, определенные вами ячейки очищаются сразу, см. снимок экрана:

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (63)

Оценок пока нет. Оцените первым!

Источник

	требуется очистить ячейки, нашел только макрос «удалить» rivate Sub CommandButton2_Click() Range(«B17:K500»).Delete End Sub замена Delete -> Clean не сработала :)))

KuklP Пользователь Сообщений: 14868 Регистрация: 21.12.2012 E-mail и реквизиты в профиле.	Попробуйте clear. Или clearcontents. Я сам — дурнее всякого примера! …

	Range(«B17:K500»).Select Selection.ClearContents

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Clear ClearContents Чаще справку читайте.

Hugo

Пользователь

Сообщений: 23249
Регистрация: 22.12.2012

Зачем искать?
Для этого есть макрорекордер — включаем, стираем (через Delete), выключаем, смотрим:

Range(«A1:A6»).Select
Selection.ClearContents

выкидываем ненужное:
Range(«A1:A6»).ClearContents

Если аналогично сделать через меню «очистить всё», то получим
Range(«A1:A6»).Clear

	Формат не удаляет: Range(«B17:K500»).ClearContents Формат удаляет: Range(«B17:K500»).Clear

	формат должен оставаться. всем пасибо! тема клозет

vikttur Пользователь Сообщений: 47199 Регистрация: 15.09.2012	Говорил же автору — больше нужно читать closet — каморка клозет — устар. помещение для отправления естественных надобностей

Юрий М Модератор Сообщений: 60570 Регистрация: 14.09.2012 Контакты см. в профиле	#9 09.07.2012 09:52:32 {quote}{login=d-konstruktor}{date=09.07.2012 09:45}{thema=}{post}тема клозет{/post}{/quote}Клозет — помещение для отправления естественных надобностей. Вы хотите открыть новую тему?

Источник

Содержание

VBA Excel. Range.Clear и другие методы очистки ячеек
Методы очистки ячеек
Примеры использования
6 комментариев для “VBA Excel. Range.Clear и другие методы очистки ячеек”
Удаление пустых ячеек из диапазона
Постановка задачи
Способ 1. Грубо и быстро
Способ 2. Формула массива
Способ 3. Пользовательская функция на VBA
Excel макрос на очистку ячеек
Excel макрос на очистку ячеек

VBA Excel. Range.Clear и другие методы очистки ячеек

Методы очистки ячеек

Метод	Очищаемые свойства	Примечание
Range.Clear	Почти все свойства	Ширина и высота ячеек не изменяются
Range.ClearComments	Комментарии	Для Excel в составе Office 365
Range.ClearContents	Формулы и значения	Исходное форматирование сохраняется
Range.ClearFormats	Свойства, задающие форматы	В том числе отмена объединения ячеек
Range.ClearHyperlinks	Гиперссылки	Текст и форматирование сохраняются
Range.ClearNotes	Примечания и заметки	Примечания – для локальных программ Excel, заметки – для Excel в составе Office 365
Range.ClearOutline	Структура данных	Смотрите, что такое структурирование данных

Range – выражение, возвращающее диапазон ячеек.

Примеры использования

1. Удаление гиперссылки из ячейки A1
Cells(1, 1).ClearHyperlinks

2. Очистка диапазона A1:L50 от формул и значений
Range(«A1:L50»).ClearContents

3. Очистка всех свойств ячеек в столбцах A:K
Columns(«A:K»).Clear

4. Очистка форматирования ячеек в строках 1:20
Rows(«1:20»).ClearFormats

6 комментариев для “VBA Excel. Range.Clear и другие методы очистки ячеек”

Здравствуйте!
Есть такая проблема:
1. В отдельном модуле написана процедура, которая при запуске и вводе в inputbox данных генерирует таблицу с данными. Вот перед каждой генерацией сделал так, чтобы содержимое листа , кроме первой строки (шапки), очищалось: Thisbooks.Worksheets(«Лист3»).Range(«A2»,Cells(lastRow, lastColumn).clear

2. На первом листе у меня как бы меню управления. Там кнопка, к которой привязана эта процедура. При запуске выполнение процедуры доходит до строки с очисткой и уходит в ошибку 1004 run time error: Application-defined or object-defined error.

При этом, если эту же процедуру запускать с кнопки, или через F5, но с открытого Лист3 — все отлично выполняется!

Никак не могу додуматься в чем же проблема. Подскажите пожалуйста!

Источник

Удаление пустых ячеек из диапазона

Постановка задачи

Имеем диапазон ячеек с данными, в котором есть пустые ячейки:

Задача — удалить пустые ячейки, оставив только ячейки с информацией.

Способ 1. Грубо и быстро

Выделяем исходный диапазон
Жмем клавишу F5, далее кнопка Выделить(Special) . В открывшмся окне выбираем Пустые ячейки(Blanks) и жмем ОК.

Выделяются все пустые ячейки в диапазоне.

Даем в меню команду на удаление выделенных ячеек: правой кнопкой мыши —Удалить ячейки (Delete Cells) со сдвигом вверх.

Способ 2. Формула массива

Для упрощения дадим нашим рабочим диапазонам имена, используя Диспетчер Имен (Name Manager) на вкладке Формулы (Formulas) или — в Excel 2003 и старше — меню Вставка — Имя — Присвоить (Insert — Name — Define)

Диапазону B3:B10 даем имя ЕстьПустые, диапазону D3:D10 — НетПустых. Диапазоны должны быть строго одного размера, а расположены могут быть где угодно относительно друг друга.

Теперь выделим первую ячейку второго диапазона (D3) и введем в нее такую страшноватую формулу:

В английской версии это будет:
=IF(ROW()-ROW(НетПустых)+1>ROWS(ЕстьПустые)-COUNTBLANK(ЕстьПустые),»»,INDIRECT(ADDRESS(SMALL((IF(ЕстьПустые<>«»,ROW(ЕстьПустые),ROW()+ROWS(ЕстьПустые))),ROW()-ROW(НетПустых)+1),COLUMN(ЕстьПустые),4)))

Причем ввести ее надо как формулу массива, т.е. после вставки нажать не Enter (как обычно), а Ctrl+Shift+Enter. Теперь формулу можно скопировать вниз, используя автозаполнение (потянуть за черный крестик в правом нижнем углу ячейки) — и мы получим исходный диапазон, но без пустых ячеек:

Способ 3. Пользовательская функция на VBA

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

Для этого откройте редактор Visual Basic (ALT+F11), вставьте новый пустой модуль (меню Insert — Module) и скопируйте туда текст этой функции:

Не забудьте сохранить файл и вернитесь из редактора Visual Basic в Excel. Чтобы использовать эту функцию в нашем примере:

Выделите достаточный диапазон пустых ячеек, например F3:F10.
Идем в меню Вставка — Функция (Insert — Function) или жмем на кнопку Вставить функцию(Insert Function) на вкладке Формулы (Formulas) в новых версиях Excel. В категории Определенные пользователем (User Defined) выберите нашу функцию NoBlanks.
В качестве аргумента функции укажите исходный диапазон с пустотами (B3:B10) и нажмите Ctrl+Shift+Enter, чтобы ввести функцию как формулу массива.

Источник

Sub Clear_Cell()
Dim r As Range, ur As Range
Set ur = Cells(1, 1)

For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then c.ClearContents
Next c

Set ur = Nothing
End Sub

Sub Clear_Cell()
Dim r As Range, ur As Range
Set ur = Cells(1, 1)

For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then c.ClearContents
Next c

Set ur = Nothing
End Sub

Sub Clear_Cell()
Dim r As Range, ur As Range
Set ur = Cells(1, 1)

For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then c.ClearContents
Next c

Set ur = Nothing
End Sub

sboy

Дата: Пятница, 02.11.2018, 11:24 | Сообщение № 2

Sub Clear_Cell()
Dim r As Range, ur As Range
Set ur = Cells(1, 1) ‘ очищаемую ячейку — в формируемый диапазон ‘

For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then
If c.MergeCells Then
c.MergeArea.ClearContents
Else
c.ClearContents
End If
End If
Next c

Set ur = Nothing ‘ освобождаем память ‘
End Sub

Sub Clear_Cell()
Dim r As Range, ur As Range
Set ur = Cells(1, 1) ‘ очищаемую ячейку — в формируемый диапазон ‘

For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then
If c.MergeCells Then
c.MergeArea.ClearContents
Else
c.ClearContents
End If
End If
Next c

Set ur = Nothing ‘ освобождаем память ‘
End Sub

Sub Clear_Cell()
Dim r As Range, ur As Range
Set ur = Cells(1, 1) ‘ очищаемую ячейку — в формируемый диапазон ‘

For Each c In ActiveSheet.UsedRange.Cells
If Not c.Locked Then
If c.MergeCells Then
c.MergeArea.ClearContents
Else
c.ClearContents
End If
End If
Next c

Set ur = Nothing ‘ освобождаем память ‘
End Sub

Источник

Excel макрос на очистку ячеек

Я не волшебник. Я только учусь

nikitan95

Дата: Суббота, 01.09.2012, 17:12 | Сообщение № 3

light26

Дата: Суббота, 01.09.2012, 17:14 | Сообщение № 4

nikitan95

Дата: Суббота, 01.09.2012, 17:17 | Сообщение № 5

light26

Дата: Суббота, 01.09.2012, 17:27 | Сообщение № 6

nikitan95

Дата: Суббота, 01.09.2012, 17:31 | Сообщение № 7

light26

Дата: Суббота, 01.09.2012, 17:40 | Сообщение № 8

Я не волшебник. Я только учусь

light26

Дата: Суббота, 01.09.2012, 17:50 | Сообщение № 9

nikitan95

Дата: Суббота, 01.09.2012, 17:51 | Сообщение № 10

nikitan95

Дата: Суббота, 01.09.2012, 17:53 | Сообщение № 11

Gustav

Дата: Суббота, 01.09.2012, 18:03 | Сообщение № 12

[/vba]
Запустите, убедитесь, что выделяются нужные ячейки и жмите Delete.

Выделение затрагивает только числа (константы) в диапазоне, формулы не трогаются. Когда освоитесь и обретете уверенность, то можно сразу очищать, не выделяя:
[vba]

[/vba]
Причем, последнюю команду можно выполнить в Окне отладке редактора VBA, не создавая отдельного макроса.

Ну, хотя собственно всё это можно выполнить и вручную!

[/vba]
Запустите, убедитесь, что выделяются нужные ячейки и жмите Delete.

[/vba]
Причем, последнюю команду можно выполнить в Окне отладке редактора VBA, не создавая отдельного макроса.

Ну, хотя собственно всё это можно выполнить и вручную! Gustav

[/vba]
Запустите, убедитесь, что выделяются нужные ячейки и жмите Delete.

[/vba]
Причем, последнюю команду можно выполнить в Окне отладке редактора VBA, не создавая отдельного макроса.

Ну, хотя собственно всё это можно выполнить и вручную! Автор — Gustav
Дата добавления — 01.09.2012 в 18:03

nikitan95

Дата: Суббота, 01.09.2012, 18:04 | Сообщение № 13

Gustav

Дата: Суббота, 01.09.2012, 18:12 | Сообщение № 14

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Range(«E5:BM24»).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

Ну, хотя собственно всё это можно выполнить и вручную!

Вручную:
1. Выделяете E5:BM24
2. Ctrl+G, Выделить
3. Константы, оставить только флажок «числа», OK
4. Клавиша Delete

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Range(«E5:BM24»).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

Ну, хотя собственно всё это можно выполнить и вручную!

Вручную:
1. Выделяете E5:BM24
2. Ctrl+G, Выделить
3. Константы, оставить только флажок «числа», OK
4. Клавиша Delete Gustav

200?’200px’:»+(this.scrollHeight+5)+’px’);»> Range(«E5:BM24»).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

Ну, хотя собственно всё это можно выполнить и вручную!

Вручную:
1. Выделяете E5:BM24
2. Ctrl+G, Выделить
3. Константы, оставить только флажок «числа», OK
4. Клавиша Delete Автор — Gustav
Дата добавления — 01.09.2012 в 18:12

nikitan95

Дата: Суббота, 01.09.2012, 18:14 | Сообщение № 15

nikitan95

Дата: Суббота, 01.09.2012, 18:22 | Сообщение № 16

Gustav

Дата: Суббота, 01.09.2012, 18:25 | Сообщение № 17

На эту тему у меня следующее предложение.

Когда очистите ячейки (вручную!) алгоритмом моего сообщения №14, сделайте еще раз почти так же, а именно:

Вручную:
1. Выделяете E5:BM24
2. Ctrl+G, Выделить
3. Пустые ячейки, OK
4. В строке адреса ячейки (слева от строки ввода) задаете имя типа «ДляОчистки».

В следующий раз, когда подойдет время чиститься, просто выделите через Ctrl+G диапазон «ДляОчистки» и нажмите Delete.

На эту тему у меня следующее предложение.

Когда очистите ячейки (вручную!) алгоритмом моего сообщения №14, сделайте еще раз почти так же, а именно:

В следующий раз, когда подойдет время чиститься, просто выделите через Ctrl+G диапазон «ДляОчистки» и нажмите Delete. Gustav

На эту тему у меня следующее предложение.

Когда очистите ячейки (вручную!) алгоритмом моего сообщения №14, сделайте еще раз почти так же, а именно:

В следующий раз, когда подойдет время чиститься, просто выделите через Ctrl+G диапазон «ДляОчистки» и нажмите Delete. Автор — Gustav
Дата добавления — 01.09.2012 в 18:25

Источник

Adblock
detector

Источник

193 / 9 / 1

Регистрация: 05.10.2010

Сообщений: 309

Очистка данных в ячейках

20.10.2011, 23:24. Показов 50442. Ответов 6

Подскажите пожалуйста как можно очистить ячейки данных в VBA?

Programming Эксперт 94731 / 64177 / 26122 Регистрация: 12.04.2006 Сообщений: 116,782	20.10.2011, 23:24
6

XoFfiCEr

исследователь

325 / 104 / 3

Регистрация: 18.03.2010

Сообщений: 1,079

Записей в блоге: 2

21.10.2011, 00:59

Сообщение от VIG

Подскажите пожалуйста как можно очистить ячейки данных в VBA?

Excel?

Visual Basic

1 2	Activesheet.Cells(1,1).Value="" ' одна ячейка Activesheet.Range("A1:D5").Value="" ' диапазон ячеек

~~Апострофф~~

Заблокирован

21.10.2011, 07:36

Visual Basic

1
2

Activesheet.Cells(1,1).Clear                 ' полная очистка одной ячейка (Value, Format, Comments и т.д.)
Activesheet.Range("A1:D5").ClearContents          ' очистка только Value диапазона ячеек

И ещё есть несколько видов — см. ниже

Изображения

0 / 0 / 0

Регистрация: 07.08.2016

Сообщений: 47

26.12.2018, 19:20

А как с помощью Clear очистить лист только от значений в ячейках?т.е. к примеру чтобы закраски и форматы ячеек остались нетронутыми

Добавлено через 1 минуту
Уважаемые знатоки, подскажите как с помощью clear очистить лист только от значений ну т.е чтобы закраски и форматы ячеек остались нетронутыми??

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

26.12.2018, 19:51

repository, прочитайте пост выше.

74 / 7 / 2

Регистрация: 15.11.2018

Сообщений: 72

27.12.2018, 12:14

мега популярная тема. Вот оказывается что интересно форумчанам

6875 / 2807 / 533

Регистрация: 19.10.2012

Сообщений: 8,562

27.12.2018, 13:19

Сообщение от ram007

мега популярная тема

— так ей уже более 7-ми лет

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

27.12.2018, 13:19

Помогаю со студенческими работами здесь

Сравнение данных в ячейках
Есть данные в первой ячейке. Во вторую добавляю часть данных из первой ячейки и надо чтобы в…

Загрузка данных, построение графика, сохранение и очистка данных
здравствуйте, нужно написать программу, в которой будет построение графика, кнопки: загрузка…

Объединение данных в ячейках Excel
добрый день!

возможно такой вопрос уже проскакивал — но как я не искал, нашел только очень…

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

Подсчёт данных в ячейках и строках
Необходимо подсчитать сумму чисел по строкам и столбцам, при этом в самих ячейках помимо чисел…

Форматирование данных в ячейках столбца
Здравствуйте. Подскажите пожалуйста. Есть столбец, в нем различные данные.
Например, В столбце…

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:

Источник