Перейти до основного матеріалу

Підручник Excel: об’єднання стовпців, рядків, осередків

Об’єднання стовпців, рядків або комірок зазвичай використовується в нашій щоденній роботі Excel, наприклад, об’єднання імені та прізвища в двох стовпцях в один стовпець, щоб отримати повне ім’я, об’єднання рядків на основі одного ідентифікатора та підсумовування відповідних значень, поєднання діапазон клітинок в одну клітинку тощо. У цьому підручнику перераховано всі сценарії поєднання стовпців/рядків/комірок у Excel та надано різні рішення для вас.

Навігація в цьому посібнику

1 Об’єднайте стовпці/рядки в одну клітинку

1.1 Об’єднайте стовпці/рядки в одну клітинку за допомогою пробілу/коми чи інших роздільників

1.11 Використання символу амперсанда (&)

1.12 Використання функції CONCATENATE (Excel 2016 або попередні версії)

1.13 Використання функції CONCAT або TEXTJOIN (Excel 2019 або Excel 365)

1.14 Використання блокнота (тільки для поєднання стовпців)

Розширення: об’єднайте стовпці/рядки в одну клітинку з розривом рядка як роздільником

1.2 Об’єднайте стовпці/рядки в одну клітинку без пропусків

1.21 Використання функції TEXTJOIN (Excel 2019 або Excel 365)

1.22 Використання символу амперсанда (&)

1.23 Додайте в кінці комірок за допомогою коду VBA

1.3 Об’єднайте стовпці/рядки/комірки в одну клітинку без втрати даних

1.4 Об’єднайте два стовпці, якщо вони пусті

1.41 Використання функції IF

1.42 Використання VBA

2. Об’єднайте рядки з однаковим ідентифікатором

2.1 Об’єднайте рядки з однаковим ідентифікатором і розділені комами або іншими роздільниками

2.11 Використання VBA

2.12 Використання функції IF для додавання допоміжних стовпців

2.13 Використання зручного інструменту – Advanced Combine Rows

2.2 Об’єднайте рядки з однаковим ідентифікатором і виконайте деякі обчислення

2.21 Використання функції консолідації

2.22 Використання VBA

2.23 Використання зручного інструменту – Advanced Combine Rows

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

2.31 Використання VBA

2.32 Використання зручного інструменту – «Об’єднати ті самі клітинки».

3. Об’єднайте клітинки

3.1. Об’єднайте кілька рядків і стовпців в одну клітинку

3.11 Використання символу амперсанда (&)

3.12 Використання функції CONCATENATE (Excel 2016 або попередні версії)

3. 13 Використання функції CONCAT або TEXTJOIN (Excel 2019 або Excel 365)

3.14 Використання Об’єднайте стовпці/рядки/комірки в одну клітинку без втрати даних

3.2. Об’єднайте клітинки в один стовпець/один рядок

3.21 Назвіть діапазон і використовуйте функцію INDEX (лише для одного стовпця)

3.22 VBA (тільки для одного стовпця)

3.23 Використання зручного інструменту – Transform Range

3.3 Складіть стовпці в один стовпець без повторень

3.31 Скопіюйте, вставте та видаліть дублікати

3.32 Використання VBA

3.4. Об’єднайте клітинки та продовжуйте форматування

3.41 Вставити функцію TEXT у формулу

3.42 Використання Microsoft Word

3.43 Використання зручного інструменту – об’єднання без втрати даних

3.5 Об’єднайте клітинки, щоб зробити дату

3.51 Використання функції ДАТА

 

У цьому підручнику я створю кілька прикладів, щоб пояснити методи, ви можете змінити посилання, які вам потрібні, коли ви використовуєте нижче код VBA або формули, або ви можете завантажити зразки для безпосереднього використання методів.

зразок docКлацніть, щоб завантажити зразок файлу


1 Об’єднайте стовпці/рядки в одну клітинку

1.1 Об’єднайте стовпці/рядки в одну клітинку за допомогою пробілу/коми чи інших роздільників

Об’єднання стовпців або рядків в одну клітинку та розділення результату комами, пробілом або іншими роздільниками, як показано нижче, використовується найбільш широко в Excel.

Об’єднайте стовпці в одну клітинку
doc об’єднати рядки стовпців в один 1
Об’єднайте рядки в одну клітинку
doc об’єднати рядки стовпців в один 1

1.11 Використання символу амперсанда (&)

У Excel символ амперсанда & зазвичай використовується для об’єднання текстів.

Приклад: поєднайте ім’я (стовпець A) та прізвище (стовпець B) з повним ім’ям

Виберіть осередок, куди потрібно розмістити об’єднаний результат, а потім введіть формулу, ось як:

=A2&" "&B2

doc об’єднати рядки стовпців в один 1 У формулі & використовується для об’єднання текстів, A2 і B2 – це два тексти, які потрібно об’єднати, « » – це роздільник (пробіл), який розділяє два тексти в комірці результату, якщо ви хочете використовувати кому як роздільник просто введіть кому в подвійних лапках ",".

прес Що натомість? Створіть віртуальну версію себе у , щоб отримати комбінований результат, потім перетягніть маркер автозаповнення вниз, щоб отримати комбіновані результати.

Приклад: об’єднайте номер (рядок 15) та ім’я (рядок 16) в одну клітинку

Якщо ви хочете об’єднати рядки в одну клітинку, змініть посилання на клітинки та роздільник у формулі, як вам потрібно, і перетягніть маркер автозаповнення праворуч, щоб отримати об’єднані результати.
doc об’єднати рядки стовпців в один 1

1.12 Використання функції CONCATENATE (Excel 2016 або попередні версії)

Якщо ви використовуєте Excel 2016 або попередні версії, вам може допомогти функція CONCATENATE.

Синтаксис про CONCATENATE
CONCATENATE (text1,[text2],…)

Щоб отримати докладнішу інформацію про функцію CONCATENATE, відвідайте: КОНКАТЕНАТ.

Приклад: об’єднайте імена (стовпець F) та адресу (стовпець G) в один стовпець

Виберіть осередок, куди потрібно розмістити об’єднаний результат, а потім введіть формулу, ось як:

=КОНКАТЕНАТИ (F2,",",G2)

doc об’єднати рядки стовпців в один 1 У формулі F2 і G2 - це два тексти, які потрібно об'єднати, "," - це роздільник (кома), який розділяє два тексти в комірці результату, якщо ви хочете використовувати пробіл як роздільник, просто введіть пробіл в подвійних лапках " ".

прес Що натомість? Створіть віртуальну версію себе у , щоб отримати комбінований результат, потім перетягніть маркер автозаповнення вниз, щоб отримати комбіновані результати.
doc об’єднати рядки стовпців в один 1

Щоб об’єднати рядки, просто змініть посилання на клітинки та роздільник, якщо потрібно, і перетягніть маркер автозаповнення праворуч.
doc об’єднати рядки стовпців в один 1

1.13 Використання функції CONCAT або TEXTJOIN (Excel 2019 або Excel 365)

Якщо ви використовуєте Excel 2019 або Excel 365, функція CONCAT і функція TEXTJOIN можуть бути кращим вибором.

Синтаксис про CONCAT
CONCAT (text1,[text2],…)

Щоб дізнатися більше про функцію CONCAT, відвідайте: КОНКАТ.

Використання функції CONCAT те саме, що і функція CONCATENATE, щоб об’єднати ім’я та прізвище в двох стовпцях окремо в один стовпець, формула використовується так:

=CONCAT(A21," ",B21)

doc об’єднати рядки стовпців в один 1 У формулі A21 і B21 - це два тексти, які потрібно об'єднати, " " - це роздільник (пробіл), який розділяє два тексти в комірці результату, якщо ви хочете використовувати інші розділювачі, просто введіть роздільник, розташований у вигляді подвійного цитати "".

Натисніть клавішу Enter, щоб отримати комбінований результат, а потім перетягніть маркер автозаповнення вниз, щоб отримати комбіновані результати.
doc об’єднати рядки стовпців в один 1

На відміну від об’єднання стовпців, при об’єднанні рядків після введення першої формули потрібно перетягувати маркер автозаповнення праворуч, поки не будуть отримані всі об’єднані результати.

Синтаксис про TEXTJOINT
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

Щоб дізнатися більше про функцію TEXTJOIN, відвідайте: ТЕКСТЬ.

Щоб об’єднати стовпці або рядки за допомогою TEXTJOIN:

=TEXTJOIN(",",TRUE,E21:G21))

doc об’єднати рядки стовпців в один 1  У формулі E21:G21 – це безперервний діапазон, який необхідно об’єднати. " " - це роздільник (пробіл), який розділяє два тексти в комірці результату. Якщо ви хочете використовувати інші роздільники, просто введіть роздільник, узятий у подвійні лапки "". Логічний текст «TRUE» вказує на те, щоб ігнорувати порожні клітинки при об’єднанні, якщо ви хочете об’єднати з пробілами, замініть TRUE на FALSE.

Натисніть клавішу Enter, щоб отримати комбінований результат, а потім перетягніть маркер автозаповнення вниз, щоб отримати комбіновані результати.

Ігноруйте пробіли
doc об’єднати рядки стовпців в один 1
Включіть заготовки
doc об’єднати рядки стовпців в один 1

1.14 Використання блокнота (тільки для поєднання стовпців)

1. Використовуючи Блокнот, можна також об’єднати стовпці (не впливає на об’єднання рядків).

Виберіть діапазон, який потрібно об’єднати стовпці в один, і натисніть Ctrl + C клавіші для копіювання діапазону.
doc об’єднати рядки стовпців в один 1

2 Відкрити a Блокнот, і натисніть Ctrl + V щоб вставити скопійований діапазон.
doc об’єднати рядки стовпців в один 1

3. Виберіть вкладку між двома текстами в Блокноті та натисніть Ctrl + H для того, щоб заміщати функції, у неї розміщено символ вкладки Знайти те, що текстове вікно.
doc об’єднати рядки стовпців в один 1

4 В Замінити текстове поле, введіть роздільник, який ви хочете розділити об’єднані тексти, а потім клацніть замінити всі. Потім закрийте заміщати діалог
doc об’єднати рядки стовпців в один 1

5. Тепер виберіть тексти в Блокноті та натисніть Ctrl + C щоб скопіювати їх, і перейдіть до Excel, виберіть комірку та натисніть Ctrl + V щоб вставити об’єднані результати.
doc об’єднати рядки стовпців в один 1doc об’єднати рядки стовпців в один 1

Розширення: об’єднайте стовпці/рядки в одну клітинку з розривом рядка як роздільником

Якщо ви хочете об’єднати стовпці або рядки в одну клітинку з розривом рядка, як показано нижче:
doc об’єднати рядки стовпців в один 1

По-перше, ви повинні усвідомити, що в Excel, CHAR() функцію можна використовувати для визначення символів, які важко ввести у формулу, наприклад CHAR (10) повертає розрив рядка.

Потім використовуйте CHAR(10) у наведених вище формулах, щоб об’єднати стовпці або рядки з розривом рядка як роздільником:

Символ амперсанда:

=A49&CHAR(10)&B49

Функція CONCATENATE:

=CONCATENATE(A49,CHAR(10),B49)

Функція CONCAT

=CONCAT(A49,CHAR(10),B49)

Функція TEXTJOIN

=TEXTJOIN(CHAR(10),TRUE,A49:B49)

Після введення формули вище виберіть результати та натисніть Головна > Обернути текст.
doc об’єднати рядки стовпців в один 1

Тепер стовпці об’єднані в один і розділені розривом рядка.
doc об’єднати рядки стовпців в один 1

doc об’єднати рядки стовпців в один 1 Якщо ви просто хочете об’єднати рядки в одному стовпці в одну клітинку, вам допоможе функція «Вирівняти» в Excel. Виберіть стовпець із кількома рядками та клацніть Головна > Заповнювати > обґрунтовувати, тоді рядки будуть об’єднані у верхню клітинку діапазону з пробілом як роздільником.

doc об’єднати рядки стовпців в один 1 doc об’єднати рядки стовпців в один 1

1.2 Об’єднайте стовпці/рядки в одну клітинку без пропусків

У цій частині підручник представляє методи об’єднання стовпців або рядків в одну клітинку та пропуску порожніх клітинок, як показано нижче:
doc об’єднати рядки стовпців в один 1

1.21 Використання функції TEXTJOIN (Excel 2019 або Excel 365)

Якщо ви використовуєте Excel 2019 або Excel 365, на щастя, нова функція TEXTJOIN може легко вирішити цю задачу.

Синтаксис про CONCATENATE
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

Щоб дізнатися більше про функцію TEXTJOIN, відвідайте: ТЕКСТЬ.

Приклад: об’єднайте ім’я (стовпець A) і номер (стовпець B) і домен (стовпець C) в одну клітинку, щоб створити адресу електронної пошти, деякий номер може бути порожнім.

Виберіть комірку, в якій розміщувався об’єднаний результат, введіть формулу так:

=TEXTJOIN("",TRUE,A2:C2)

doc об’єднати рядки стовпців в один 1 У формулі A2:C2 – це діапазон, який містить тексти, які потрібно об’єднати, «» – це роздільник (немає), який розділяє два тексти в комірці результату, якщо ви хочете використовувати роздільник для розділення текстів, просто введіть роздільник, узятий у подвійні лапки "", наприклад ",". Логічний текст «TRUE» вказує на те, щоб ігнорувати порожні клітинки при об’єднанні, якщо ви хочете об’єднати з пробілами, замініть TRUE на FALSE.

прес Що натомість? Створіть віртуальну версію себе у натисніть клавішу, щоб отримати перший результат, і перетягніть маркер автозаповнення вниз або вправо, щоб отримати всі результати.
doc об’єднати рядки стовпців в один 1

1.22 Використання символу амперсанда (&)

Якщо ви використовуєте Excel 2016 або попередні версії Excel, використовуйте символ амперсанда &, щоб з’єднати тексти один за одним і вручну пропускати пробіли.

Виберіть осередок, куди потрібно розмістити об’єднаний результат, а потім введіть формулу, ось як:

=A10&C10

doc об’єднати рядки стовпців в один 1 У формулі & використовується для об’єднання текстів, A10 і C10 – це два тексти, які потрібно об’єднати. Якщо ви хочете використовувати кому як роздільник, просто введіть кому в подвійних лапках, як-от «,» і використовуйте & для з’єднання двох текстів.

прес Що натомість? Створіть віртуальну версію себе у ключ, щоб отримати комбінований результат. Потім змініть посилання формули, щоб отримати наступний комбінований результат.
doc об’єднати рядки стовпців в один 1

1.23 Використання визначеної функції

Якщо для користувачів Excel 2016 та попередніх версій Excel потрібно об’єднати кілька стовпців або рядків, пропускаючи пробіли, ви можете використовувати VBA для створення визначеної функції, щоб швидко вирішити це завдання.

1. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікна.

2. клацання Insert > Модулі щоб вставити новий модуль.
doc об’єднати рядки стовпців в один 1

3. Скопіюйте та вставте наведений нижче код у новий модуль та збережіть його.

VBA: об’єднання клітинок пропускає порожні клітинки

Function Concatenatecells(ConcatArea As Range) As String
'updateby Extendoffice
  For Each n In ConcatArea: nn = IIf(n = "", nn & "", nn & n & "_"): Next
  Concatenatecells = Left(nn, Len(nn) - 1)
End Function

doc об’єднати рядки стовпців в один 1

4. Поверніться до робочого аркуша та виберіть клітинку, у якій розміщено об’єднаний результат, введіть формулу

=Concatenatecells(A15:C15)

doc об’єднати рядки стовпців в один 1 У формулі A15:C15 – це діапазон, який містить тексти, які потрібно об’єднати. У коді VBA «_» вказує на роздільник, який використовувався для розділення текстів у комбінованому результаті, ви можете змінити роздільник, як вам потрібно.
doc об’єднати рядки стовпців в один 1


1.3 Об’єднайте стовпці/рядки/комірки в одну клітинку без втрати даних

Якщо ви встановили Kutools для Excel в Excel, Поєднуйте рядки, стовпці або комірки, не втрачаючи даних Ця функція дуже допомагає при суміщенні робіт.

1. Виберіть клітинки, які потрібно об’єднати, і клітинки, в які потрібно розмістити об’єднані результати.
doc об’єднати рядки стовпців в один 1

2. клацання Кутулс > Злиття та розділення > Поєднуйте рядки, стовпці або комірки, не втрачаючи даних.
doc об’єднати рядки стовпців в один 1

3. У спливаючому діалоговому вікні вкажіть такі параметри:
doc об’єднати рядки стовпців в один 1

1) Укажіть, щоб об’єднати стовпці, або об’єднати рядки, або об’єднати всі клітинки в одну.

Об’єднайте стовпці Напр. Об’єднайте рядки Напр. Об’єднати в одну клітинку Напр.
doc об’єднати рядки стовпців в один 1 doc об’єднати рядки стовпців в один 1 doc об’єднати рядки стовпців в один 1

2) Вкажіть роздільник для текстів у комбінованому результаті.

3) Вкажіть розташування комбінованого результату (вимкнено при виборі параметра Об'єднати в одну клітинку)

Вибираючи параметр Об’єднати стовпці, ви можете вказати, щоб результат поміщався в ліву клітинку вибраного діапазону або праву клітинку вибраного діапазону.

Ліва клітинка Напр. Права клітинка Напр.
doc об’єднати рядки стовпців в один 1 doc об’єднати рядки стовпців в один 1

При виборі Об’єднати ряди Ви можете вказати, щоб результат поміщався у верхню клітинку вибраного діапазону або нижню клітинку вибраного діапазону.

Верхня клітинка Напр. Нижня комірка Напр. 
doc об’єднати рядки стовпців в один 1 doc об’єднати рядки стовпців в один 1

4) Укажіть операцію щодо комбінованих результатів.

4. клацання Ok or Застосовувати щоб закінчити комбінацію.

Зберігати вміст об’єднаних комірок
doc об’єднати рядки стовпців в один 1
Видалити вміст об’єднаних комірок
doc об’єднати рядки стовпців в один 1
;Об’єднайте об’єднані клітинки
doc об’єднати рядки стовпців в один 1

Щоб дізнатися більше про цю функцію, відвідайте сторінку Комбінуйте стовпці, рядки, клітинки без втрати даних.

Для отримання додаткової інформації про Kutools для Excel відвідайте Kutools для Excel.

Щоб отримати 30-денну безкоштовну пробну версію Kutools для Excel, будь ласка скачати це зараз.


1.4 Об’єднайте два стовпці, якщо вони пусті

Іноді ви можете об’єднати два стовпці, якщо один із стовпців містить порожні клітинки. Припустимо, що є два стовпці, стовпець A містить імена користувачів і деякі порожні клітинки, а стовпець B містить імена, тепер просто заповніть порожні клітинки в стовпці A відповідним вмістом стовпця B при об’єднанні двох стовпців, як показано нижче:
doc об’єднати рядки стовпців в один 1

1.41 Використання функції IF

Функція IF використовується для перевірки певного стану. Тут ви можете використовувати функцію IF, щоб перевірити, чи є клітинка порожньою, а потім заповнити пробіли вмістом іншого стовпця.

Синтаксис функції IF
IF (logical_test, [value_if_true], [value_if_false])

Щоб дізнатися більше про функцію IF, відвідайте: IF

Виберіть верхню клітинку стовпця, у яку потрібно розмістити об’єднані результати, і скопіюйте або введіть формулу нижче:

=IF(A2="",B2,A2)

Потім натисніть Що натомість? Створіть віртуальну версію себе у клавішу, щоб отримати перший результат, і перетягніть маркер автозаповнення вниз, щоб отримати всі результати.
doc об’єднати рядки стовпців в один 1

Тепер лише порожні клітинки в стовпці A заповнені вмістом стовпця B.

1.42 Використання VBA

Ось код VBA також може впоратися з цією роботою.

1. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно, а потім натисніть Insert > Модулі щоб створити новий порожній модуль.

2. Скопіюйте та вставте наведений нижче код у новий модуль.

VBA: об’єднайте два стовпці, якщо вони пусті

Sub MergebyBlank()
'UpdatebyExtendoffice20220506
Dim xRg1, xRg2, xRgUser As Range
Dim xRg As Range
Dim xWsh As Worksheet
Dim xCount, xFNum  As Integer
Set xRg1 = Range("A:A")
Set xRg2 = Range("B:B")
Set xWsh = xRg1.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg1 = Intersect(xRgUser, xRg1)
Set xWsh = xRg2.Worksheet
Set xRgUser = xWsh.UsedRange
Set xRg2 = Intersect(xRgUser, xRg2)
xCount = xRg1.Count
If (xCount > xRg2.Count) Then
    xCount = xRg2.Count
End If
For xFNum = 1 To xCount
    If (xRg1.Item(xFNum).Value = "") Then
        If (xRg2.Item(xFNum).Value <> "") Then
            xRg1.Item(xFNum).Value = xRg2.Item(xFNum).Value
        End If
    ElseIf (xRg2.Item(xFNum).Value = "") Then
            If (xRg1.Item(xFNum).Value <> "") Then
            xRg2.Item(xFNum).Value = xRg1.Item(xFNum).Value
        End If
    End If
Next
End Sub

doc об’єднати рядки стовпців в один 1

doc об’єднати рядки стовпців в один 1 У коді A:A і B:B – це два стовпці, які будуть об’єднані, просто змініть їх, як вам потрібно.

3. Потім натисніть F5 клавішу або клацніть прогін doc об’єднати рядки стовпців в один 1  кнопку, тоді стовпець A буде заповнено значенням у стовпці B, якщо значення в стовпці A порожнє.


2 Об’єднайте рядки з однаковим ідентифікатором

Припустимо, що є таблиця з кількома стовпцями, один стовпець містить значення ідентифікатора, які мають повторювані елементи. Тепер підручник надає методи для об’єднання рядків таблиці на основі одного ідентифікатора та виконання деяких обчислень.
doc об’єднати рядки стовпців в один 1

2.1 Об’єднайте рядки з однаковим ідентифікатором і розділені комами або іншими роздільниками

Тут, у цій частині, він надає методи для об’єднання рядків з однаковим ідентифікатором і розділених комами, як показано нижче:
doc об’єднати рядки стовпців в один 1

2.11 Використання VBA

Тут наведено код VBA, який може впоратися з цією роботою

1. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно, а потім натисніть Insert > Модулі щоб створити новий порожній модуль.

2. Скопіюйте та вставте наведений нижче код у новий модуль.

VBA: об’єднати рядки з однаковим ідентифікатором

Sub Combine_Rows()
'UpdatebyExtendoffice20220506
Dim xRg As Range
Dim xRows As Long
Dim I As Long, J As Long, K As Long
On Error Resume Next
Set xRg = Application.InputBox("Select Range:", "Kutools For Excel", Selection.Address, , , , , 8)
Set xRg = Range(Intersect(xRg, ActiveSheet.UsedRange).Address)
If xRg Is Nothing Then Exit Sub
xRows = xRg.Rows.Count
For I = xRows To 2 Step -1
For J = 1 To I - 1
If xRg(I, 1).Value = xRg(J, 1).Value And J <> I Then
For K = 2 To xRg.Columns.Count
If xRg(J, K).Value <> "" Then
If xRg(I, K).Value = "" Then
xRg(I, K) = xRg(J, K).Text
Else
xRg(I, K) = xRg(I, K).Text & "," & xRg(J, K).Text 'here uses comma as separator, you can change it to others as you need
End If
End If
Next
xRg(J, 1).EntireRow.Delete
I = I - 1
J = J - 1
End If
Next
Next
ActiveSheet.UsedRange.Columns.AutoFit
End Sub

doc об’єднати рядки стовпців в один 1

3. Потім натисніть F5 клавішу або клацніть прогін doc об’єднати рядки стовпців в один 1  потім з’явиться діалогове вікно Kutools для Excel, у якому ви зможете вибрати таблицю, у якій потрібно об’єднати рядки з однаковим ідентифікатором.
doc об’єднати рядки стовпців в один 1

4. клацання OK. Тепер у вибраній таблиці рядки об’єднані на основі одного ідентифікатора.

2.12 Використання функції IF для додавання допоміжних стовпців

Якщо є лише два стовпці, і ви хочете об’єднати рядки з однаковим ідентифікатором і значення іншого стовпця, розділені комою, як показано на знімку екрана нижче, функція IF може зробити вам послугу.
doc об’єднати рядки стовпців в один 1

1. Відсортуйте ідентифікатор від А до Я. Виберіть стовпець ID, клацніть дані > Сортувати від А до Я.
doc об’єднати рядки стовпців в один 1

2. Потім у Попередження про сортування діалогове вікно, перевірте Розширювати клацніть параметр вибору сортувати.
doc об’єднати рядки стовпців в один 1

Тепер ті самі ідентифікатори були відсортовані разом.
doc об’єднати рядки стовпців в один 1

3. У сусідньому стовпці за допомогою функції IF:

=IF(A17=A18,C17&", "&B18,B18)

doc об’єднати рядки стовпців в один 1 У формулі A17 і A18 – це дві суміжні клітинки в стовпці ідентифікатора (A17 – заголовок стовпця ідентифікатора), B18 – відповідна комірка клітинки A18. ", " вказує на розділення значень комою. за потреби можна змінити посилання та роздільник.

4. прес Що натомість? Створіть віртуальну версію себе у щоб отримати перший результат, перетягніть маркер автозаповнення вниз, щоб отримати всі результати.
doc об’єднати рядки стовпців в один 1

5. Перейдіть до сусіднього стовпця, введіть формулу так:

=IF(A18<>A19,"Об'єднано","")

doc об’єднати рядки стовпців в один 1 У формулі A18 і A19 є двома сусідніми клітинками в стовпці ідентифікатора, якщо суміжні клітинки не рівні, він повернеться до «Об’єднаного», інакше він повернеться пустим.

6. прес Що натомість? Створіть віртуальну версію себе у щоб отримати перший результат, перетягніть маркер автозаповнення вниз, щоб отримати всі результати.
doc об’єднати рядки стовпців в один 1

7. Виберіть останній стовпець формули, включаючи заголовок, і клацніть дані > фільтр.
doc об’єднати рядки стовпців в один 1

8. Натисніть фільтр кнопку і галочку Об'єднані прапорець у спадному меню, клацніть OK.
doc об’єднати рядки стовпців в один 1

Тепер лише об’єднані рядки відфільтровано, скопіюйте відфільтровані дані та вставте їх в інше місце.
doc об’єднати рядки стовпців в один 1

Детальніше про функцію IF. будь ласка, відвідайте: IF.

2.13 Використання зручного інструменту – Advanced Combine Rows

Якщо ви встановили Kutools для Excel в Excel, Розширені комбіновані ряди можна легко виконати цю роботу.

1. Виберіть таблицю та клацніть Кутулс > Злиття та розділення > Розширені комбіновані ряди.
doc об’єднати рядки стовпців в один 1

2 В Розширені комбіновані ряди діалогове вікно, будь ласка, виконайте такі дії:

1) Виберіть стовпець ідентифікатора та встановіть його як Первинний ключ;

2) Виберіть стовпець, значення якого потрібно об’єднати з роздільником, клацніть Поєднувати і виберіть один роздільник.

3) клацніть Ok.
doc об’єднати рядки стовпців в один 1

Тепер рядки об’єднані одним ідентифікатором.
doc об’єднати рядки стовпців в один 1

Функція розширеного об’єднання рядків порушить вихідні дані, будь ласка, збережіть дані як копію перед їх використанням.

Щоб дізнатися більше про цю функцію, відвідайте сторінку Розширені комбіновані ряди.

Для отримання додаткової інформації про Kutools для Excel відвідайте Kutools для Excel.

Щоб отримати 30-денну безкоштовну пробну версію Kutools для Excel, будь ласка скачати це зараз.

2.2 Об’єднайте рядки з однаковим ідентифікатором і виконайте деякі обчислення

Якщо ви хочете об’єднати рядки з однаковим ідентифікатором, а потім підсумувати значення або виконати інші обчислення, як показано на знімку екрана нижче, наведені нижче методи можуть допомогти вам.
doc об’єднати рядки стовпців в один 1

2.21 Використання функції консолідації

Якщо є лише два стовпці, один стовпець містить тексти (ID), а інший містить значення, які потрібно обчислити, наприклад суму, вбудована функція Excel Консолідувати може зробити вам користь.

1. Виберіть клітинку, в яку потрібно розмістити об’єднаний результат, а потім клацніть дані > Консолідувати.
doc об’єднати рядки стовпців в один 1

2 В Консолідувати діалогове вікно, виконайте такі дії:

1) Виберіть Функції як вам потрібно;

2) Натисніть стрілку, щоб вибрати таблицю;

3) Клацніть додавати щоб додати вибраний діапазон до Всі посилання Список;

4) Установіть прапорці біля Верхній ряд та Ліва колонка;

5) Клацніть OK.
doc об’єднати рядки стовпців в один 1

Тепер таблиця підсумована на основі того самого ідентифікатора.
doc об’єднати рядки стовпців в один 1

2.22 Використання VBA

Ось VBA, який також може комбінувати рядки з однаковим ідентифікатором, а потім підсумовувати значення.

1. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно, а потім натисніть Insert > Модулі щоб створити новий порожній модуль.
doc об’єднати рядки стовпців в один 1

2. У новому модулі скопіюйте та вставте наведений нижче код VBA.

VBA: об’єднайте повторювані рядки та підсумуйте

Sub CombineRows()
'Updateby Extendoffice
Dim WorkRng As Range
Dim Dic As Variant
Dim arr As Variant
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Set Dic = CreateObject("Scripting.Dictionary")
arr = WorkRng.Value
For i = 1 To UBound(arr, 1)
    Dic(arr(i, 1)) = Dic(arr(i, 1)) + arr(i, 2)
Next
Application.ScreenUpdating = False
WorkRng.ClearContents
WorkRng.Range("A1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.keys)
WorkRng.Range("B1").Resize(Dic.Count, 1) = Application.WorksheetFunction.Transpose(Dic.items)
Application.ScreenUpdating = True
End Sub

3. Потім натисніть F5 клавішу або клацніть прогін doc об’єднати рядки стовпців в один 1  , потім з’явиться діалогове вікно для вибору таблиці, яку ви використовуєте, а потім клацніть OK.

Тепер вибраний діапазон об’єднано з тими ж значеннями та підсумовано.

doc об’єднати рядки стовпців в один 1  VBA порушить вихідні дані, будь ласка, збережіть дані як копію перед використанням VBA.

2.23 Використання зручного інструменту – Advanced Combine Rows

Якщо в таблиці є більше двох стовпців, які потрібно об’єднати та виконати обчислення, наприклад, є три стовпці, перший містить повторювані назви продуктів, які потрібно об’єднати разом, другий містить назви магазинів, які потрібно бути об’єднані та розділені комою, останній стовпець містить числа, які потрібно було підсумувати на основі повторюваних рядків у першому стовпці, як показано на знімку екрана нижче, Kutools для Excel Advanced Combine Rows може допомогти вам.
doc об’єднати рядки стовпців в один 1

1. Виберіть таблицю та клацніть Кутулс > Злиття та розділення > Розширені комбіновані ряди.
doc об’єднати рядки стовпців в один 1

2 В Розширені комбіновані ряди діалогове вікно, будь ласка, виконайте такі дії:

1) Виберіть стовпець ідентифікатора та встановіть його як Первинний ключ;

2) Виберіть стовпець, значення якого потрібно об’єднати роздільником, клацніть Поєднувати і виберіть один роздільник.

3) Виберіть стовпець, для якого потрібно виконати розрахунок, клацніть Обчислювати і виберіть один розрахунок.

4) клацніть Ok.
doc об’єднати рядки стовпців в один 1

Тепер рядки об’єднані з тими ж рядками та обчислено.

doc об’єднати рядки стовпців в один 1 Функція розширеного об’єднання рядків порушить вихідні дані, будь ласка, збережіть дані як копію перед їх використанням.

Щоб дізнатися більше про цю функцію, відвідайте сторінку Розширені комбіновані ряди.

Для отримання додаткової інформації про Kutools для Excel відвідайте Kutools для Excel.

Щоб отримати 30-денну безкоштовну пробну версію Kutools для Excel, будь ласка скачати це зараз.

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

Якщо є таблиця з кількома стовпцями, один стовпець містить кілька повторюваних значень, тепер завдання полягає в тому, щоб об’єднати сусідні рядки в цьому стовпці з такими ж значеннями, як показано на знімку екрана нижче. Як ви можете це вирішити?
doc об’єднати рядки стовпців в один 1

2.31 Використання VBA

У Excel немає вбудованої функції, яка могла б безпосередньо вирішити цю роботу, але тут є VBA, яка може впоратися з цим.

1. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно, а потім натисніть Insert > Модулі щоб створити новий порожній модуль.

2. У новому модулі скопіюйте та вставте наведений нижче код VBA.

VBA: об’єднати сусідні рядки з однаковим значенням

Sub MergeSameCell()
'Updateby Extendoffice
Dim Rng As Range, xCell As Range
Dim xRows As Integer
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
Application.DisplayAlerts = False
xRows = WorkRng.Rows.Count
For Each Rng In WorkRng.Columns
    For i = 1 To xRows - 1
        For j = i + 1 To xRows
            If Rng.Cells(i, 1).Value <> Rng.Cells(j, 1).Value Then
                Exit For
            End If
        Next
        WorkRng.Parent.Range(Rng.Cells(i, 1), Rng.Cells(j - 1, 1)).Merge
        i = j - 1
    Next
Next
Application.DisplayAlerts = True
Application.ScreenUpdating = True
End Sub

doc об’єднати рядки стовпців в один 1

3. Потім натисніть F5 клавішу або клацніть прогін doc об’єднати рядки стовпців в один 1  , щоб увімкнути цей VBA, потім з’явиться діалогове вікно для вибору таблиці, яку ви використовуєте, а потім клацніть OK.
doc об’єднати рядки стовпців в один 1

Тепер суміжні рядки з однаковими значеннями в першому стовпці об’єднуються у вибраному діапазоні.

doc об’єднати рядки стовпців в один 1  VBA порушить вихідні дані, будь ласка, збережіть дані як копію перед використанням VBA. І цей VBA об’єднає ті самі значення в першому стовпці вибраної таблиці.

2.32 Використання зручного інструменту – «Об’єднати ті самі клітинки».

Якщо у вас є Kutools для Excel встановлений в Excel, Об’єднайте ті самі клітини Функція Kutools для Excel може вирішити цю задачу за один крок.

Виберіть стовпець, у якому потрібно об’єднати однакові значення, а потім клацніть Кутулс > Злиття та розділення > Об’єднайте ті самі клітини.
doc об’єднати рядки стовпців в один 1

Тепер сусідні клітинки з однаковими значеннями об’єднані.

doc об’єднати рядки стовпців в один 1I Якщо ви хочете роз’єднати об’єднані клітинки та заповнити значення назад, ви можете застосувати Роз’єднати клітинки та заповнити значення функцію.
doc об’єднати рядки стовпців в один 1
doc об’єднати рядки стовпців в один 1

Щоб дізнатися більше про цю функцію, відвідайте сторінку Об’єднайте ті самі клітини.

Щоб дізнатися більше про цю функцію, відвідайте сторінку Роз’єднати комірку.

Для отримання додаткової інформації про Kutools для Excel відвідайте Kutools для Excel.

Щоб отримати 30-денну безкоштовну пробну версію Kutools для Excel, будь ласка скачати зараз.


3 Об'єднайте клітинки

3.1. Об’єднайте кілька рядків і стовпців в одну клітинку

Для об’єднання діапазону з кількома рядками та стовпцями в одну клітинку наведено чотири методи.

Приклад: об’єднати діапазон A1:C3
doc об’єднати рядки стовпців в один 1

3.11 Використання символу амперсанда (&)

У Excel символ амперсанда & зазвичай використовується для об’єднання текстів.

Виберіть клітинку, в яку ви хочете помістити об’єднаний результат, а потім введіть формулу, ось як:

=A1&", "&B1&", "&C1&", "&A2&", " &B2&", "&C2&", "&A3&", "&B3&", "&C3

doc об’єднати рядки стовпців в один 1 У формулі & використовується для об’єднання текстів, «, » — це роздільник (кома + пробіл), який розділяє два тексти в комірці результату. Якщо ви хочете використовувати інші роздільники, просто введіть роздільник, узятий у подвійні лапки.

прес Що натомість? Створіть віртуальну версію себе у ключ, щоб отримати комбінований результат.

3.12 Використання функції CONCATENATE (Excel 2016 або попередні версії)

Якщо ви використовуєте Excel 2016 або попередні версії, вам може допомогти функція CONCATENATE.

Синтаксис про CONCATENATE
CONCATENATE (text1,[text2],…)

Щоб отримати докладнішу інформацію про функцію CONCATENATE, відвідайте: КОНКАТЕНАТ

Виберіть клітинку, в яку ви хочете помістити об’єднаний результат, а потім введіть формулу, подібно до цієї:

=CONCATENATE(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", " ,C3)

doc об’єднати рядки стовпців в один 1 У формулі A1, B1…,C3 – це тексти, які потрібно об’єднати. ", " — це роздільник (кома + пробіл), який розділяє два тексти в комірці результату. Якщо ви хочете використовувати інші роздільники, просто введіть роздільник, узятий у подвійні лапки.

Потім натисніть Що натомість? Створіть віртуальну версію себе у ключ, щоб отримати комбінований результат.

3. 13 Використання функції CONCAT або TEXTJOIN (Excel 2019 або Excel 365)

Якщо ви використовуєте Excel 2019 або Excel 365, функція CONCAT і функція TEXTJOIN можуть бути кращим вибором.

Синтаксис про CONCAT
CONCAT (text1,[text2],…)

Щоб дізнатися більше про функцію CONCAT, відвідайте: КОНКАТ.

Використання функції CONCAT те саме, що і функція CONCATENATE, щоб об’єднати ім’я та прізвище, які в двох стовпцях окремо в один стовпець, формула використовується так:

=CONCAT(A1,", ",B1,", ",C1,", ",A2,", ",B2,", ",C2,", ",A3,", ",B3,", " ,C3)

doc об’єднати рядки стовпців в один 1 У формулі A1, B1…,C3 – це тексти, які потрібно об’єднати. ", " — це роздільник (кома + пробіл), який розділяє два тексти в комірці результату. Якщо ви хочете використовувати інші роздільники, просто введіть роздільник, узятий у подвійні лапки.

Потім натисніть Що натомість? Створіть віртуальну версію себе у ключ, щоб отримати комбінований результат.

Синтаксис TEXTJOIN
TEXTJOIN (delimiter, ignore_empty, text1, [text2], ...)

Щоб дізнатися більше про функцію TEXTJOIN, відвідайте: ТЕКСТЬ.

Щоб об’єднати стовпці або рядки за допомогою TEXTJOIN:

=TEXTJOIN(", ",TRUE,A1:C3)

doc об’єднати рядки стовпців в один 1 У формулі A1:C3 є безперервним діапазоном, який потрібно об’єднати. ", " - це роздільник (кома + пробіл), який розділяє два тексти в комірці результату. Якщо ви хочете використовувати інші роздільники, просто введіть роздільник, узятий у подвійні лапки "". Логічний текст «TRUE» вказує на те, щоб ігнорувати порожні клітинки при об’єднанні, якщо ви хочете об’єднати з пробілами, замініть TRUE на FALSE.

Потім натисніть Що натомість? Створіть віртуальну версію себе у ключ, щоб отримати комбінований результат.

doc об’єднати рядки стовпців в один 1 Якщо ви хочете використовувати розрив рядка як роздільник, використовуючи CHAR(10) у формулі, наприклад =TEXTJOIN(CHAR(10),TRUE,A1:C3), то відформатуйте комірку результату як Wrap Text.
doc об’єднати рядки стовпців в один 1

3.14 Використання Об’єднайте стовпці/рядки/комірки в одну клітинку без втрати даних

Якщо у вас встановлено Kutools для Excel у програмі Excel, Поєднуйте рядки, стовпці або комірки, не втрачаючи даних функція може швидко впоратися з цією роботою.

1. Виберіть діапазон комірок, які потрібно об’єднати в одну клітинку, а потім клацніть Кутулс > Злиття та розділення > Поєднуйте рядки, стовпці або комірки, не втрачаючи даних.
doc об’єднати рядки стовпців в один 1

2. У діалоговому вікні, що з’являється, поставте галочку Об’єднати в одну клітинку і вкажіть потрібний роздільник, а потім клацніть Ok.
doc об’єднати рядки стовпців в один 1

Тепер клітинки об’єднані в одну комірку за допомогою певного роздільника. Якщо вмісту комірки занадто багато для відображення в об’єднаній комірці, можна клацнути Обернути текст під Головна вкладку, щоб показати їх.
doc об’єднати рядки стовпців в один 1

Щоб дізнатися більше про цю функцію, відвідайте сторінку Комбінуйте стовпці, рядки, клітинки без втрати даних.

Для отримання додаткової інформації про Kutools для Excel відвідайте Kutools для Excel.

Щоб отримати 30-денну безкоштовну пробну версію Kutools для Excel, будь ласка скачати це зараз.

3.2 Об’єднайте кілька рядків і стовпців в одну клітинку

 Транспонуйте клітинки в один стовпець
 doc об’єднати рядки стовпців в один 1
 Транспонуйте клітинки в один рядок
 doc об’єднати рядки стовпців в один 1
 

3.21 Назвіть діапазон і використовуйте функцію INDEX (лише для одного стовпця)

Якщо ви хочете транспонувати діапазон комірок в один стовпець, ви можете назвати діапазон, а потім використовувати функцію INDEX.

1. Виберіть діапазон комірок, клацніть правою кнопкою миші, щоб увімкнути контекстне меню, і клацніть Визначте ім’я.
doc об’єднати рядки стовпців в один 1

2. У вискакуванні Нове ім'я діалоговому вікні, введіть ім’я в поле ІМ'Я текстове поле, клацніть OK.
doc об’єднати рядки стовпців в один 1

3. Після назви діапазону виберіть клітинку, в якій розміщені транспоновані дані, скористайтеся функцією INDEX, як це:

=INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1)

Додаткову інформацію про функцію INDEX див тут.

4. прес Що натомість? Створіть віртуальну версію себе у клавішу, а потім перетягніть маркер автозаповнення вниз, щоб заповнити цю формулу, доки не з’явиться #REF! з'являється значення помилки.
doc об’єднати рядки стовпців в один 1

5. Видаліть значення помилки, тоді діапазон комірок буде об'єднано в один стовпець.

3.22 VBA (тільки для одного стовпця)

Для об’єднання клітинок в один стовпець ось VBA, який також може працювати.

1. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно, а потім натисніть Insert > Модулі щоб створити новий порожній модуль.

2. Скопіюйте та вставте наведений нижче код VBA в порожній модуль.

VBA: перетворення діапазону в стовпець

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

doc об’єднати рядки стовпців в один 1

3. Потім натисніть F5 клавішу або клацніть прогін doc об’єднати рядки стовпців в один 1  відкриється діалогове вікно, щоб вибрати діапазон комірок, натисніть OK.
doc об’єднати рядки стовпців в один 1

4. З’явиться інше діалогове вікно для вибору комірки для розміщення результату, клацніть OK.
doc об’єднати рядки стовпців в один 1

3.23 Використання зручного інструменту – Transform Range

Якщо ви хочете об’єднати клітинки в один рядок, в Excel немає вбудованої функції для її підтримки. Однак, якщо у вас є Kutools для Excel встановлений, його Діапазон трансформації функція підтримує перетворення діапазону в один стовпець або рядок, а також підтримує перетворення рядка або стовпця в діапазон.

1. виберіть діапазон комірок і клацніть Кутулс > Діапазон > Діапазон трансформації.
doc об’єднати рядки стовпців в один 1

2 В Діапазон трансформації діалогове вікно, перевірте Діапазон до однієї колонки or Діапазон до одного рядка варіант як вам потрібно. Натисніть OK.
doc об’єднати рядки стовпців в один 1

3. З’явиться діалогове вікно для вибору комірки для розміщення результату, клацніть OK.
doc об’єднати рядки стовпців в один 1

Тепер діапазон комірок було перетворено в рядок або стовпець.

Щоб дізнатися більше про цю функцію, відвідайте сторінку Діапазон трансформації.

Для отримання додаткової інформації про Kutools для Excel відвідайте Kutools для Excel.

Щоб отримати 30-денну безкоштовну пробну версію Kutools для Excel, будь ласка скачати це зараз.

3.3 Складіть стовпці в один стовпець без повторень

Якщо в таблиці з кількома стовпцями є кілька дублікатів, як ви можете об’єднати стовпці в один стовпець без дублікатів, як показано на знімку екрана нижче?
doc об’єднати рядки стовпців в один 1

У цій частині він надає три різні методи виконання цієї роботи.

3.31 Скопіюйте, вставте та видаліть дублікати

У Excel загальний метод вирішення цього завдання полягає в тому, щоб скопіювати та вставити стовпці один за іншим, а потім видалити повторювані значення.

1. Виберіть перший стовпець і натисніть Ctrl + C клавіші, щоб скопіювати його, потім виберіть цільову клітинку та натисніть Ctrl + V ключі.
doc об’єднати рядки стовпців в один 1

2. Потім повторіть крок 1, щоб скопіювати інші стовпці та вставити їх під перший стовпець.
doc об’єднати рядки стовпців в один 1

3. Потім виділіть стовпець із стеком, клацніть дані > Видалити дублікати, потім в Видалити дублікат діалоговому вікні, перевірте назву стовпця, клацніть OK.
doc об’єднати рядки стовпців в один 1
doc об’єднати рядки стовпців в один 1

4. Тепер з'явиться діалогове вікно, щоб нагадати вам, що дублікати значень видалено. Натисніть OK щоб закрити його, і стовпець із стеком зберігає лише унікальні значення.
doc об’єднати рядки стовпців в один 1

doc об’єднати рядки стовпців в один 1 Якщо є сотні стовпців, копіювання та вставка один за іншим займає багато часу. Однак, якщо у вас є Kutools для Excel встановлений в Excel, Діапазон трансформації функція може швидко перетворити діапазон у стовпець, а потім застосувати Видалити дублікати функція Excel.

Виберіть діапазон стовпців і клацніть Кутулс > Діапазон > Діапазон трансформації.
doc об’єднати рядки стовпців в один 1

Потім перевірте Діапазон до однієї колонки і натисніть OK щоб вибрати комірку для розміщення стовпця з стеком.
doc об’єднати рядки стовпців в один 1

А потім застосувати Видалити дублікати, щоб видалити повторювані значення.

Щоб дізнатися більше про цю функцію, відвідайте сторінку Діапазон трансформації.

Для отримання додаткової інформації про Kutools для Excel відвідайте Kutools для Excel.

Щоб отримати 30-денну безкоштовну пробну версію Kutools для Excel, будь ласка скачати це зараз.

3.32 Використання VBA

Крім того, ось код VBA, який може вирішити цю роботу.

1. прес інший + F11 клавіші, щоб увімкнути Microsoft Visual Basic для додатків вікно, а потім натисніть Insert > Модулі щоб створити новий порожній модуль.

2. Скопіюйте та вставте наведений нижче код у новий модуль.

VBA: стек стовпців в один без дублікатів

Sub FindUniques()
'UpdatebyExtendoffice
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set dic = CreateObject("Scripting.Dictionary")
For j = 1 To InputRng.Columns.Count
    For i = 1 To InputRng.Rows.Count
        xValue = InputRng.Cells(i, j).Value
        If xValue <> "" And Not dic.Exists(xValue) Then
            OutRng.Value = xValue
            dic(xValue) = ""
            Set OutRng = OutRng.Offset(1, 0)
        End If
    Next
Next
End Sub

doc об’єднати рядки стовпців в один 1

3. Потім натисніть F5 клавішу або клацніть прогін doc об’єднати рядки стовпців в один 1  , потім з’явиться діалогове вікно для вибору стовпців, які потрібно укласти, натисніть кнопку OK.
doc об’єднати рядки стовпців в один 1

4. Потім у другому діалоговому вікні, що спливає, виберіть цільову клітинку, щоб розмістити стовпець із стеком, і натисніть OK.
doc об’єднати рядки стовпців в один 1

Тепер стовпці зведено в один стовпець лише з унікальними значеннями.

3.4. Об’єднайте клітинки та продовжуйте форматування

Якщо є два стовпці, один із них відформатовано як спеціальне форматування, наприклад користувацький DateTimemm/dd/yyyy, щоб об’єднати ці два стовпці в один із звичайними методами, користувацьке форматування буде видалено, як показано на знімку екрана нижче:
doc об’єднати рядки стовпців в один 1

Тепер у цій частині він надасть деякі способи об’єднання клітинок та збереження форматування.
doc об’єднати рядки стовпців в один 1

3.41 Вставити функцію TEXT у формулу

Функція TEXT використовується для перетворення числа в текст у певному форматуванні. Тут ми можемо використовувати його, щоб спочатку перетворити клітинку (містить число) у форматування, а потім об’єднати її з іншими клітинками за допомогою «&», функції CONCATENATE, CONCAT або TEXTJOIN.

Щоб дізнатися більше про загальне об’єднання клітинок в одну, поверніться до 1.1.

Синтаксис функції TEXT
TEXT (value, format_text)

Додаткову інформацію про функцію TEXT див TEXT функції.

Тут береться вбудовування функції TEXT у функцію CONCAT як екземпляр.

Будь ласка, скопіюйте та вставте наведену нижче формулу в комірку, в якій потрібно помістити об’єднаний результат:

=CONCAT(TEXT(A2,"mm/dd/yyyy hh:mm")," ",B2)

doc об’єднати рядки стовпців в один 1 У формулі A2 — це клітинка, форматування якої ви хочете зберегти, «мм/дд/рррр чч:мм» — це форматування, яке ви використовуєте, B2 — інша клітинка, яка використовується для об’єднання. " " вказує на розділення значень пробілом. ви можете змінити посилання, форматування та роздільник за потреби.

прес Що натомість? Створіть віртуальну версію себе у і перетягніть маркер автозаповнення вниз, щоб заповнити клітинки цією формулою.

3.42 Використання Microsoft Word

1. Виберіть таблицю, клітинки якої потрібно об’єднати в одну, і натисніть Ctrl + C копіювати їх.
doc об’єднати рядки стовпців в один 1

2. Відкрийте заготовку слово документ, прес Ctrl + V щоб розмістити їх, потім клацніть на таблиці в документі, тепер у верхньому правому куті таблиці з’явиться значок хрестика.
doc об’єднати рядки стовпців в один 1

3. Натисніть макет вкладку, а потім натисніть кнопку Перетворити в текст в дані група, в поп Перетворити таблицю в текст діалоговому вікні вкажіть роздільник для стовпців. Натисніть OK.
doc об’єднати рядки стовпців в один 1
doc об’єднати рядки стовпців в один 1

Тепер вміст таблиці в Word було перетворено на текст.
doc об’єднати рядки стовпців в один 1

4. Виберіть перетворені тексти та натисніть Ctrl + C щоб скопіювати їх, поверніться до Excel і виберіть порожню клітинку, натисніть Ctrl + V щоб вставити об’єднаний результат.
doc об’єднати рядки стовпців в один 1

3.43 Використання зручного інструменту – об’єднання без втрати даних

Найефективнішим способом має бути використання Kдопоміжні файли для ExcelАвтора Поєднуйте рядки, стовпці або комірки, не втрачаючи даних функція, яку потрібно просто поставити галочкою Використовуйте відформатовані значення прапорець під час застосування функції, об’єднаний результат збереже форматування даних.

1. Виберіть таблицю з осередками, в яких розміщено результат, клацніть Кутулс > Злиття та розділення > Поєднуйте рядки, стовпці або комірки, не втрачаючи даних.
doc об’єднати рядки стовпців в один 1

2. У спливаючому діалоговому вікні вкажіть необхідну операцію комбінування та зніміть прапорець Використовуйте відформатовані значення прапорець (за замовчуванням ця опція позначена). Натисніть Ok.
doc об’єднати рядки стовпців в один 1

Тепер дані об’єднані і зберігаємо форматування.
doc об’єднати рядки стовпців в один 1

Щоб дізнатися більше про цю функцію, відвідайте сторінку Комбінуйте стовпці, рядки, клітинки без втрати даних.

Для отримання додаткової інформації про Kutools для Excel відвідайте Kutools для Excel.

Щоб отримати {module745}-денну безкоштовну пробну версію Kutools для Excel, будь ласка скачати це зараз.

3.5 Об’єднайте клітинки, щоб зробити дату

Припустимо, що існує таблиця, яка містить роки, місяці та дні в окремих стовпцях, завдання полягає в тому, щоб об’єднати стовпці та створити дату, як показано нижче:
doc об’єднати рядки стовпців в один 1

3.51 Використання функції ДАТА

Функція ДАТА використовується для створення дати з роком, місяцем і днем.

Синтаксис функції DATE
DATE( year, month, day )

Щоб дізнатися більше про функцію DATE, відвідайте функцію DATE.

Скопіюйте та вставте наведену нижче формулу в комірку, де буде вказана дата:

=DATE(A2,B2,C2)

doc об’єднати рядки стовпців в один 1 У формулі A2, B2 і C2 є клітинками, що містять значення року, місяця та дня.

прес Що натомість? Створіть віртуальну версію себе у клавішу, щоб отримати першу дату, потім перетягніть маркер автозаповнення вниз, щоб отримати всі дати.
doc об’єднати рядки стовпців в один 1


Інші посібники з Excel:

Об’єднайте кілька робочих зошитів/аркушів в один
У цьому підручнику перераховано майже всі комбіновані сценарії, з якими ви можете зіткнутися, і надано відносні професійні рішення для вас.

Розділити текст, число та клітинки з датою (розділити на кілька стовпців)
Цей посібник поділено на три частини: розділені клітинки тексту, розділені клітинки з числами та розділені клітинки дати. Кожна частина містить різні приклади, які допоможуть вам зрозуміти, як впоратися з завданням поділу, коли зіткнулися з тією ж проблемою.

Комбінуйте вміст кількох клітинок без втрати даних у Excel
Цей посібник звужує область виділення до певної позиції в комірці та збирає різні методи, які допомагають витягувати текст або числа з комірки за певною позицією в Excel.

Порівняйте два стовпці для збігів і відмінностей в Excel
Тут ця стаття охоплює більшість можливих сценаріїв порівняння двох стовпців, які ви можете зустріти, і сподіваюся, що це допоможе вам.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці та Ведення даних; Вміст розділених комірок; Поєднуйте повторювані рядки та суму / середнє... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Улюблені та швидко вставлені формули, Діапазони, діаграми та зображення; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Групування зведеної таблиці за номер тижня, день тижня та багато іншого ... Показати розблоковані, заблоковані клітини за різними кольорами; Виділіть клітини, які мають формулу / назву...
вкладка kte 201905
  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations