Строка сводной таблицы, разделенная запятой - PullRequest
Новая
       6

Строка сводной таблицы, разделенная запятой

0 голосов
/ 08 июня 2011

У меня есть Источник данных, и мне нужно показать их в сводной таблице.

Пожалуйста, посмотрите выходной лист из прикрепленного файла и дайте мне знать, как я могу сделать это

Пожалуйста, найдите образец приложения

1 Ответ

0 голосов
/ 08 июня 2011

Один из способов - создать пользовательскую функцию для создания списка, разделенного запятыми 

Function MergeCOO(rId As Range, r1 As Range, r2 As Range) As String
    Dim vIdx As Variant
    Dim vCOO As Variant
    Dim Id As Variant
    Dim i As Long, str As String
    Dim c As New Collection

    Id = rId.Value
    vIdx = r1
    vCOO = r2

    On Error Resume Next
    For i = LBound(vIdx, 1) To UBound(vIdx, 1)
        If vIdx(i, 1) = Id Then
            c.Add vCOO(i, 1), vCOO(i, 1)
            If Err.Number <> 0 Then Err.Clear
        End If
    Next

    For i = 0 To c.Count
        str = str & c.Item(i) & ","
    Next

    MergeCOO = Left(str, Len(str) - 1)

End Function

Добавить формулу в столбец L на листе Источник 

=MergeCOO([@[HS Code]],[HS Code],[COO])

Затем вы можете добавить этот дополнительный столбец в свой отчет по своему усмотрению

...