Note: The other languages of the website are Google-translated. Back to English

Как быстро объединить строки на основе одного значения столбца, а затем выполнить некоторые вычисления в Excel?

Например, у вас есть диапазон данных, и в одном столбце есть дубликаты, теперь вы хотите объединить строки на основе столбца A (есть дубликаты), а затем выполнить некоторые вычисления для другого столбца на основе объединенных строк, как показано на скриншоте:

В Excel нет быстрого метода объединения строк на основе одного значения столбца, но здесь я представляю
уловки, которые могут помочь вам объединить повторяющиеся строки, а затем суммировать или выполнять другие вычисления в другом столбце.


стрелка синий правый пузырь Объедините строки на основе одного столбца, затем суммируйте значения с помощью VBA

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

Просмотр и редактирование нескольких книг Excel / документов Word с вкладками в Firefox, Chrome, Internet Explore 10!

Возможно, вы знакомы с просмотром нескольких веб-страниц в Firefox / Chrome / IE и возможностью переключения между ними, легко щелкая соответствующие вкладки. Здесь вкладка Office поддерживает аналогичную обработку, что позволяет вам просматривать несколько книг Excel или документов Word в одном окне Excel или Word и легко переключаться между ними, щелкая их вкладки. Нажмите бесплатно 30-дневная пробная версия Office Tab!

не отличаться

1. Нажмите F11 + Альт ключи для включения Microsoft Visual Basic для приложений окно, затем щелкните Вставить > Модули и скопируйте и вставьте ниже код VBA в новый Модули окно.

VBA: объединить строки на основе одного значения столбца

Sub MG30Nov12()
'Updateby20150519
Dim Rng As Range
Dim InputRng As Range
Dim nRng As Range
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set InputRng = InputRng.Parent.Range(InputRng.Columns(1).Address)
With CreateObject("scripting.dictionary")
.CompareMode = vbTextCompare
For Each Rng In InputRng
    If Not .Exists(Rng.Value) Then
        .Add Rng.Value, Rng.Offset(, 1)
    Else
        .Item(Rng.Value).Value = .Item(Rng.Value).Value + Rng.Offset(, 1)
            If nRng Is Nothing Then
                Set nRng = Rng
            Else
                Set nRng = Union(nRng, Rng)
            End If
    End If
Next
If Not nRng Is Nothing Then
    nRng.EntireRow.Delete
End If
End With
End Sub

2. Нажмите F5 или нажмите кнопку Run кнопку для запуска VBA, и появится диалоговое окно для выбора диапазона данных для работы. см. снимок экрана:

doc объединить столбцы на основе одного столбца 3

3. После выбора рабочего диапазона нажмите OK. Теперь данные были объединены по первому столбцу и суммированы значения во втором столбце.

doc объединить столбцы на основе одного столбца 4

Внимание: Этот код VBA может правильно работать при слиянии на основе первого столбца и значений суммы во втором столбце.


стрелка синий правый пузырь Объединяйте строки на основе одного столбца, а затем суммируйте значения с помощью Advanced Combine Rows

Если вы не знакомы с кодом VBA, вы можете использовать Расширенные ряды комбинирования особенность инструмента надстройки третьей части - Kutools for Excel чтобы легко и быстро объединить повторяющиеся строки, а затем суммировать значения в другом столбце.

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите данные, которые хотите использовать, и нажмите Кутулс > Слияние и разделение > Расширенные ряды комбинирования. Смотрите скриншот:

doc расширенный комбайн, ряд 1

2. Затем в появившемся диалоговом окне выберите столбец, на основе которого вы будете объединять другие столбцы, затем щелкните первичная Key, щелкните другой столбец и щелкните Рассчитать Затем выберите Сумма.

Функции: Если у выбранного диапазона есть заголовки, отметьте У моих данных есть заголовки, и проверьте Использовать форматированные значения сохранит форматирование после слияния.

doc объединить столбцы на основе одного столбца 6

3. Затем нажмите Ok. Теперь данные были объединены на основе основного столбца, а другой - суммирован. Смотрите скриншот:

doc объединить столбцы на основе одного столбца 7


стрелка синий правый пузырь Объединяйте строки на основе одного столбца, а затем выполняйте различные операции с другими столбцами с помощью Advanced Combine Rows.

Расширенные ряды комбинирования является мощным, потому что он не только может объединять повторяющиеся строки в одном столбце, а затем суммировать другой столбец, но также может объединять повторяющиеся строки в одном столбце, а затем выполнять различные операции с другими столбцами.

Предположим, у меня есть диапазон данных, как показано на скриншоте ниже, и я хочу объединить значения в столбце B и значения суммы в столбце C на основе столбца A.
doc объединить столбцы на основе одного столбца 8

После бесплатная установка Kutools for Excel, сделайте следующее:

1. Выберите диапазон данных и нажмите Кутулс > Слияние и разделение > Расширенные ряды комбинирования. Смотрите скриншот:

doc расширенный комбайн, ряд 1

2. в Объединить строки на основе столбца диалог, сделайте вот так:

(1) Щелкните столбец, на основе которого вы хотите объединить, и щелкните Основной ключ;

doc объединить столбцы на основе одного столбца 10

(2) Щелкните столбец, в котором вы хотите объединить данные, и щелкните Сочетать, затем выберите из списка один нужный разделитель;

doc объединить столбцы на основе одного столбца 11

(3) Щелкните столбец, значения которого вы хотите суммировать, и щелкните РассчитатьИ выберите Сумма.

doc объединить столбцы на основе одного столбца 12

3. Нажмите Ok. Теперь вы можете увидеть результат, как показано ниже:

doc объединить столбцы на основе одного столбца 13

Работы С Нами Расширенные ряды комбинирования функцию, вы также можете объединять строки на основе одного столбца, а затем подсчитывать, усреднять, сохранять первые или последние данные в других столбцах. 


Лучшие инструменты для работы в офисе

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (3)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Эй, ваш модуль раньше работал и с большими таблицами (например, вы хотите подвести итоги по годам, но у вас есть Продажи 1, Продажи 2, Продажи 3 и т. д.). Но теперь он правильно получает только первый столбец (Продажи 1), а все остальные суммируются неправильно. Вы что-нибудь изменили?
Благодаря!
Этот комментарий был сведен к минимуму модератором на сайте
Привет, IK, может быть, вы можете использовать функцию суммового произведения СУММПРОИЗВ((A2:A10="Перо")*(B2:E10)) для вычисления их по одному. A2:A10 — это диапазон, содержащий искомое значение, перо — это критерий, B2: E10 — это диапазон, который вы хотите суммировать на основе критерия.
Этот комментарий был сведен к минимуму модератором на сайте
У меня такой же/похожий вопрос. Я пытаюсь суммировать все столбцы справа от ссылочной ячейки, но суммирует только один. Как мне заставить его суммировать все, что справа, по отдельности?
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL