Макрос для очистки ячейки в 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. Нажмите Вставить > Формы > Прямоугольники , чтобы выбрать форму прямоугольника, а затем перетащите мышь, чтобы нарисовать кнопку прямоугольника в любом месте листа, как вам нужно, см. снимок экрана:

кнопка doc очистить ячейки 1

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

кнопка doc очистить ячейки 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 кнопку, чтобы выйти из этого диалогового окна. Смотрите скриншот:

кнопка doc очистить ячейки 3

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

кнопка doc очистить ячейки 4


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

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

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

вкладка kte 201905


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

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

офисный дно

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


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

193 / 9 / 1

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

Сообщений: 309

1

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

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


Студворк — интернет-сервис помощи студентам

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



0



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

2

Цитата
Сообщение от VIG
Посмотреть сообщение

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

Excel?

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



2



Апострофф

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

21.10.2011, 07:36

3

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

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

Изображения

 



2



0 / 0 / 0

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

Сообщений: 47

26.12.2018, 19:20

4

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

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



0



6875 / 2807 / 533

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

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

26.12.2018, 19:51

5

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



1



74 / 7 / 2

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

Сообщений: 72

27.12.2018, 12:14

6

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



0



6875 / 2807 / 533

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

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

27.12.2018, 13:19

7

Цитата
Сообщение от ram007
Посмотреть сообщение

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

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



0



IT_Exp

Эксперт

87844 / 49110 / 22898

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

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

27.12.2018, 13:19

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

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

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

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

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

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

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

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

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

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

7

автоматизация очищения ячеек

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

С Праздником Знания всех!
В прилагаемом примере отчет прихода и расхода материалов и запчастей для автомашин. После перехода на след.месяц приходится вручную очищать поля столбцов Прихода (кол-во и сумма) и Расходов по каждой автомашине (только кол-во). Для этого вручную выделяю данные поля и очищаю их. Машин более ста штук, так что это уже превращается в муку. Попробовал через присвоение имен. Согласитесь. что и это не выход. Вопрос: как посредством встроенных функций Excel выделить соответствующие ячейки для быстрого удаления их содержимых? Заранее благодарствую за постоянную выручку и помощь.

К сообщению приложен файл:

8270214.xlsx
(36.3 Kb)

Сообщение отредактировал nikitan95Суббота, 01.09.2012, 16:55

 

Ответить

light26

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

Группа: Друзья

Ранг: Старожил

Сообщений: 1341


Репутация:

91

±

Замечаний:
0% ±


2007, 2010, 2013

макрос устроит? и какой диапазон очистить надо?


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

Сообщение отредактировал light26Суббота, 01.09.2012, 17:13

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

Quote (light26)

макрос устроит?

только как крайняя мера(

 

Ответить

light26

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

Группа: Друзья

Ранг: Старожил

Сообщений: 1341


Репутация:

91

±

Замечаний:
0% ±


2007, 2010, 2013

Quote (nikitan95)

только как крайняя мера(

Ну, насколько я знаю, формулы очищать содержимое ячеек не умеют


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

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

а встроенными функциями Excel никак?

 

Ответить

light26

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

Группа: Друзья

Ранг: Старожил

Сообщений: 1341


Репутация:

91

±

Замечаний:
0% ±


2007, 2010, 2013

Quote (nikitan95)

а встроенными функциями Excel никак?

Ждите остальных. может че подскажут. но сомневаюсь я.


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

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

Quote (light26)

но сомневаюсь я.

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

 

Ответить

light26

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

Группа: Друзья

Ранг: Старожил

Сообщений: 1341


Репутация:

91

±

Замечаний:
0% ±


2007, 2010, 2013

Просто жмем кнопку «Новый месяц»
Перед этим надо включить макросы в настройках безопасности

К сообщению приложен файл:

1526409.xlsm
(42.6 Kb)


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

Сообщение отредактировал light26Суббота, 01.09.2012, 17:42

 

Ответить

light26

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

Группа: Друзья

Ранг: Старожил

Сообщений: 1341


Репутация:

91

±

Замечаний:
0% ±


2007, 2010, 2013

Если диапазон нужно изменить, то топаем мышом по имени листа, выбираем «Исходный текст» и указываем диапазон по аналогии


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

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

не работает однако. скорее Вы поспешно прочли условие. загляните в Формулы-Диспетчер имен-перем_. именно этот диапазон надо очистить. впрочем это лишь малая часть диапазона..

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

Quote (light26)

Если диапазон нужно изменить, то топаем мышом по имени листа, выбираем «Исходный текст» и указываем диапазон по аналогии

с таким же успехом можно было желаемому диапазону присвоить имя в Диспетчере имен и потом выбрав его очистить его содержимое… и притом без макросов

Сообщение отредактировал nikitan95Суббота, 01.09.2012, 17:54

 

Ответить

Gustav

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

Группа: Друзья

Ранг: Старожил

Сообщений: 2398


Репутация:

986

±

Замечаний:
0% ±


начинал с Excel 4.0, видел 2.1

Вот таким макросом можно выделить подлежащие очистке ячейки:
[vba]

Code

Sub selectBeforeClear()
       Range(«E5:BM24»).SpecialCells(xlCellTypeConstants, xlNumbers).Select
End Sub

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

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

Code

Range(«E5:BM24»).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

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

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


МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал GustavСуббота, 01.09.2012, 18:08

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

можно ли в Диспетчере имен при присвоении имени использовать функцию ИНДЕКС или наподобие того? думаю, что можно, но вот как? может знатоки помогут..

 

Ответить

Gustav

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

Группа: Друзья

Ранг: Старожил

Сообщений: 2398


Репутация:

986

±

Замечаний:
0% ±


начинал с Excel 4.0, видел 2.1

Quote (Gustav)

Range(«E5:BM24»).SpecialCells(xlCellTypeConstants, xlNumbers).ClearContents

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

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


МОИ: Ник, Tip box: 41001663842605

Сообщение отредактировал GustavСуббота, 01.09.2012, 18:15

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

Спасибо, Gustav,
Работает на ура. Поправил чуток диапазон и будто не было никаких проблем и в помине. Макрос конечно удивительная вещица, но все-таки предыдущий мой пост (сообщение № 13) еще в силе)) Да здравствует День Знания с excelworld.ru

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

Урррррррррррррааааа! Бесподобно!!! Наконец-то День Знания прошло не зря!
Спасибо, Gustav!

 

Ответить

Gustav

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

Группа: Друзья

Ранг: Старожил

Сообщений: 2398


Репутация:

986

±

Замечаний:
0% ±


начинал с Excel 4.0, видел 2.1

Quote (nikitan95)

но все-таки предыдущий мой пост (сообщение № 13) еще в силе

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

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

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

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


МОИ: Ник, Tip box: 41001663842605

 

Ответить

nikitan95

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

Группа: Проверенные

Ранг: Обитатель

Сообщений: 410


Репутация:

0

±

Замечаний:
0% ±


2016

думаю меня не расстреляют в такой день, если я добавлю Gustav-у счастливое 88-ое число.. лично я считаю его вполне заслуженным. Спасибо, за ценный урок!

Сообщение отредактировал nikitan95Суббота, 01.09.2012, 18:37

 

Ответить

light26

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

Группа: Друзья

Ранг: Старожил

Сообщений: 1341


Репутация:

91

±

Замечаний:
0% ±


2007, 2010, 2013

Quote (nikitan95)

не работает однако

Не знаю причины.


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

 

Ответить

Hugo

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

Группа: Друзья

Ранг: Участник клуба

Сообщений: 3140


Репутация:

670

±

Замечаний:
0% ±


2010, теперь уже с PQ

Может быть я что-то не понял — но что мешает просто иметь один такой чистый шаблон под именем например «шаблон.xls».
Открываете его, заносите первое число, сохраняете как «201209.xls»
Через месяц снова открываете шаблон и т.д.
Ничего очищать не нужно, все данные за все года сохраняются.


excel@nxt.ru
webmoney: R418926282008 Z422237915069

 

Ответить

Понравилась статья? Поделить с друзьями:
  • Макрос для очистки форматов в excel
  • Макрос для очистки листа excel
  • Макрос для отправки файла excel по почте
  • Макрос для открытия формы excel
  • Макрос для открытия файла word