Note: The other languages of the website are Google-translated. Back to English
Увійти  \/ 
x
or
x
Реєстрація  \/ 
x

or

Як об’єднати рядки в одну комірку на основі групи в Excel?

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

Групуйте та об’єднуйте за допомогою формул та функції фільтра

Групуйте та об’єднуйте за допомогою коду VBA

Групуйте та об’єднуйте за допомогою розширених комбінованих рядківгарна ідея3


Групуйте та об’єднуйте за допомогою формул та функції фільтра

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

примітки: Вам потрібно відсортувати дані за класом перед виконанням наступних кроків.

1. У пусту комірку поруч із діапазоном даних, наприклад, C13, введіть цю формулу =IF(A13=A12,C12&", "&B13,B13), натисніть Enter і заповніть формулу до комірок за допомогою перетягування ручки заповнення.
doc об’єднувати за групою 2

У формулі A13 - це перші дані у стовпці «Клас», B13 - перші дані у стовпці «Ім'я», «,» - роздільник для обмеження конкатенату вмісту.

2. Потім у наступному стовпці D13 введіть цю формулу =IF(A13<>A14,"Last","") та перетягніть маркер заповнення вниз, щоб застосувати формулу до потрібних комірок.
doc об’єднувати за групою 3

3. Тепер виберіть весь діапазон даних, включаючи формули, та натисніть дані > Filter додати Filter icons до даних.
doc об’єднувати за групою 4

4. Натисніть Filter icon в останньому заголовку формули, перевірте Last встановіть прапорець лише зі спадного списку та натисніть OK.
doc об’єднувати за групою 5

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


Групуйте та об’єднуйте за допомогою коду VBA

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

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

2. Потім у вікні натисніть Tools > References для того, щоб References діалогове вікно та перевірте Microsoft Scripting Runtime. Дивіться знімок екрана:
doc об’єднувати за групою 7
doc об’єднувати за групою 8

3. клацання OK, і клацніть Insert > Module у вікні VBA та скопіюйте та вставте нижче код VBA в Module сценарій. Дивіться знімок екрана:

VBA: об'єднати рядки в одну комірку на основі групи

  Sub ConcatenateCellsIfSameValues()
'UpdatebyExtendoffice20180201
    Dim I As Long
    Dim J As Long
    Dim xRg As Range
    Dim xRgKey As Range
    Dim xRgVal As Range
    Dim xStr As String
    Dim xDic As New Dictionary
    On Error Resume Next
    Set xRg = Application.InputBox("Select data range", "KuTools for Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Set xRgKey = Application.InputBox("Select key column", "KuTools for Excel", xRg.Columns(1).Address, , , , , 8)
    If xRgKey Is Nothing Then
        MsgBox "Key column cannot be empty", vbInformation, "KuTools for Excel"
    End If
    Set xRgVal = xRg(1).Offset(, 1).Resize(xRg.Rows.Count, xRg.Columns.Count - 1)
    For I = 1 To xRgKey.Count
        If I > xRgKey.Count Then Exit For
        xStr = ""
        For J = 1 To xRgVal.Columns.Count
            xStr = xStr & " " & xRgVal(I, J)
        Next
        If xDic.Exists(xRgKey(I).Text) Then
            xDic(xRgKey(I).Text) = xDic(xRgKey(I).Text) & xStr
            xRgKey(I).EntireRow.Delete
            I = I - 1
       Else
            xDic.Add xRgKey(I).Text, xStr
        End If
    Next
    For I = 1 To xRgVal.Count
        xRgVal(I).Value = xDic(xRgKey(I).Text)
    Next
End Sub

doc об’єднувати за групою 9

4. прес F5 і виберіть діапазон даних, який ви використовуєте у діалоговому вікні.
doc об’єднувати за групою 10

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

6. клацання OK, тепер результат показано нижче:
doc об’єднувати за групою 12


Групуйте та об’єднуйте за допомогою розширених комбінованих рядків

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

Kutools для Excel, з більш ніж 300 зручні функції, полегшує вам роботу. 

після установки Kutools для Excel, будь-ласка, виконайте наведені нижче дії:(Безкоштовно завантажте Kutools для Excel зараз!)

1. Виберіть діапазон даних, який ви використовуєте, і натисніть Kutools > Злиття та розділення > Розширені комбіновані ряди.
doc об’єднувати за групою 13

2 В Advanced Combine Rows вікно, виберіть стовпець, на основі якого потрібно об’єднати рядки, та клацніть Primary Key щоб встановити його як ключовий стовпець.
doc об’єднувати за групою 14

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

doc об’єднувати за групою 15 doc стрілка вправо doc об’єднувати за групою 16

4. клацання Ok. Результат відображається так:
doc об’єднувати за групою 17

примітки: Перш ніж застосовувати утиліту, вам краще скопіювати копію вихідних даних.


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

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

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2019 та 365. Підтримує всі мови. Простота розгортання на вашому підприємстві чи в організації. Повна функція 30-денної безкоштовної пробної версії. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.

Be the first to comment.