Jak automatycznie sortować kolumnę według wartości w programie Excel?
Na przykład masz tabelę zakupów, jak pokazano na poniższym zrzucie ekranu. Teraz chcesz, aby kolumna Cena była sortowana automatycznie po wprowadzeniu nowych liczb/cen w tej kolumnie, jak możesz to rozwiązać? Tutaj przedstawiam makro VBA, które pomoże ci automatycznie posortować określoną kolumnę według wartości w Excelu.
Automatyczne sortowanie kolumny według wartości za pomocą VBA
Automatyczne sortowanie kolumny według wartości za pomocą VBA
To makro VBA sortuje wszystkie dane w określonej kolumnie automatycznie, gdy tylko wprowadzisz nowe dane lub zmienisz wartość w kolumnie w programie Excel.
1. Kliknij prawym przyciskiem myszy nazwę bieżącego arkusza w Pasek zakładek arkusza, a następnie kliknij przycisk Wyświetl kod z menu po kliknięciu prawym przyciskiem myszy.
2. W otwartym oknie dialogowym Microsoft Visual Basic for Application wklej następujący kod makra VBA do okna otwierającego.
VBA: kolumna automatycznego sortowania w programie Excel
Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Not Intersect(Target, Range("B:B")) Is Nothing Then
Range("B1").Sort Key1:=Range("B2"), _
Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, _
Orientation:=xlTopToBottom
End If
End Sub
Note:
1) W powyższym kodzie vba, NOCLEG ZE ŚNIADANIEM oznacza, że automatycznie posortuje kolumnę B, B1 to pierwsza komórka w kolumnie B, B2 to druga komórka w kolumnie B, którą można zmienić w zależności od potrzeb.
2) Fragment kodu Nagłówek:=xlTak w piątym wierszu informuje program Excel, że sortowany zakres ma nagłówek, dzięki czemu pierwszy wiersz zakresu nie zostanie uwzględniony podczas sortowania. Jeśli nie ma nagłówka, zmień go na Nagłówek:=xlNo; i zmień Klucz1:=Zakres("B2") w czwartym rzędzie do Klucz1:=Zakres("B1").
3. Następnie wróć do arkusza roboczego, po wprowadzeniu nowej liczby w kolumnie Cena lub zmodyfikowaniu istniejących cen kolumna Cena zostanie automatycznie posortowana w kolejności rosnącej.
Note: Kiedy wprowadzasz nowy numer w kolumnie Cena, musisz wpisać numer w pierwszej pustej komórce poniżej oryginalnych liczb. Jeśli między nowo wprowadzonym numerem a oryginalnymi numerami znajdują się puste komórki, a także puste komórki między oryginalnymi numerami, ta kolumna nie zostanie posortowana automatycznie.
Demo: Automatyczne sortowanie kolumny według wartości za pomocą VBA w programie Excel
Łatwo sortuj według częstotliwości występowania w programie Excel
Kutools dla Excela Zaawansowane sortowanie Narzędzie obsługuje szybkie sortowanie danych według długości tekstu, nazwiska, wartości bezwzględnej, częstotliwości itp. w programie Excel.
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Excel i doświadcz wydajności jak nigdy dotąd. Kutools dla programu Excel oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Karta Office wprowadza interfejs z zakładkami do pakietu Office i znacznie ułatwia pracę
- Włącz edycję i czytanie na kartach w programach Word, Excel, PowerPoint, Publisher, Access, Visio i Project.
- Otwieraj i twórz wiele dokumentów w nowych kartach tego samego okna, a nie w nowych oknach.
- Zwiększa produktywność o 50% i redukuje setki kliknięć myszką każdego dnia!