Excel – объединить все значения с одинаковым номером, назначенным в строке

не знаю, с чего начать с этого – по сути, это моя проблема.

Мне нужно создать функцию или макрос, который может объединить все значения с тем же номером в их строке.

Я использую список сотрудников на работе, и у каждого сотрудника есть центры затрат.

введите описание изображения здесь

Мне нужно, чтобы можно было объединить все имена рядом с 12510 + 13030 и т. Д. В свои собственные ячейки.

Любая помощь будет оценена по достоинству.

EDIT: Я пробовал все простые вещи, которые просто ставили, это конкатенировать значения вручную. В кодах МВЗ имеется более одного человека, я хочу объединить ценности каждого, у кого есть этот номер МВЗ, в тот, который продается аналогично =Concatenate(A1, " ", B1) т. Д.

это должно помочь вам:

 Option Explicit Sub ListCentreCostNames() Dim empNamesRng As Range, ccRng As Range, ccCell As Range, cell As Range Dim names As String With Worksheets("centrecost") '<--| change "centercost" to your actual worksheet name Set ccRng = .Range("C1", .Cells(.Rows.Count, "C").End(xlUp)) Set empNamesRng = Intersect(.Columns(2), ccRng.EntireRow) With .UsedRange With .Resize(1, 1).Offset(, .Columns.Count + 1) With .Resize(ccRng.Rows.Count) .Value = ccRng.Value .RemoveDuplicates Array(1), Header:=xlYes For Each ccCell In .SpecialCells(xlCellTypeConstants) ccRng.AutoFilter field:=1, Criteria1:=ccCell.Value If Application.WorksheetFunction.Subtotal(103, ccRng) - 1 > 0 Then names = "" For Each cell In empNamesRng.Offset(1).Resize(empNamesRng.Rows.Count - 1).SpecialCells(xlCellTypeVisible) names = names & cell.Value & " " Next cell End If ccCell.Offset(, 1) = names Next ccCell End With End With End With .AutoFilterMode = False End With End Sub 
Давайте будем гением компьютера.