Как объединить уникальные значения в Excel?
Если у меня есть длинный список значений, которые заполнены некоторыми повторяющимися данными, теперь я хочу найти только уникальные значения, а затем объединить их в одну ячейку. Как быстро и легко решить эту проблему в Excel?
Найдите уникальные значения в столбце и объедините их в одну ячейку с кодом VBA
Найдите уникальные значения в столбце и объедините их в одну ячейку с помощью Kutools for Excel
Перечислить уникальные значения и объединить соответствующие значения с кодом VBA
Список уникальных значений и объединение соответствующих значений с помощью Kutools for Excel
Найдите уникальные значения в столбце и объедините их в одну ячейку с кодом VBA
Следующие Функция, определяемая пользователем может помочь вам объединить только уникальные значения в одну ячейку из списка, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: объединить уникальные значения в одну ячейку:
Function ConcatUniq(xRg As Range, xChar As String) As String
'updateby Extendoffice
Dim xCell As Range
Dim xDic As Object
Set xDic = CreateObject("Scripting.Dictionary")
For Each xCell In xRg
xDic(xCell.Value) = Empty
Next
ConcatUniq = Join$(xDic.Keys, xChar)
Set xDic = Nothing
End Function
3. Затем вернитесь к своему рабочему листу и введите эту формулу: = ConcatUniq (A1: A17; ",") в пустую ячейку, в которую вы хотите вывести объединенный результат, и нажмите Enter ключ, чтобы получить уникальный объединенный результат, см. снимок экрана:
Внимание: В приведенной выше формуле A1: A17 это диапазон ячеек, который вы хотите объединить, а запятая «,»- это разделитель, необходимый для разделения объединенных значений, вы можете изменить их по своему усмотрению.
Найдите уникальные значения в столбце и объедините их в одну ячейку с помощью Kutools for Excel
Если вы не знакомы с кодом VBA, Kutools for Excel также может вам помочь, вы можете объединить Выберите повторяющиеся и уникальные ячейки и Сочетать коммунальные услуги для достижения нужного вам результата.
| Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. |
После установки Kutools for Excel, пожалуйста, сделайте следующее :( Скачать бесплатно Kutools for Excel прямо сейчас! )
1. Выберите список ячеек, в котором вы хотите объединить только уникальные значения.
2. Нажмите Кутулс > Выберите > Выберите повторяющиеся и уникальные ячейки, см. снимок экрана:
3. В Выберите повторяющиеся и уникальные ячейки диалоговое окно, выберите Все уникальные (включая 1-е дубликаты) вариант под Правило раздел, см. снимок экрана:
Советы: Если вы хотите объединить уникальные значения, исключая первый появляющийся дубликат, отметьте Только уникальные значения опцию.
4. Затем нажмите OK кнопку, и были выбраны только уникальные значения, а затем нажмите Ctrl + C чтобы скопировать их и вставить в определенное место, нажав Ctrl + V, см. снимок экрана:
5. Выделите вставленные уникальные ячейки и нажмите Кутулс > Слияние и разделение > Комбинируйте строки, столбцы или ячейки без потери данных, см. снимок экрана:
6. В Объединить столбцы или строки диалоговое окно, выберите Объединить в одну ячейку под Чтобы объединить выбранные ячейки в соответствии со следующими параметрами, а затем укажите разделитель для ваших объединенных данных, см. снимок экрана:
7. Затем нажмите Ok or Применить Кнопка, извлеченные уникальные значения были объединены в одну ячейку, как показано на следующем снимке экрана:
Скачать бесплатно Kutools for Excel прямо сейчас!
Перечислить уникальные значения и объединить соответствующие значения с кодом VBA
В другом случае у вас есть диапазон данных, который включает два столбца, и теперь вы хотите перечислить только уникальные значения и объединить их соответствующие значения другого столбца, чтобы получить следующий результат, есть ли у вас какие-либо хорошие способы завершить эту работу в Excel?
Здесь вы можете применить следующий код VBA для выполнения этой работы, пожалуйста, сделайте следующее:
1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.
2. Нажмите Вставить > Модулии вставьте следующий код в Модули Окно.
Код VBA: список уникальных значений и объединение соответствующих данных
Sub test()
'updateby Extendoffice
Dim xRg As Range
Dim xArr As Variant
Dim xCell As Range
Dim xTxt As String
Dim I As Long
Dim xDic As Object
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range", "Kutools for Excel", xTxt, , , , , 8)
Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "Does not support multiple selections", , "Kutools for Excel"
Exit Sub
End If
If xRg.Columns.Count <> 2 Then
MsgBox "There must be only two columns in the selected range", , "Kutools for Excel"
Exit Sub
End If
xArr = xRg
Set xDic = CreateObject("Scripting.Dictionary")
xDic.CompareMode = 1
For I = 1 To UBound(xArr)
If Not xDic.Exists(xArr(I, 1)) Then
xDic.Item(xArr(I, 1)) = xDic.Count + 1
xArr(xDic.Count, 1) = xArr(I, 1)
xArr(xDic.Count, 2) = xArr(I, 2)
Else
xArr(xDic.Item(xArr(I, 1)), 2) = xArr(xDic.Item(xArr(I, 1)), 2) & "," & xArr(I, 2)
End If
Next
Sheets.Add.Cells(1).Resize(xDic.Count, 2).Value = xArr
End Sub
3, Затем нажмите F5 нажмите клавишу для запуска этого кода, и появится диалоговое окно, напоминающее вам о выборе диапазона данных, который вы хотите объединить на основе уникальных значений, см. снимок экрана:
4. Нажмите OK, уникальные значения были извлечены, а соответствующие им значения в другом столбце были объединены в новый рабочий лист.
Внимание: В приведенном выше коде вы можете изменить красную запятую xArr (xDic.Item (xArr (I, 1)), 2) = xArr (xDic.Item (xArr (I, 1)), 2) & ","& xArr (I, 2) в этом скрипте на любые другие разделители, которыми вы хотите разделить объединенные данные.
Список уникальных значений и объединение соответствующих значений с помощью Kutools for Excel
Если вы только что Kutools for Excel, С его Расширенные ряды комбинирования вы можете решить эту проблему быстро и легко без кода.
После установки Kutools for Excel, пожалуйста, сделайте следующее :( Скачать бесплатно Kutools for Excel прямо сейчас! )
1. Во-первых, вы должны сделать копию ваших исходных данных, если вы хотите сохранить исходные данные. Затем выберите диапазон данных, который вы хотите объединить на основе уникальных значений.
2. Затем нажмите Кутулс > Слияние и разделение > Расширенные ряды комбинирования, см. снимок экрана:
3. В Расширенные ряды комбинирования в диалоговом окне щелкните имя столбца, в котором должны отображаться только уникальные значения, и щелкните Основной ключ, см. снимок экрана:
4. Затем щелкните имя другого столбца, который вы хотите объединить, и щелкните Сочетатьи выберите один разделитель для разделения объединенных данных, см. снимок экрана:
5, Затем нажмите Ok , значения были объединены на основе уникальных значений другого столбца, как показано на следующем снимке экрана:
Скачать бесплатно Kutools for Excel прямо сейчас!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
