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

Як сортувати декілька рядків або стовпців самостійно одночасно в Excel?

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

doc сортувати кілька стовпців 1

Сортуйте кілька стовпців одночасно незалежно за допомогою коду VBA

Відсортуйте кілька рядків незалежно відразу за допомогою коду VBA


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

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

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

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

Код VBA: Сортувати кілька стовпців незалежно одночасно:

Sub SortIndividualJR()
'Updateby Extendoffice
    Dim xRg As Range
    Dim yRg As Range
    Dim ws As Worksheet
    Set ws = ActiveSheet
    On Error Resume Next
    Set xRg = Application.InputBox(Prompt:="Range Selection:", _
                                    Title:="Kutools for excel", Type:=8)
    Application.ScreenUpdating = False
    For Each yRg In xRg
        With ws.Sort
            .SortFields.Clear
            .SortFields.Add Key:=yRg, Order:=xlAscending
            .SetRange ws.Range(yRg, yRg.End(xlDown))
            .Header = xlNo
            .MatchCase = False
            .Apply
        End With
    Next yRg
    Application.ScreenUpdating = True
End Sub

3. Потім натисніть F5 клавішу для запуску цього коду, і з'явиться підказка, щоб нагадати вам про вибір діапазону даних, який потрібно відсортувати на основі кожного стовпця, див. знімок екрана:

doc сортувати кілька стовпців 2

4. А потім клацніть OK, кожен стовпець відсортовано відразу залежно, див. скріншот:

doc сортувати кілька стовпців 1


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

Якщо ви хочете сортувати кілька рядків самостійно, тут також є код VBA для вас.

1. Виберіть дані, які потрібно сортувати, виходячи з кожного рядка.

doc сортувати кілька стовпців 3

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

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

Код VBA: Сортувати кілька рядків незалежно одночасно:

Sub SortIndividualR()
'Updateby Extendoffice
    Dim xRg As Range, yRg As Range
    If TypeName(Selection) <> "Range" Then Exit Sub
    Set xRg = Selection
    If xRg.Count = 1 Then
        MsgBox "Select multiple cells!", vbExclamation, "Kutools for Excel"
        Exit Sub
    End If
    With Application
        .ScreenUpdating = False
        .EnableEvents = False
        .Calculation = xlCalculationManual
    End With
    Application.ScreenUpdating = False
    For Each yRg In xRg.Rows
        yRg.Sort Key1:=yRg.Cells(1, 1), _
        Order1:=xlAscending, _
        Header:=xlNo, _
        Orientation:=xlSortRows
    Next yRg
    With Application
        .ScreenUpdating = True
        .EnableEvents = True
        .Calculation = xlCalculationAutomatic
    End With
    Application.ScreenUpdating = True
End Sub

4. Потім натисніть F5 для запуску цього коду, дані в кожному рядку відсортовані відразу, див. знімок екрана:

doc сортувати кілька стовпців 4


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

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)
Поки немає оцінок. Оцініть першим!
Цей коментар був мінімізований модератором на сайті
Коли я намагаюся відсортувати стовпці, дані сортуються за межами розділеного діапазону! Чому це?
Цей коментар був мінімізований модератором на сайті
Це чудово працює! Дякую !
Цей коментар був мінімізований модератором на сайті
¿Cómo puedo ordenar por color multiples filas de forma independiente y que las celdas que no tengan color estén a la derecha?
Цей коментар був мінімізований модератором на сайті
Мені це подобається, мене цікавить функціональність сортування за кольором для кожного стовпця окремо. Я спробував це, але це не спрацювало:


Dim xRg As Range
Dim yRg As Range
Dim ws As Worksheet
Встановіть ws = ActiveSheet
On Error Resume Next
Встановіть xRg = Application.InputBox(Prompt:="Вибір діапазону:", _
Title:="Kutools для excel", Type:=8)
Application.ScreenUpdating = Невірний
Для кожного yRg в xRg
За допомогою ws.Sort
.SortFields.Clear
.SortFields.Add Key:=yRg, _
SortOn:=xlSortOnCellColor, Order:=xlDescending, DataOption:=xlSortNormal
.SetRange ws.Range(yRg, yRg.End(xlDown))
.Заголовок = xlNo
.MatchCase = помилково
.Застосувати
Кінець з
Наступний рг
Application.ScreenUpdating = True
End Sub
Цей коментар був мінімізований модератором на сайті
Щиро дякую за це. Це дійсно допомогло. Я також хотів би знати, як сортувати за кольором. У мене є 26 стовпців, у кожному з яких є різні типи елементів, визначених кольором шрифту. Я хотів би розмістити всі стовпці в алфавіті окремо, але в певному порядку кольорів. Як мені це зробити?
Цей коментар був мінімізований модератором на сайті
Ви щойно позбавили мене кількох головних болів за допомогою цього рішення! Дуже дякую!
Цей коментар був мінімізований модератором на сайті
чудовий пост, дуже дякую!
Цей коментар був мінімізований модератором на сайті
Спасибо тебе человек!!
Цей коментар був мінімізований модератором на сайті
Мої дані коливаються від 0 до 100; Коли я намагаюся відсортувати кілька рядків одночасно, дані починаються зі 100, а потім сортуються решту чисельно від найменшого до найбільшого, розміщуючи 100 у найменшій частині діапазону. Як я можу це виправити?
Цей коментар був мінімізований модератором на сайті
оновлення; Я зрозумів, що він сортує лише за першою цифрою числа. Як змусити його сортувати за цілим числом?
Цей коментар був мінімізований модератором на сайті
Привіт, Девін,
Код добре працює на моєму аркуші. Чи можете ви завантажити сюди свій файл Excel або скріншот даних? Отже, ми можемо допомогти перевірити, де проблема?
Дякую!
There are no comments posted here yet
Залишайте свої коментарі
Публікація як гість
×
Оцініть цю публікацію:
0   Персонажі
Рекомендовані місця

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

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