Jak odwołać się lub wyświetlić listę wartości na podstawie rozdzielonej przecinkami listy odwołań do kolumn w komórce w programie Excel?

Chcę wykonać vlookup (lub podobny) na kolumnie, która jest listą wartości. Działa to dobrze w przypadku wyszukiwania wartości z pojedynczego wiersza, ale chcę mieć możliwość wyszukiwania wielu wierszy, sumowania wyników i dzielenia przez liczbę wierszy, do których się odwołuje.

Na przykład:

   ABCDEFG
   [---- podane wartości ----------------] [Praca / Auth] [suma (vlookup (każda (G), tabela, 5))
                                                      / count (G)] [podane vals]

1 Pozycja Autoryzowana OnHand Operational Operation% Dependencyor% Dependencies 
2 A 1 1 1 1, 55 B 
3 B 10 5 5, 50, 55 C, D
4 C 100 75 50,50 .60 D
5 D 10 10 6 .60 1              

Chcę być w stanie pokazać wskaźnik operacyjny i szybkość działania systemów zależnych od (F). Aby uzyskać wartość F, chcę zsumować każdą wartość w kolumnie-E, do której odwołuje się zależność w kolumnie-G, a następnie podzielić przez liczbę zależności w G. Kolumna-G może mieć różne długości i będzie być rozdzieloną przecinkami listą wartości z kolumny-A.

Czy jest jakiś sposób, aby to zrobić w programie Excel?

Szukasz wzoru na każdy wiersz? Więc gdzie masz C, D w G3 (?) Zakładam, że chcesz wyszukać C i D w kolumnie A i uśrednić odpowiednie wartości w kolumnie E? Jeśli tak, spróbuj skopiować formułę tablicy dla wiersza 2

=AVERAGE(IF(COUNTIF(G2,"*"&A$2:A$10&"*")*(A$2:A$10<>""),E$2:E$10))

Aby wprowadzić formułę tablicową, musisz użyć CTRL-SHIFT-ENTER. Excel umieści nawiasy klamrowe {} wokół funkcji, aby wskazać, że jest to funkcja tablicy.

ponieważ masz zmienną ilość wartości, najłatwiej jest użyć UDF (funkcja zdefiniowana przez użytkownika)

To powinno dać ci odpowiedź:

Function CSVAverage(CSVList As String, DataRange As Range, NumberColumn As Long) 
Dim FindList() As String
Dim NumEntries As Long
Dim I As Long
Dim Tot As Double

FindList = Split(CSVList, ",")
Tot = 0
NumEntries = UBound(FindList) - LBound(FindList) + 1

On Error Resume Next
For I = LBound(FindList) To UBound(FindList)
    Tot = Tot + Application.WorksheetFunction.VLookup(FindList(I), DataRange, NumberColumn, False)
    If Err.Number <> 0 Then
        CSVAverage = CVErr(xlErrNum)
        Exit Function
    End If
Next I
CSVAverage = Tot / NumEntries
End Function

Jeśli masz wartość, która nie została znaleziona, funkcja powróci #NUM!
przy użyciu przykładowego arkusza kalkulacyjnego, F1 miałaby=CSVAverage(G1,A2:E5,5)