Jak sortować arkusze według wartości komórki w programie Excel?
Kiedy używamy pliku Excel, zawsze sortujemy arkusze według alfabetu, liczb lub kolorów kart, ale czy kiedykolwiek próbowałeś sortować karty arkuszy według określonej wartości komórki?
Przypuśćmy, że masz skoroszyt z dziesiątkami arkuszy roboczych, w każdym arkuszu komórka A1 ma określoną wartość, a teraz musisz sortować wszystkie arkusze w tym skoroszycie na podstawie wartości komórki A1 w każdym arkuszu rosnąco. W tym artykule otrzymasz rozwiązanie.
Sortuj wszystkie arkusze na podstawie wartości komórki z kodem VBA
Sortuj wszystkie arkusze na podstawie wartości komórki z kodem VBA
Aby posortować wszystkie arkusze na podstawie wartości komórki w Excelu, nie ma dla nas bezpośredniego sposobu, ale poniższy kod VBA może wyświadczyć ci przysługę.
1. Przytrzymaj ALT + F11 klucze i otwiera plik Okno Microsoft Visual Basic for Applications.
2, Kliknij wstawka > Modułi wklej następujący kod w Okno modułu.
Kod VBA: sortuj wszystkie arkusze na podstawie wartości komórki
Sub SortWksByCell()
'Update 20141127
Dim WorkRng As Range
Dim WorkAddress As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range (Single)", xTitleId, WorkRng.Address, Type:=8)
WorkAddress = WorkRng.Address
Application.ScreenUpdating = False
For i = 1 To Application.Worksheets.Count
For j = i To Application.Worksheets.Count
If VBA.UCase(Application.Worksheets(j).Range(WorkAddress)) < VBA.UCase(Application.Worksheets(i).Range(WorkAddress)) Then
Application.Worksheets(j).Move Before:=Application.Worksheets(i)
End If
Next
Next
Application.ScreenUpdating = True
End Sub
3. Po wklejeniu kodu naciśnij F5 klucz do uruchomienia tego kodu, a pojawi się okno zachęty przypominające o wybraniu komórki, na podstawie której chcesz posortować arkusze, patrz zrzut ekranu:
4. Teraz możesz zobaczyć, że wszystkie arkusze zostały posortowane według wartości tekstowej komórki A1 w każdym arkuszu w kolejności rosnącej.
Uwagi:
1. Jeśli w wybranych komórkach znajdują się zarówno liczby, jak i ciągi tekstowe, arkusze zawierające liczby zostaną posortowane przed arkuszami ciągów tekstowych.
2. Jeśli w jednej z komórek A1 jest pusta, względny arkusz zostanie posortowany na początku wszystkich arkuszy.
Podobne artykuły:
Jak sortować arkusze w porządku alfabetycznym / alfanumerycznym w programie Excel?
Jak sortować karty arkusza według koloru w programie Excel?
Jak odwrócić kolejność zakładek arkusza?
Najlepsze narzędzia biurowe
Zwiększ swoje umiejętności Excela dzięki Kutools for Exceli doświadcz wydajności jak nigdy dotąd. Kutools for Excel Oferuje ponad 300 zaawansowanych funkcji zwiększających produktywność i oszczędzających czas. Kliknij tutaj, aby uzyskać funkcję, której najbardziej potrzebujesz...
Office Tab Wprowadza interfejs z kartami 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!
