Может ли Excel сгенерировать процентную диаграмму из столбца со значениями CSV? Как?

Question

Не уверен, что это вообще возможно. Представьте себе следующий лист Excel:

STOCK|VALUE|TAGS
ABCDE|10000|Z,X  
FGHIJ|20000|X,Y
KLMNO|30000|X,Y,Z
PQRST|10000|Z,Y
Total|70000|

Теперь где-нибудь на листе или в рабочей книге я хочу сгенерировать проценты того, из чего состоит каждый тег, по отношению к общему значению. Так, например, он покажет мне (динамически генерируется на основе используемых значений 'TAGS'):

X = 60,000 / 85.71%
Y = 60,000 / 85.71%
Z = 50,000 / 71.43%

Первый (и единственный) метод, который приходит на ум, - это оператор if для каждого возможного значения 'TAG'. Однако это долго, громоздко, грязно, неэффективно и не динамично. Конечно, есть лучший способ? Предпочел бы строго решение Excel; но если это невозможно - VBA это должно быть, я полагаю ...

//Edit> нерабочий VBA, который у меня есть на данном этапе. Я не делаю VBA; так что извините за плохой код. В настоящее время эта попытка создать список в 5-м /6-м столбце полей уникальных тегов и суммировать их с процентным полем в 7-м столбце. Он не работает в текущем состоянии, потому что принимает все поле тега как одно значение.

Sub ProcessData1()

Dim dict As Dictionary
Dim i As Integer
Dim targetRow As Integer
Dim stock As String
Dim value As Double
Dim more As Boolean

Set dict = New Dictionary

more = True
'Row Start
i = 2
targetRow = 1

While more
    tags = Worksheets("holdings").Cells(i, 3).value

    If dict.Exists(tags) Then
        value = Worksheets("holdings").Cells(dict.Item(tags), 6) + Worksheets("holdings").Cells(i, 2).value
        Worksheets("holdings").Cells(dict.Item(tags), 6) = value
        'Assumes Total value on Row 21
        Worksheets("holdings").Cells(dict.Item(tags), 7) = value * 100 / Worksheets("holdings").Cells(21, 2)
    Else
        targetRow = targetRow + 1
        Worksheets("holdings").Cells(targetRow, 5) = Worksheets("holdings").Cells(i, 3).value
        Worksheets("holdings").Cells(targetRow, 6) = Worksheets("holdings").Cells(i, 2).value
        Worksheets("holdings").Cells(targetRow, 7) = Worksheets("holdings").Cells(i, 2).value * 100 / Worksheets("holdings").Cells(21, 2)
        dict.Item(tags) = targetRow
    End If

    i = i + 1

    If Len(Worksheets("holdings").Cells(i, 1)) = 0 Then more = False
Wend

End Sub

Answer 1

Вы можете использовать SUMIFS с подстановочными знаками:

=SUMIFS(B:B,C:C,"*" & E1 & "*")/$B$5

Answer 2

Итак, я придумала свой собственный ответ. Это VBA, и я не делаю VBA, как я уже сказал выше, поэтому приведенный ниже код, я уверен, далек от идеального решения, но он делает свое дело.

Sub ProcessData1()

Dim dict As Dictionary
Dim i As Integer
Dim j As Integer
Dim targetRow As Integer
Dim stock As String
Dim value As Double
Dim more As Boolean
Dim tags() As String
Dim tag As String

Set dict = New Dictionary

more = True
'Row Start
i = 2
targetRow = 1

While more
    tags() = Split(Worksheets("holdings").Cells(i, 3).value, ",")

    For j = LBound(tags) To UBound(tags)
        tag = tags(j)
        'MsgBox tag

        If dict.Exists(tag) Then
            value = Worksheets("holdings").Cells(dict.Item(tag), 6) + Worksheets("holdings").Cells(i, 2).value
            Worksheets("holdings").Cells(dict.Item(tag), 6) = value
            'Assumes Total value on Row 21
            Worksheets("holdings").Cells(dict.Item(tag), 7) = value * 100 / Worksheets("holdings").Cells(21, 2)
        Else
            targetRow = targetRow + 1
            Worksheets("holdings").Cells(targetRow, 5) = tag
            Worksheets("holdings").Cells(targetRow, 6) = Worksheets("holdings").Cells(i, 2).value
            Worksheets("holdings").Cells(targetRow, 7) = Worksheets("holdings").Cells(i, 2).value * 100 / Worksheets("holdings").Cells(21, 2)
            dict.Item(tag) = targetRow
        End If
    Next j

    i = i + 1

    If Len(Worksheets("holdings").Cells(i, 1)) = 0 Then more = False
Wend

End Sub