Как отсортировать данные на нескольких листах одновременно?

В Excel мы можем быстро и легко сортировать данные на листе на основе определенного столбца, но пробовали ли вы когда-нибудь сортировать данные сразу на нескольких листах? Сортировка каждого из них по очереди может занять много времени. В этой статье я представлю простой способ решения этой задачи.

Сортировка данных на нескольких листах одновременно с помощью кода VBA

Сортировка данных на нескольких листах одновременно с помощью кода VBA

Чтобы отсортировать данные на основе одного столбца во всех листах вашей книги, следующий код VBA может вам помочь.

1. Нажмите и удерживайте клавиши ALT + F11, чтобы открыть окно Microsoft Visual Basic for Applications.

2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

Код VBA: Сортировка данных на нескольких листах одновременно:

Sub SortAllSheets()
   'Updateby Extendoffice
   Dim WS      As Worksheet
   ActiveSheet.Range("a1:f1").Select
   Selection.Copy
   On Error Resume Next
   Application.ScreenUpdating = False
   For Each WS In Worksheets
      WS.Columns("A:F").Sort Key1:=WS.Columns("E"), Order1:=xlDescending
   Next WS
   ActiveSheet.Range("A1").PasteSpecial Paste:=xlPasteAll
   Application.ScreenUpdating = True
End Sub

3. Затем нажмите клавишу F5 для запуска этого кода, все листы с одинаковым форматированием будут отсортированы на основе столбца E каждого листа в порядке убывания.

Примечание: В приведенном выше коде A:F — это диапазон данных, который вы хотите отсортировать, а E — буква столбца, по которому вы хотите выполнить сортировку.

Раскройте магию Excel с Kutools AI

• Умное выполнение: Выполняйте операции с ячейками, анализируйте данные и создавайте диаграммы — всё это посредством простых команд.
• Пользовательские формулы: Создавайте индивидуальные формулы для оптимизации ваших рабочих процессов.
• Кодирование VBA: Пишите и внедряйте код VBA без особых усилий.
• Интерпретация формул: Легко разбирайтесь в сложных формулах.
• Перевод текста: Преодолейте языковые барьеры в ваших таблицах.

Улучшите возможности Excel с помощью инструментов на базе ИИ. Скачать сейчас и испытайте беспрецедентную эффективность!