Перейти к основному содержанию
 

Как разбить длинный список на равные группы в Excel?

Автор: Сяоян Последнее изменение: 2024 июля 09 г.
разделить длинный список на равные группы

Если у вас есть длинный список данных, которые необходимо разделить на несколько равных групп, как показано на следующем снимке экрана, как вы могли бы быстро и легко справиться с этой задачей в Excel?

Разделите длинный список на несколько равных групп с помощью кода VBA

Разделите длинный список на несколько равных групп с помощью Kutools for Excel


Разделите длинный список на несколько равных групп с помощью кода VBA

За исключением копирования и вставки данных по одному, следующий код VBA также может оказать вам услугу, выполните следующие действия:

1. Удерживайте ALT + F11 , чтобы открыть Microsoft Visual Basic для приложений окно.

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

Код VBA: разделить длинный список на несколько равных групп

Sub SplitIntoCellsPerColumn()
'updateby Extendoffice
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xCell As Range
    Dim xTxt As String
    Dim xOutArr As Variant
    Dim I As Long, K As Long
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
Sel:
    Set xRg = Nothing
    Set xRg = Application.InputBox("please select data range:", "Kutools for Excel", xTxt, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    If xRg.Areas.Count > 1 Then
        MsgBox "does not support multiple selections, please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    If xRg.Columns.Count > 1 Then
        MsgBox "does not support multiple columns,please select again", vbInformation, "Kutools for Excel"
        GoTo Sel
    End If
    Set xOutRg = Application.InputBox("please select a cell to put the result:", "Kutools for Excel", , , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    I = Application.InputBox("the number of cell per column:", "Kutools for Excel", , , , , , 1)
    If I < 1 Then
        MsgBox "incorrect enter", vbInformation, "Kutools for Excel"
        Exit Sub
    End If
    ReDim xOutArr(1 To I, 1 To Int(xRg.Rows.Count / I) + 1)
    For K = 0 To xRg.Rows.Count - 1
      xOutArr(1 + (K Mod I), 1 + Int(K / I)) = xRg.Cells(K + 1)
    Next
    xOutRg.Range("A1").Resize(I, UBound(xOutArr, 2)) = xOutArr
End Sub

3. Затем нажмите F5 ключ для запуска этого кода, и во всплывающем окне выберите столбец, который вы хотите разделить на несколько групп, см. снимок экрана:

код vba для выбора диапазона данных

4, И нажмите OK кнопку, затем выберите ячейку, в которой вы хотите найти результат, в следующем окне подсказки, см. снимок экрана:

Код VBA для выбора ячейки для ввода результата

5. Нажмите OK, и введите количество ячеек, которые вы хотите разделить на столбец в поле подсказки, см. снимок экрана:

Код VBA для ввода количества ячеек, которые вы хотите разделить на столбец

6, Наконец, нажмите OK чтобы завершить код, и выбранные данные списка были разделены на несколько равных групп, как вам нужно, см. снимок экрана:

выбранные данные списка были разделены на несколько равных групп


Разделите длинный список на несколько равных групп с помощью Kutools for Excel

Если вы установили Kutools for Excel, С его Диапазон преобразования вы можете быстро разделить длинный список на несколько столбцов и строк, кроме того, вы также можете объединить несколько столбцов в один длинный список.

Kutools for Excel предлагает более 300 расширенных функций для оптимизации сложных задач, повышения креативности и эффективности. Улучшено возможностями искусственного интеллектаKutools точно автоматизирует задачи, упрощая управление данными. Подробная информация о Kutools для Excel...         Бесплатная пробная версия...

После установки Kutools for Excel, пожалуйста, сделайте следующее:

1. Выберите длинный список, который вы хотите разделить, и нажмите Кутулс > Диапазон > Диапазон преобразования, см. снимок экрана:

нажмите «Преобразовать диапазон» в kutools

2. В Диапазон преобразования диалоговое окно, выберите Один столбец для диапазона под Тип трансформации раздел, а затем проверьте Фиксированная стоимость и укажите количество ячеек в строке в поле, см. снимок экрана:

укажите параметры в диалоговом окне

3. Затем нажмите Ok, и выберите ячейку, в которой вы хотите найти результат в окне подсказки, см. снимок экрана:

выберите ячейку, в которой вы хотите разместить результат

4. И нажмите OK Кнопка, данные в списке были разделены на несколько равных групп по мере необходимости.

Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!

Лучшие инструменты для офисной работы

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...


Вкладка Office: интерфейс с вкладками в Office и упрощение работы

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!