Excel: Jak zamienić dwa wymiary pionowe na wymiar pionowy i poziomy

Mam stół, który z grubsza wygląda tak:

  col1 col2  col3                        table1
---------------
01| 1   A  value1A
02| 1   B  value1B
03| 1   Z  value1Z
04| 2   Z  value2Z
05| 3   A  value3A
06| 3   B  value3B
07| 3   Z  value3Z
08| 4   A  value4A
09| 4   B  value4B
10| 4   Z  value4Z
11| 5   Z  value5Z

I chciałbym uzyskać coś takiego:

      A       B       Z                  table2
 -------------------------
1| value1A value1B value1Z
2|                 value2Z
3| value3A value3B value3Z
4| value4A value4B value4Z
5|                 value5Z

Gdzie formuła w komórce A1 z tabeli 2 oblicza wartość A1 na podstawie wartości znajdujących się w komórkach A1 i B1 z tabeli 1 i gdzie druga kolumna w tabeli 1 jest czasami wypełniona tylko jedną wartością (zawsze w tym przypadku Z). Jeśli nie zostanie wypełniona jedną pojedynczą wartością, zawsze będą to 3 wartości (A, B i Z).

Jak dotąd nie znalazłem nic wygodnego.

EDYCJA: jak wspomniano w poniższych komentarzach, powinieneś także wiedzieć, że wartość1Z jest tak naprawdę sumą wartości1A i wartości1B.

EDYCJA 2: Wolałbym nie używać tabeli przestawnej. W moim bardzo szczególnym przypadku nie jest to odpowiednie.

Wypróbuj to krótkie makro:

Sub MAIN2()
    Dim r As Range, v, numb, letr
    Dim i As Long, j As Long

    Columns(1).SpecialCells(2).Copy Cells(2, 4)
    Columns(4).RemoveDuplicates Columns:=1, Header:=xlNo
    Columns(2).SpecialCells(2).Copy Cells(2, 5)
    Columns(5).RemoveDuplicates Columns:=1, Header:=xlNo

    Set r = Columns(5).SpecialCells(2)
    r.Copy
    Cells(1, 5).PasteSpecial Transpose:=True
    r.Clear

    For Each r In Columns(3).SpecialCells(2)
        v = r.Value
        numb = r.Offset(0, -2).Value
        lett = r.Offset(0, -1).Value

        For i = 2 To Rows.Count
            If Cells(i, 4) = numb Then Exit For
        Next i
        For j = 5 To Columns.Count
            If Cells(1, j) = lett Then Exit For
        Next j

        Cells(i, j) = v
    Next r

End Sub

Makra są bardzo łatwe w instalacji i obsłudze:

1. ALT-F11 wyświetla okno VBE
2. ALT-I ALT-M otwiera nowy moduł
3. wklej i zamknij okno VBE

Jeśli zapiszesz skoroszyt, makro zostanie z nim zapisane. Jeśli używasz wersji Excela późniejszej niż 2003, musisz zapisać plik jako .xlsm zamiast .xlsx

Aby usunąć makro:

1. wywołać okno VBE jak wyżej
2. wyczyść kod
3. zamknij okno VBE

Aby użyć makra z Excela:

1. ALT-F8
2. Wybierz makro
3. Dotknij URUCHOM

Aby dowiedzieć się więcej o makrach, zobacz:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

i

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

Makra muszą być włączone, aby to działało!

Możesz po prostu użyć tabeli przestawnej.

Edycja: oto sprawdzony przykład. Nie wiesz, dlaczego to nie spełnia Twoich wymagań? https://excel.solutions/wp-content/uploads/2017/11/Guillaume.xlsx

Możesz łatwo zmienić kolejność kolumn w tabelach przestawnych, ręcznie dostosowując lub używając niestandardowych list.