Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как объединить строки в одну ячейку на основе группы в Excel?

Здесь представлен диапазон из двух столбцов, один - список классов, а другой - список имен учеников. Как вы видите, некоторые студенты находятся в одном классе, а некоторые - нет. Теперь я хочу объединить учащихся одного класса в одну ячейку, как показано ниже, как я могу быстро ее обработать в Excel?
doc concatenate группой 1

Группировать и объединять формулы и функцию фильтра

Группировать и объединять код VBA

Группировать и объединить с расширенными рядами комбинированияхорошая идея3

Легко Объединить столбцы или строки без потери данных в Excel

Предположим, вы работаете с листом, который содержит несколько повторяющихся записей, и теперь вам нужно объединить / объединить строки на основе одного и того же значения и выполнить некоторые вычисления, такие как сумма, среднее значение, количество повторяющихся строк. С этим Расширенные ряды комбинирования of Kutools for Excel, вы можете быстро объединить одинаковые значения / одни и те же данные или дублировать строки в соответствующие ячейки. Нажмите для бесплатной пробной версии 60!
doc advanced объединить строки
Kutools for Excel: с более чем 200 удобными надстройками Excel, без ограничений в 60-дни.

Группировать и объединять формулы и функцию фильтра

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

Внимание: Вам необходимо отсортировать данные по классу до следующих шагов.

1. В пустой ячейке рядом с диапазоном данных, например C13, введите эту формулу =IF(A13=A12,C12&", "&B13,B13), Нажмите Enter и заполните формулу ячейками перетаскиванием дескриптора заполнения.
doc concatenate группой 2

В формуле A13 - это первые данные в столбце «Класс», B13 - это первые данные в столбце «Имя», «,» - разделитель для ограничения содержимого конкатенации.

2. Затем в следующем столбце D13 введите эту формулу =IF(A13<>A14,"Last","") , и перетяните дескриптор заполнения вниз, чтобы применить формулу к ячейкам, которые вам нужны.
doc concatenate группой 3

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

4. Нажмите Filter icon в последнем заголовке формулы, проверьте Last установите флажок только из раскрывающегося списка и нажмите OK.
doc concatenate группой 5

Теперь результат показан ниже, вы можете удалить последний столбец помощника, если вам это не понадобится.
doc concatenate группой 6


Группировать и объединять код VBA

Вот код VBA, который также может обрабатывать это задание.

1. Нажмите Alt + F11 для включения Microsoft Visual Basic for Applications окна.

2. Затем в окне нажмите Tools > References включить References диалога и проверки Microsoft Scripting Runtime, Смотрите скриншот:
doc concatenate группой 7
doc concatenate группой 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 concatenate группой 9

4. Нажмите F5 и выберите диапазон данных, который вы используете в диалоговом окне.
doc concatenate группой 10

5. Нажмите OK для выбора столбца ключа, на котором вы хотите группировать.
doc concatenate группой 11

6. Нажмите OK, теперь результат показан ниже:
doc concatenate группой 12


Группировать и объединить с расширенными рядами комбинирования

Вот утилита в Kutools for Excel, Advanced Combine Ряды, который может комбинировать строки или выполнять вычисления на основе ключевого столбца в Excel.

Kutools for Excel, с более чем 120 удобные функции, упрощают работу.

После установки Kutools для Excel, пожалуйста, сделайте следующее:(Скачать Kutools для Excel сейчас!)

1. Выберите диапазон данных, который вы используете, и нажмите Kutools > Content > Расширенные ряды комбинирования.
doc concatenate группой 13

2. в Advanced Combine Rows window, выберите столбец, который вы хотите комбинировать на основе строк, и нажмите Primary Key чтобы установить его как ключевой столбец.
doc concatenate группой 14

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

doc concatenate группой 15 doc arrow right doc concatenate группой 16

4. Нажмите Ok, Результат показан следующим образом:
doc concatenate группой 17

Внимание: Перед применением утилиты вам лучше иметь копию исходных данных.


  • Супер Формула Бар (легко редактировать несколько строк текста и формул); Макет чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон...
  • Объединить ячейки / строки / столбцы и хранение данных; Содержание сплит-клеток; Объедините дублирующиеся строки и сумму / среднее... предотвратить повторяющиеся клетки; Сравнить диапазоны...
  • Выберите Дубликат или Уникальный Ряды; Выберите пустые строки (все ячейки пусты); Супер найти и нечеткая находка во многих рабочих тетрадях; Случайный выбор ...
  • Точная копия Несколько ячеек без изменения формулы ссылки; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое ...
  • Любимые и быстро вставляемые формулы, Диапазоны, графики и рисунки; Шифрование ячеек с паролем; Создать список рассылки и отправлять электронные письма ...
  • Извлечение текстаДобавить текст, Удалить по позиции, Удалить пространство; Создание и печать промежуточных итогов подкачки; Преобразование содержимого ячеек и комментариев...
  • Суперфильтр (сохранить и применить схемы фильтров к другим листам); Расширенный поиск по месяцам / неделям / дням, частоте и более; Специальный фильтр жирным шрифтом, курсивом ...
  • Объединить рабочие тетради и рабочие листы; Объединение таблиц на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF...
  • Работает с Office 2007-2019 и 365 и поддерживает все языки. Это легко развернуть в вашей компании. Полнофункциональная 60-дневная бесплатная пробная версия.
вкладка kte 201905
  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
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.