Excel–sortowanie kolumny A a wynik w kolumnie B

Witam wszystkich.
Mam taki problem z sortowaniem kolumny przy pomocy formuły, moźe jakieś makro?
Chodzi mi o oto, aby posortować zawartość z kolumny A a wynik był w kolumnie B
.....A..................B
1..Jurek.........Andrzej
2...................Jurek
3..Andrzej.....Krzysiek
4..Krzysiek....Olek
5...................Paweł
6..Paweł
7..Olek

Ewentualną funkcję proszę wpisać w post, mam problem z ściąganiem załączników lub wysłać pocztą.

Proszę o pomoc w rozwiązaniu tego zadania, z góry dziękuję i pozdrawiam. :oops: :roll:

Odpowiedzi: 9

Dzięki za pomoc, przydała się bardzo.

Sortowanie jest OK. tylko, źe po uruchomieniu dość długo to trwa.
Moźe coś sknociłem?
Nagrałem Makro, które kopiuje wybrany zakres komórek (formuła w komórce np. dane w komórce f1 pochodzą z listy sprawdzenie poprawnościA1=jeźeli(f1<>0;f1;y) i wklejam tak jak mi poradziłeś, dodałem jeszcze formatowanie warunkowe w danym zakresie, które zmienia kolor literki y na biały, czyli nie widoczny.

Columns("A").Copy
Columns("B").PasteSpecial Paste:=xlValues
Columns("B").Sort Key1:=Range("B1")
Dim w%
w = 1 'jezeli nie ma naglowka, jezeli jest to zacznij od dwojki
Do Until Range("B" & w).Value > 0
Range("B" & w).Delete Shift:=xlUp
Loop

End Sub

Wielkie Wam dzięki, teraz juź mogę dalej pracować nad tym arkuszem, chyba, źe będzie jakieś lepsze rozwiązanie.
Pozdrowienia dla wszystkich i wesołych nadchodzących Świąt.
Jurko
Dodano
09.12.2005 08:46:28
Dim w%
w = 1 'jezeli nie ma naglowka, jezeli jest to zacznij od dwojki
Do Until Range("B" & w).Value > 0
Range("B" & w).Delete Shift:=xlUp
Loop

to powinno pomoc na zera, jezeli dobrze zrozumialam i masz same dodatanie wyniki.
anulek.r
Dodano
08.12.2005 15:24:37
Dim w%
w = 1 'jezeli nie ma naglowka, jezeli jest to zacznij od dwojki
Do Until Range("B" & w).Value > 0
Range("B" & w).Delete Shift:=xlUp
Loop

to powinno pomoc na zera, jezeli dobrze zrozumialam i masz same dodatanie wyniki.
anulek.r
Dodano
08.12.2005 15:24:37
Wielkie dzięki za pomoc, tylko jeszcze jak mam się pozbyć tych zer (nie wszystkie komórki w kolumnie A są zajęte i formuła wyświetla 0) po sortowaniu są na początku listy.

Makro mam wpisane, źe uruchamia się automatycznie po zmianie zawartości tabeli.

Jeszcze raz dzięki.
Jurko
Dodano
08.12.2005 10:27:29
Wiec skopiuj same watrosci.

Jest w edycji funkcja wklej specjalne i tam mozesz wybrac, wartosci.

Lub jak wolisz koniecznie makro, co uwazam za niepotrzebne... to wpisz
Columns("A").Copy
Columns("B").PasteSpecial Paste:=xlValues
Columns("B").Sort Key1:=Range("B1")
anulek.r
Dodano
08.12.2005 09:41:16
Witam
Tak jak juź wcześniej nadmieniłem są to wyniki formuły i przy kopiowaniu przenoszą się formuły i po sortowaniu nic się nie zmienia, no i chciałbym zlikwidować, 0–ra które powstają w pustych komórkach w kolumnie A

Dzięki za zaiteresowanie
Jurko
Dodano
08.12.2005 00:39:25
1. Otwierasz całkiem pusty dokument.
2. Narzędzia – makro – zarejestruj nowe makro, klawisz skrótu powiedzmy Ctrl + G.
3. Zaznaczasz kolumne A
4. Ctrl + C
5. Przechodzisz do kolumny B z tym zaznaczeniem
6. Ctrl + V
7. Dane – Sortuj, kolumna B, rosnąco.
8. Narzędzia – Makro – Zatrzymaj rejestowanie
Teraz w kaźdej chwili pod Ctrl + G masz moźliwość wywołania.
Bobi
Dodano
08.12.2005 00:12:31
Chodzi o to, nie napisałem, źe w kolumnie A są wyniki innej formuły, które się zmieniają, a ja chcę, aby były one juź posortowane w kolumnie B bez mojego udziału.

Dzięki za zaiteresowanie :cry:
Jurko
Dodano
07.12.2005 23:14:08
Najprostsze rozwiazania sa najlepsze.

Zaznacz kolumne przekopiuj. Zazancz tylko kolumne B i posortuj.
anulek.r
Dodano
07.12.2005 22:46:15
Jurko
Dodano:
07.12.2005 21:41:18
Komentarzy:
9
Strona 1 / 1