Очистка ячеек макросом 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 возвращают очищаемые свойства ячеек к значениям по умолчанию. К таким, как на вновь созданном стандартном рабочем листе. При любых методах очистки высота строк и ширина столбцов не изменяются.

---

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

---

	требуется очистить ячейки, нашел только макрос «удалить»     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 Пользователь Сообщений: 23253 Регистрация: 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 — каморка   клозет — устар. помещение для отправления естественных надобностей

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

Обычно вы можете удерживать 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)

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

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? Выборочная очистка ячеек от содержимого

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

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

Как очистить ячейки стандартными средствами Excel?

Для очистки ячеек от информации в Excel предусмотрено несколько режимов. Для того, чтобы их увидеть, выделяем диапазон, который будет подвергнут очистке и на вкладке «Главная» в группе кнопок «Редактирование» заходим в меню кнопки «Очистить».

Рассмотрим пункты меню кнопки «Очистить» более детально.

Как очистить все в выделенном диапазоне ячеек?

При выборе первого пункта «Очистить все», из ячеек выделенного диапазона будет удалена абсолютно вся информация.

Как очистить только форматы в выбранном диапазоне ячеек?

При выборе второго пункта «Очистить форматы» из выделенного даипазона будет удалена информация, связанная с форматом, то есть информация о шрифтах, их размерах, цветах, способах начертания и так далее, а точнее говоря, все эти параметры будут приведены к параметрам, используемым по умолчанию.

Как очистить ячейки от содержимого?

При выборе третьего пункта «Очистить содержимое» из выделенного диапазона будет удалена только та часть информации, которую вы можете видеть в строке формул, то есть удалены будут только значения ячеек.

Как очистить ячейки от примечаний?

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

Как очистить ячейки средствами VBA?

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

Использование надстройки позволяет:

1. Одним кликом мыши вызывать диалоговое окно макроса прямо из панели инструментов Excel;

2. на выбор пользователя удалять значения ячеек, примечания, гиперссылки, форматы, шрифты, заливки, рамки и объединения ячеек;

3. выбирать по своему усмотрению один из четырех режимов обработки данных (смотри скриншот).

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

Надстройка легко устанавливается и запускается одним нажатием кнопки, выведенной прямо в главное меню Excel.

Источник

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

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

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

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

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

1. Выделяем исходный диапазон
2. Жмем клавишу 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. Чтобы использовать эту функцию в нашем примере:

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

Источник

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] Причем, последнюю команду можно выполнить в Окне отладке редактора VBA, не создавая отдельного макроса. Ну, хотя собственно всё это можно выполнить и вручную! Gustav [/vba] Запустите, убедитесь, что выделяются нужные ячейки и жмите Delete. Выделение затрагивает только числа (константы) в диапазоне, формулы не трогаются. Когда освоитесь и обретете уверенность, то можно сразу очищать, не выделяя: [vba] [/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, сделайте еще раз почти так же, а именно: Вручную: 1. Выделяете E5:BM24 2. Ctrl+G, Выделить 3. Пустые ячейки, OK 4. В строке адреса ячейки (слева от строки ввода) задаете имя типа «ДляОчистки». В следующий раз, когда подойдет время чиститься, просто выделите через Ctrl+G диапазон «ДляОчистки» и нажмите Delete. Gustav На эту тему у меня следующее предложение. Когда очистите ячейки (вручную!) алгоритмом моего сообщения №14, сделайте еще раз почти так же, а именно: Вручную: 1. Выделяете E5:BM24 2. Ctrl+G, Выделить 3. Пустые ячейки, OK 4. В строке адреса ячейки (слева от строки ввода) задаете имя типа «ДляОчистки». В следующий раз, когда подойдет время чиститься, просто выделите через Ctrl+G диапазон «ДляОчистки» и нажмите Delete. Автор — Gustav Дата добавления — 01.09.2012 в 18:25 Источник Adblock detector