Excel-将行中分配的具有相同编号的所有值连接起来

debugcn 发表于 Dev

曼尼斯（R Mannix）

不知道从何处开始-本质上这是我的问题。

我需要创建一个函数或宏，以将所有值与其行中的相同数字连接起来。

我在工作时使用的是员工列表，每个员工都有附加的成本中心。

我需要的是能够将12510 + 13030等旁边的所有名称连接到自己的单元格中。

任何帮助，将不胜感激。

编辑：我已经尝试了所有简单的事情，简单地说就是手动连接值。成本中心代码附加了一个以上的人员，我想将每个拥有该成本中心编号的人的值连接到一个类似=Concatenate(A1, " ", B1)etc的出售中

用户名

这应该可以帮助您：

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

本文收集自互联网，转载请注明来源。

如有侵权，请联系[email protected] 删除。