Note: The other languages of the website are Google-translated. Back to English

Як сортувати дані на декількох робочих аркушах одночасно?

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

Сортуйте дані одночасно на кількох робочих аркушах за допомогою коду VBA


стрілка синя права міхур Сортуйте дані одночасно на кількох робочих аркушах за допомогою коду VBA

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

1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.

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

Код 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 - це буква стовпця, за якою ви хочете сортувати.


Найкращі інструменти для підвищення продуктивності офісу

Kutools для Excel вирішує більшість ваших проблем і збільшує продуктивність на 80%

  • Повторне використання: Швидко вставте складні формули, діаграми і все, що ви використовували раніше; Шифрувати комірки з паролем; Створити список розсилки та надсилати електронні листи ...
  • Супер формула бар (легко редагувати кілька рядків тексту та формули); Макет читання (легко читати та редагувати велику кількість комірок); Вставте у відфільтрований діапазон...
  • Об’єднати клітинки / рядки / стовпці без втрати даних; Вміст розділених комірок; Об'єднати повторювані рядки / стовпці... Запобігання дублюючим клітинам; Порівняйте діапазони...
  • Виберіть Повторюваний або Унікальний Рядки; Виберіть Пусті рядки (усі клітинки порожні); Супер знахідка та нечітка знахідка у багатьох робочих зошитах; Випадковий вибір ...
  • Точна копія Кілька клітинок без зміни посилання на формулу; Автоматичне створення посилань на кілька аркушів; Вставте кулі, Прапорці та інше ...
  • Витяг тексту, Додати текст, Видалити за позицією, Видаліть пробіл; Створення та друк проміжних підсумків підкачки; Перетворення вмісту комірок та коментарів...
  • Супер фільтр (зберегти та застосувати схеми фільтрів до інших аркушів); Розширене сортування за місяцем / тижнем / днем, частотою та іншим; Спеціальний фільтр жирним, курсивом ...
  • Поєднайте робочі зошити та робочі аркуші; Об’єднати таблиці на основі ключових стовпців; Розділіть дані на кілька аркушів; Пакетне перетворення xls, xlsx та PDF...
  • Понад 300 потужних функцій. Підтримує Office / Excel 2007-2021 і 365. Підтримує всі мови. Легке розгортання на вашому підприємстві чи в організації. 30-денна безкоштовна пробна версія повних функцій. 60-денна гарантія повернення грошей.
вкладка kte 201905

Вкладка Office забезпечує інтерфейс з вкладками для Office і значно спрощує вашу роботу

  • Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
  • Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
  • Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!
дно офісної таблиці
Коментарі (11)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Не працює...
Цей коментар був мінімізований модератором на сайті
Як я можу змусити це працювати для кількох стовпців. Я намагаюся відсортувати деякі за стовпцем K, а деякі за стовпцем M, і я знаю точні номери аркушів. Мій стовпець M (коли я використовую наведений вище код) сортується лише за K, а не за M, тому він не працює. 
Цей коментар був мінімізований модератором на сайті
спрацював для мене як шарм... дякую!
Цей коментар був мінімізований модератором на сайті
працює добре, але як я можу уникнути включення заголовків (тобто рядка 1?)
Цей коментар був мінімізований модератором на сайті
Привіт, Люсі,
Щоб відсортувати всі аркуші, виключивши рядок заголовка, застосуйте наведений нижче код vba: (Примітка: будь ласка, змініть посилання на клітинки відповідно до ваших потреб)

Підсортувати всі аркуші()
'Оновлення Extendoffice
Dim WS як робочий лист
Dim xIntR як ціле число
ActiveSheet.Range("A1:F1").Вибрати
On Error Resume Next
Application.ScreenUpdating = Невірний
Для кожного WS в робочих аркушах
xIntR = Intersect(WS.UsedRange, WS.Range("A:F")).Rows.Count
WS.Range("A2:F" & xIntR).Sort Key1:=WS.Range("A2:A" & xIntR), Order1:=xlDescending
Далі зн
Application.ScreenUpdating = True
End Sub

Будь ласка, спробуйте, сподіваюся, це допоможе вам!
Цей коментар був мінімізований модератором на сайті
В надії, що ви побачите це...! Це чудово працює, але включає клітинки з формулою, але без даних, створює прогалини на вкладках і спотворює дані в рядках. Мені потрібно зберегти ці клітинки у моїх вкладках, оскільки вони шукають імена, додані до «головної вкладки». Я хочу, щоб клітинки сортувалися лише з фактичною назвою - швидке виправлення???
Цей коментар був мінімізований модератором на сайті
Дуже корисний код Дякую
Цей коментар був мінімізований модератором на сайті
Гей, це чудово, велике спасибі за це! Моя єдина проблема з цим кодом полягає в тому, що він не виконується на першому аркуші. Він виконується на моїх аркушах, що залишилися. Як я можу змусити це виконати на всіх аркушах? Код ніби пропускає перший аркуш. Будь-яка допомога буде дуже вдячна :)
Цей коментар був мінімізований модератором на сайті
Я хочу розділити дані на кілька робочих книг, а потім додати значення в один із стовпців.

я підготував код для розділення даних у робочих книгах.. але потрібна допомога щодо додавання загальної суми в один із стовпців
Цей коментар був мінімізований модератором на сайті
Чи можете ви запустити це, не включаючи всі аркуші? Тобто залишити деякі аркуші поза макросом?
Цей коментар був мінімізований модератором на сайті
Це, здається, не спрацювало для мене. У мене є робоча книга з 12 аркушами, упорядкованими за місяцями року, кожен аркуш містить відповідні дані про продукти компанії тощо. Моя мета — відсортувати та відфільтрувати всі аркуші в книзі. Я хотів би мати один аркуш, який діяв би як батьківський аркуш (наприклад, перший місяць року), на якому я виконував би функцію фільтра або сортування (наприклад, A -> Z сортування), а інші аркуші автоматично слідували б так само сортувати або фільтрувати. Наприклад, під час використання аркуша з позначкою «Січень», якщо я, наприклад, вибираю стовпець «D», який включає дні місяця, які я хочу, у порядку «зростання» - під час актуалізації сортування A -> Z на аркуші «Січень» , я хочу, щоб це вплинуло на решту всіх аркушів у послідовності (лютий-грудень) з усіма днями місяця, відсортованими A -> Z. Будь-які зміни, внесені на аркуші "Січень", що стосуються сортування та фільтрації, повинні впливати на баланс аркушів у трудовій книжці.
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

Слідуй за нами

Copyright © 2009 - WWW.extendoffice.com. | Всі права захищені. На основі ExtendOffice. | Карта сайту
Microsoft та логотип Office є товарними знаками або зареєстрованими товарними знаками Microsoft Corporation у США та / або інших країнах.
Захищений Sectigo SSL