Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

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

Список разделов doc для групп 4

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

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

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


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

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

Список разделов doc для групп 9

Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!



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

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

2. Щелчок Вставить > модуль, и вставьте следующий код в модуль Окно.

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

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

Список разделов doc для групп 1

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

Список разделов doc для групп 2

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

Список разделов doc для групп 3

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

Список разделов doc для групп 4


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

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

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

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

Список разделов doc для групп 6

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

Список разделов doc для групп 7

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

Список разделов doc для групп 8

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

Скачать и бесплатно пробную версию Kutools для Excel сейчас!


Kutools for Excel: с более чем 200 удобными надстройками Excel, бесплатно попробовать без ограничений в 60-дни. Скачать и бесплатно пробную версию!


Kutools для Excel - лучший инструмент для повышения производительности в офисе Повысьте производительность на 80%

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

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

  • Включить редактирование и чтение с вкладками в Word, Excel, PowerPoint, Издатель, Доступ, Visio и Проект.
  • Открывайте и создавайте несколько документов в новых вкладках одного и того же окна, а не в новых окнах.
  • Увеличивает вашу производительность на 50% и уменьшает сотни щелчков мышью для вас каждый день!
нижняя часть офиса
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    attom93 · 4 months ago
    I copied the code and Excel 365 says syntax error.
  • To post as a guest, your comment is unpublished.
    LM · 1 years ago
    This comes in very handy! One question: In the VBA code how can I transpose the output? So instead of xRg.Rows.Count / I = number of colums output, the output is generated as xRg.Rows.Count / I = number of rows output with I being the number of columns per row.