Як сортувати аркуші за значенням комірки в Excel?

Коли ми використовуємо файл Excel, ми завжди сортуємо аркуші за алфавітом, цифрами або кольорами вкладок, але чи доводилося вам коли-небудь пробувати сортувати вкладки аркушів за певним значенням комірки?

Припустимо, у вас є книга з десятками аркушів, на кожному аркуші комірка А1 має певне значення, і тепер вам потрібно відсортувати всі аркуші в цій книзі на основі значення комірки А1 на кожному аркуші за зростанням. За допомогою цієї статті ви отримаєте рішення.

Сортувати всі аркуші на основі значення комірки за кодом VBA

---

Сортувати всі аркуші на основі значення комірки за кодом VBA

Щоб відсортувати всі аркуші на основі значення комірки в Excel, для нас немає прямого шляху, але наступний код VBA може зробити вам послугу.

1. Утримуйте клавішу ALT + F11 і відкриває Вікно Microsoft Visual Basic для програм.

2. Клацання Insert > Модуліта вставте наступний код у Вікно модуля.

Код VBA: сортування всіх аркушів на основі значення комірки

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. Після вставки коду натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам вибрати комірку, за якою ви хочете сортувати аркуші, див. знімок екрана:

4. І тепер ви можете бачити, що всі аркуші відсортовані відповідно до текстового значення комірки А1 на кожному аркуші за зростанням.

Примітки:

1. Якщо у вибраних комірках є як числа, так і текстові рядки, аркуші містять номери, які будуть відсортовані перед аркушами текстових рядків.

2. Якщо в одній з комірок А1 немає порожнього місця, відповідний робочий аркуш буде відсортовано на передній частині всіх аркушів.

---

Статті по темі:

Як сортувати аркуші в алфавітному / буквено-цифровому порядку в Excel?

Як сортувати вкладки робочих аркушів за кольором у програмі Excel?

Як змінити порядок вкладок на робочому аркуші?