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

Question

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

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

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

Что мне нужно, чтобы иметь возможность объединить все имена рядом с 12510 + 13030 и т.д. и т.п. в свои собственные клетки.

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

РЕДАКТИРОВАТЬ: Я пробовал все простые вещи, которые просто вставили, чтобы конкатенировать значения вручную. МВЗ-коды имеют более чем один человек прилагается, я хочу, чтобы сцепить значения всех, кто имеет что стоимость номера центра в один продавать похож на =Concatenate(A1, " ", B1) и т.д.

Answer 1

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

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