Не уверен, что это вообще возможно. Представьте себе следующий лист 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 это должно быть, я полагаю ...
// Редактировать & gt; Нерабочий 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
источник
Ответы:
Вы можете использовать SUMIFS с подстановочными знаками:
источник
Итак, я придумала свой собственный ответ. Это VBA, и я не делаю VBA, как я уже сказал выше, поэтому приведенный ниже код, я уверен, далек от идеального решения, но он справляется.
источник