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:
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.
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.
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.
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.
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.
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.
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.
Makro mam wpisane, źe uruchamia się automatycznie po zmianie zawartości tabeli.
Jeszcze raz dzięki.
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")
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")
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
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
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.
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.
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:
Dzięki za zaiteresowanie :cry:
Najprostsze rozwiazania sa najlepsze.
Zaznacz kolumne przekopiuj. Zazancz tylko kolumne B i posortuj.
Zaznacz kolumne przekopiuj. Zazancz tylko kolumne B i posortuj.
Strona 1 / 1