Tento postup sa volá unpivot-ovanie (rozloženie kontingenčnej tabuľky=pivot table). Z už existujúcej kontingenčnej tabuľky sa dá (ako je aj vo videu) dostať k zdrojovej tabuľke poklikaním (2xľavé tlačidol myši) na agregovanú hodnotu=>zobrazí všetky vstupné hodnoty a všetky ich dimenzie. Vo videu kt nevykonáva žiadnu agregáciu a tabuľka neobsahuje iné dimenzie, tak to zafunguje skvelo. Ale asi previesť tabuľku na kt a rozkliknúť sumár nechcete. Nepoznám však inú cestu okrem tejto a nástroja Power Query.
PQ je od verzie 2010 možné stiahnuť ako doplnok a v 2016 je automaticky. Všimol som si, že používate verziu 2016 a preto pripájam odkaz na video na dosiahnutie tohto cieľa. MePExG (.sk)
PowerQuery UnPivot
Prikladám makro aj súbor s ním, ktoré na vybranú pozíciu rozloží (zadanú dvojrozmernú) tabuľku.
Sub UnPivot()
Static ciel As Range, vstup As Range, c As Integer, s As Integer, r As Integer, stlpcov As Integer, riadkov As Integer
Set ciel = Selection
Set vstup = Application.InputBox(prompt:="Vyberte prosím," & Chr(10) & "z ktorej oblasti UnPivotovať?", Type:=8)
riadkov = vstup.Rows.Count()
stlpcov = vstup.Columns.Count()
If stlpcov < 2 Or riadkov < 2 Then
Exit Sub
End If
ciel = vstup(1, 1)
ciel.Offset(0, 1) = "Atribut"
ciel.Offset(0, 2) = "Hodnota"
c = 1
For r = 2 To riadkov
For s = 2 To stlpcov
If vstup(r, s) <> 0 Then
ciel.Offset(c, 0) = vstup(r, 1)
ciel.Offset(c, 1) = vstup(1, s)
ciel.Offset(c, 2) = vstup(r, s)
c = c + 1
End If
Next s
Next r
End Sub