Witam! http://forum.idg.pl/index.php?showtopic=74984&hl= Z powyższej strony, "przywłaszczyłem" sobie taki oto kod: Sub Posegreguj_nieco_lepiej() 'by Artik With ActiveSheet JakiLotek = .Range("A1").CurrentRegion.Rows.Count lWierszy = .Range("A1").CurrentRegion.Columns.Count ReDim myArr(1 To lWierszy, 1 To JakiLotek) 'tablica wszystkich losowań myArr = .Range("A1").CurrentRegion.Value Select Case JakiLotek 'poszukiwanie jaki to lotek Case 2 k = 42 Case 6 k = 49 End Select ReDim bigArr(1 To JakiLotek, 1 To k) For i = 1 To JakiLotek 'tablica wypełniana według twojej potrzeby For j = 1 To lWierszy bigArr(i, myArr(i, j)) = myArr(i, j) Next j Next i .Range(.Cells(1, 1), .Cells(k, lWierszy)) = bigArr End With End Sub Skróciłem go maksymalnie, ile się tylko dało, aby kod wyglądał dla Was czytelnie, i jak najprościej wyjaśnić Wam o co mi się rozchodzi. Otóż: makro to rozkłada liczby, wg indeksów kolumn, np. --A-B- 1-2-4 2-3-5 3---- Po wykonanej operacji powyższe dane wyjściowe wyglądają tak: --A-B-C-D-E 1---2---4-- 2-----3---5 3---------- Ja chciałbym jednak nieco inaczej, mianowicie: --A-B- 1-2-3 2-4-5 3---- Po operacji, wygląda to, tak: --A-B 1---- 2-2-- 3---3 4-4-- 5---5 (oczywiście dane mogą wyglądać zupełnie inaczej, to powyżej, to tylko przykład) Liczba 2 została przypożądkowana do odpowiadającego jej wiersza "2", podobnie na tej samej zasadzie pozostałe. (powyżej odwrotnie: liczba "2", przypięta do drugiej w kolejności kolumny "B", itd, a więc w pierwszym przykładzie, dane rozmieszczane horyzontalnie (poziomo), w drugim vertykalnie (pionowo). I teraz najważniejsze: czy struktura tego makra pozwala na jego modyfikację, aby to osiągnąć? Próbowałem to zrobić, ale nie wychodzi. Podobny wątek na ten temat znajduje się poniżej, ale nikt nie potrafi pomóc: http://www.vbamania.estrefa.pl/?go=forum&go2=zobacz&id_watek=1806 Z pozdrowieniami