Об’єднайте комірки Excel без втрати вмісту

Anonim

Як створити одну з двох частин вмісту комірки в Excel

Excel пропонує можливість узагальнення клітинок. За допомогою функції ФОРМАТ - КЛІТИНИ - ВИРІВНЕННЯ - КОМБІНУВАТИ КЛІТИНИ можна об’єднати дві клітинки в одну одиницю. Але що ви робите, коли в обох клітинках є вміст, який ви не хочете втратити? Щоб вирішити проблему, використовуйте VBA.

Приклад на наступному малюнку показує короткий список імен:

Ви хочете об’єднати два вмісти зі стовпців A і B у першому стовпці A, а потім об’єднати дві клітинки зі стовпців A і B в одну клітинку. Цю роботу виконує такий макрос:

Об’єднати підклітини ()

Яскрава лінія як ціле число

Рядок = 1

Поки немає (IsEmpty (Cells (рядок, 1)))

Клітинки (рядок, 1) = Осередки (рядок, 1) & "" & Клітинки (рядок, 2)

Клітинки (рядок, 2). Очистити зміст

Діапазон (комірки (рядок, 1), клітинки (рядок, 2)). Об'єднати

Лінія = рядок + 1

Венд

Стовпці (1)

End Sub

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