Объединяйте ячейки Excel без потери содержимого

Anonim

Как составить одно из двух содержимого ячеек в Excel

Excel предлагает возможность суммировать ячейки. С помощью функции FORMAT - CELLS - ALIGNMENT - COMBINE CELLS вы можете объединить две ячейки в одну единицу. Но что делать, если в обеих ячейках есть контент, который вы не хотите терять? Используйте VBA для решения проблемы.

В примере на следующем рисунке показан краткий список имен:

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

Объединить субячейки ()

Тусклая линия как целое число

Ряд = 1

Пока нет (IsEmpty (Cells (line, 1)))

Ячейки (строка, 1) = Ячейки (строка, 1) & "" & Ячейки (строка, 2)

Ячейки (строка, 2) .ClearContents

Диапазон (Ячейки (строка, 1), Ячейки (строка, 2)). Объединить

Строка = строка + 1

Wend

Колонны (1).

Конец подписки

Макрос проходит по строкам от строки 1 до тех пор, пока столбец A не станет пустым. Для каждого непустого содержимого содержимое A и B прикрепляется друг к другу (через пробел). Затем две ячейки A и B соединяются, образуя одну ячейку. На следующем рисунке показан результат: