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

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

список разделить документ на группы 4

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

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

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


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

список разделить документ на группы 1

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

список разделить документ на группы 2

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

список разделить документ на группы 3

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

список разделить документ на группы 4


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

Kutools for Excel : с более чем 300 удобными надстройками Excel, бесплатно и без ограничений в течение 30 дней. 

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

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

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

список разделить документ на группы 7

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

список разделить документ на группы 8

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

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


Kutools for Excel: с более чем 300 удобными надстройками Excel, которые можно попробовать бесплатно без ограничений в течение 30 дней. Загрузите и бесплатную пробную версию прямо сейчас!

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

Kutools for Excel решает большинство ваших проблем и увеличивает вашу производительность на 80%

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

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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
офисный дно
Сортировать комментарии по
Комментарии (8)
Оценок пока нет. Оцените первым!
Этот комментарий был сведен к минимуму модератором на сайте
Это очень кстати! Один вопрос: как в коде VBA транспонировать вывод? Таким образом, вместо xRg.Rows.Count / I = количество выходных столбцов, выходные данные формируются как xRg.Rows.Count / I = количество выходных строк, где I — количество столбцов в строке.
Этот комментарий был сведен к минимуму модератором на сайте
Я скопировал код, и Excel 365 говорит о синтаксической ошибке.
Этот комментарий был сведен к минимуму модератором на сайте
как я могу изменить его с количества ячеек на столбец на количество необходимых столбцов. чтобы данные распределялись равномерно по нескольким столбцам вместо того, чтобы выбирать, сколько их должно быть в каждом столбце?
Этот комментарий был сведен к минимуму модератором на сайте
код отлично работает для меня. Как мне изменить его с вопроса о том, сколько в каждом столбце, на сколько столбцов нужно? так что он поровну делит информацию на заданное количество столбцов.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Тринетта,
Может быть, следующая статья может помочь вам, в этой статье есть некоторые формулы, которые могут удовлетворить ваши потребности. Пожалуйста, проверь это:
https://www.extendoffice.com/documents/excel/681-excel-change-columns-to-rows.html
Этот комментарий был сведен к минимуму модератором на сайте
Ссылка только говорит мне, как сделать то же самое. Он не говорит мне, как сообщить коду или формуле, сколько столбцов мне нужно... сколько в каждом столбце.
Этот комментарий был сведен к минимуму модератором на сайте
Привет, Тпдиксон,
В этой статье формула: =СМЕЩ($A$1,СТОЛБЦЫ($A1:A1)-1+(СТРОКИ($1:1)-1)*5 может помочь вам разделить список на несколько столбцов, вам просто нужно чтобы изменить номер 5 на другой номер, который вам нужен, он представляет номер столбца.
После ввода этой формулы вы должны перетащить маркер заполнения вправо на 5 ячеек.
Пожалуйста, попробуйте, спасибо!
Этот комментарий был сведен к минимуму модератором на сайте
спасибо за сотрудничество
Здесь еще нет комментариев
Оставляйте свои комментарии
Публикация как гость
×
Оценить этот пост:
0   Характеристики
Предлагаемые места

Подписывайтесь на Нас

Copyright © 2009 - www.extendoffice.ком. | Все права защищены. Питаться от ExtendOffice, | Карта сайта
Microsoft и логотип Office являются товарными знаками или зарегистрированными товарными знаками Microsoft Corporation в США и / или других странах.
Защищено Sectigo SSL