Mam pewien spory dokument w układzie powiedzmy:

a1 a2 a3 a4
b1 b2 b3 b4
c1 c2 c3 c4
...

a1
a2
a3
a4
b1
b2
b3
b4
c1
...

Hmm na ile się orientuję to prostego sposobu nie ma - makro vba się kłania. Z samym nagrywaniem to też pewnie nie do końca, bo będziesz musiał wszystko przeklikać:) Jeśli jesteś w stnie sobie dopasowac makro to daj znać to Ci testowego excelka podeśle

Próbowałeś scenariuszy w Excel?

Dla excel 2010:
Mając Twój pierwszy układ zaznaczamy cały interesujący Cię obszar.
Następnie Dane->Analiza Warunkowa->Menadżer scenariuszy->Dodaj->wpisujemy nazwę scenariusza->OK->OK->Podsumowanie->Zaznaczamy komóki wynikowe (w tym przypadku 12 komórek w jednej kolumnie)np.od A5 do A17->OK
Wyświetlony zostaje scenariusz.
Zaznaczamy wszystkie komórki, które nas interesują i kopiujemy do nowego arkusza w miejsce, które nas interesuje.

Tzn generalnie to ja mam LibreOffice, nazw własnych MS użyłem dla uproszczenia.

@djlukeNiestety ja używam tylko Excel MS. Na Libre nie pomogę. Chyba, że prześlesz plik i pomogę w przerobieniu

Ok jeśli libre obsługuje vba tak jak "Normalny" Excel, to

Sub kopiowanie_transpozycja()
'
' kopiowanie_transpozycja Makro
'
Dim count_rows As Integer
Dim rownumber As Integer
Range("A1").Select
Sheets("Arkusz1").Select
count_rows = Range(Selection, Selection.End(xlDown)).Rows.Count


Sheets("Arkusz1").Select
Range("A1").Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Arkusz2").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

rownumber = 1
Do
Sheets("Arkusz1").Select
Range("A1").Offset(rownumber, 0).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Sheets("Arkusz2").Select
Range("A1").Select
Selection.End(xlDown).Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True

rownumber = rownumber + 1
Loop Until rownumber = count_rows
End Sub

Temat już zapewne nieaktualny, ale może ktoś będzie miał podobny problem :)
Brak "prawdziwego" Excela ogranicza możliwości, ale i wymusza proste rozwiązania:
W drugim arkuszu tworzymy kolumny: W (wiersz) i K (kolumna)
wypełniamy je wartościami:
W K
1 1
1 2
1 3
1 4
2 1
2 2
2 3
2 4
itd...
W kolejnej kolumnie odczytujemy dane z Wiersza W i kolumny K. Np. formułą:
=ADR.POŚR("Arkusz1!W"&A2&"K"&B2;FAŁSZ)
i gotowe.
Do wygenerowania Kolumn W i K można wykorzystać funkcję jeżeli().

Rozwiązanie nie jest może eleganckie, ale nie wymaga makr i powinno działać w każdym Excelu w Calcu OO też.

To ja się podepnę z prośbą.
Może ktoś mi podpowie/podzieli się kawałkiem kodu jak osiągnąć efekt jak na załączonym obrazku


Przeszukuje kolumnę V (wartości 1 nie ma w kolumnie X. Next, biorę z kol V wartość 2, przeszukuję kol. X. Znajduję wartość 2 w kol X i wtedy kopiuję dane zaznaczone na żółto (dla łatwiejszego zrozumienia o co mi chodzi) tak żeby znalazły się w jednym wierszu z wartością w kol V ( w tym wypadku wartość 2) i analogicznie dalej z 3, wartość 4 już nie występuje w kol X więc nie da się znaleźć.
Please help... [mina kota ze Shreka]

@thor2k

dla x1:
jeżeli(v=x,v)

dla x2:
jeżeli(v=x,y)

Funkcja Excela to WYSZUKAJ.PIONOWO(V1;obszar;1;0)
Gdzie: V1 - komórka z kolumny V
obszar - nazwany obszar z danymi x,y - nazwanie tego obszaru jest istotnym ułatwieniem.
1 - numer koluny z obszaru 1 to kolumna X ( z niej pojawi się dana w wyniku)
0 - Bardzo ważne! funkcja ma znaleźć konkretne wartości.
jeśli wartości nie ma na liście będzie błąd.

@Gakudini
I odpowiedzią na funkcję jest tylko pierwsza watrość z listy co jest sporym minusem jesli ktoś chce "wyszukać wiele".

@mysiauek
Ale w pytaniu nie ma nic o kilku wystąpieniach :)