Метод 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 возвращают очищаемые свойства ячеек к значениям по умолчанию. К таким, как на вновь созданном стандартном рабочем листе. При любых методах очистки высота строк и ширина столбцов не изменяются.
Фразы для контекстного поиска: очистка ячеек, очистка ячейки, очистка формул, очистка от формул, удаление формул, очистка значений, удаление значений, очистка форматов, удаление форматирования, удаление форматов.
193 / 9 / 1 Регистрация: 05.10.2010 Сообщений: 309 |
|
1 |
|
Очистка данных в ячейках20.10.2011, 23:24. Показов 50502. Ответов 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 |
|||
Подскажите пожалуйста как можно очистить ячейки данных в VBA? Excel?
2 |
Заблокирован |
||||
21.10.2011, 07:36 |
3 |
|||
И ещё есть несколько видов — см. ниже Изображения
2 |
0 / 0 / 0 Регистрация: 07.08.2016 Сообщений: 47 |
|
26.12.2018, 19:20 |
4 |
А как с помощью Clear очистить лист только от значений в ячейках?т.е. к примеру чтобы закраски и форматы ячеек остались нетронутыми Добавлено через 1 минуту
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 |
мега популярная тема — так ей уже более 7-ми лет
0 |
IT_Exp Эксперт 87844 / 49110 / 22898 Регистрация: 17.06.2006 Сообщений: 92,604 |
27.12.2018, 13:19 |
Помогаю со студенческими работами здесь Сравнение данных в ячейках Загрузка данных, построение графика, сохранение и очистка данных Объединение данных в ячейках Excel возможно такой вопрос уже проскакивал — но как я не искал, нашел только очень… Изменение данных в ячейках с UserForm Подсчёт данных в ячейках и строках Форматирование данных в ячейках столбца Искать еще темы с ответами Или воспользуйтесь поиском по форуму: 7 |
требуется очистить ячейки, нашел только макрос «удалить» rivate Sub CommandButton2_Click() замена Delete -> Clean не сработала :))) |
|
KuklP Пользователь Сообщений: 14868 E-mail и реквизиты в профиле. |
Попробуйте clear. Или clearcontents. Я сам — дурнее всякого примера! … |
Range(«B17:K500»).Select |
|
vikttur Пользователь Сообщений: 47199 |
Clear Чаще справку читайте. |
Hugo Пользователь Сообщений: 23251 |
Зачем искать? Range(«A1:A6»).Select выкидываем ненужное: Если аналогично сделать через меню «очистить всё», то получим |
Формат не удаляет: Формат удаляет: |
|
формат должен оставаться. всем пасибо! тема клозет |
|
vikttur Пользователь Сообщений: 47199 |
Говорил же автору — больше нужно читать closet — каморка |
Юрий М Модератор Сообщений: 60575 Контакты см. в профиле |
#9 09.07.2012 09:52:32 {quote}{login=d-konstruktor}{date=09.07.2012 09:45}{thema=}{post}тема клозет{/post}{/quote}Клозет — помещение для отправления естественных надобностей. |
Неправильный синтаксис проверки. Правильно:
If Cells(i, 3).Value <> "Deal" Or Cells(i, 3).Value <> "Meal" Or Cells(i, 3).Value <> "Run" Then
Так правильно с точки зрения синтаксиса, но неправильно логически. Применяется оператор Or (ИЛИ). При такой записи не может быть результата False.
Примеры.
В ячейке слово «Deal«:
"Deal" <> "Deal" Or "Deal" <> "Meal" = False + True = True
В ячейке слво «Excel«:
"Excel" <> "Deal" Or "Excel" <> "Meal" = True + True = True
В этом случае нужно применять оператор And (И).
===========================
Просматриваем строки с 3 по 25. Если в ячейке столбца С значение не равно указанным, очищаем ячейку. Вместо And — каскад If, позволяющий отрезать лишние вычисления.
Sub DelVal1()
Dim i As Long
For i = 3 To 25' цикл по строкам
If Cells(i, 3).Value <> "Deal" Then
If Cells(i, 3).Value <> "Meal" Then
If Cells(i, 3).Value <> "Run" Then Cells(i, 3).ClearContents
End If
End If
Next i
End Sub
Значение ячейки можно искать в тексте, составленном из искомых слов:
Sub DelVal2()
Dim i As Long
For i = 3 To 25
If Not ("DealMealRun" Like "*" & Cells(i, 3).Value & "*") Then _
Cells(i, 3).ClearContents
Next i
End Sub
Если слов много, имеет смысл занести их в массив:
Sub DelVal3()
Dim ArrVal()
Dim i As Long, j As Long
ArrVal = Array("Deal", "Meal", "Run") ' значения в массив
For i = 3 To 25 ' цикл по строкам
For j = 0 To UBound(ArrVal) ' цикл по массиву
If Cells(i, 3).Value = ArrVal(j) Then Exit For
Next j
' ни одно не найдено - очищаем ячейку
If j = UBound(ArrVal) + 1 Then Cells(i, 3).ClearContents
Next i
End Sub
Обычно вы можете удерживать 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)
Оценок пока нет. Оцените первым!