Перейти к основному содержанию

Как очистить содержимое нескольких объединенных ячеек в Excel?

Если у вас есть большой рабочий лист, содержащий несколько объединенных ячеек, и теперь вы хотите очистить все содержимое объединенных ячеек, но сохранить объединенные ячейки. Обычно вы можете попробовать применить Найти и заменить сначала выберите все объединенные ячейки, а затем нажмите Удалить нажмите клавишу, чтобы удалить значение, однако вы получите предупреждающее сообщение "Мы не можем сделать это с объединенной ячейкой". Как в этом случае очистить значения в объединенных ячейках, но быстро оставить объединенные ячейки в Excel?

Очистить содержимое нескольких объединенных ячеек с помощью кода VBA

Очистить содержимое нескольких объединенных ячеек с помощью Kutools for Excel


стрелка синий правый пузырь Очистить содержимое нескольких объединенных ячеек с помощью кода VBA

В этом разделе я могу создать для вас код VBA для решения этой задачи, пожалуйста, сделайте следующее:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.

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

Sub ClearMerged()
'updateby Extendoffice
    Dim Rg As Range, Rg1 As Range
    Dim xAddress As String
    On Error Resume Next
    xAddress = Application.ActiveWindow.RangeSelection.Address
    Set Rg = Application.InputBox("Please select the range of cells:", "Kutools for Excel", xAddress, , , , , 8)
    If Rg Is Nothing Then Exit Sub
    For Each Rg1 In Rg
        If Rg1.MergeCells Then Rg1.MergeArea.ClearContents
    Next
End Sub

3. Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно с напоминанием о выборе диапазона, в котором вы хотите очистить объединенные ячейки, см. снимок экрана:

док очистить объединенные ячейки 1

4, Затем нажмите OK, содержимое объединенных ячеек было очищено сразу и оставило пустые объединенные ячейки, см. снимок экрана:

док очистить объединенные ячейки 2


стрелка синий правый пузырь Очистить содержимое нескольких объединенных ячеек с помощью Kutools for Excel

Если вы только что Kutools for Excel, С его Выбрать объединенные ячейки Утилита, вы можете выбрать все объединенные ячейки в выборке одним щелчком мыши, а затем удалить их сразу.

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

После установки Kutools for Excel, пожалуйста, сделайте следующее :( Бесплатная загрузка Kutools для Excel сейчас )

1. Выберите диапазон ячеек, содержащий объединенные ячейки, содержимое которых вы хотите очистить.

2. Нажмите Кутулс > Выберите > Выбрать объединенные ячейки, см. снимок экрана:

3. И все объединенные ячейки были выбраны сразу, см. Снимок экрана:

док очистить объединенные ячейки 4

4, Затем нажмите Удалить на клавиатуре, и все значения в объединенных ячейках были выбраны, но оставьте объединенные ячейки по своему усмотрению.

Нажмите, чтобы узнать больше об этой утилите Select Merged Cells…

Бесплатная загрузка Kutools для Excel сейчас

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

Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

вкладка kte 201905


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Can you please provide VBA code to run this macro across the entire workbook?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations