Как разбить длинный список на равные группы в Excel?
Если у вас есть длинный список данных, которые необходимо разделить на несколько равных групп, как показано на следующем снимке экрана, как вы могли бы быстро и легко справиться с этой задачей в 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 ключ для запуска этого кода, и во всплывающем окне выберите столбец, который вы хотите разделить на несколько групп, см. снимок экрана:
4, И нажмите OK кнопку, затем выберите ячейку, в которой вы хотите найти результат, в следующем окне подсказки, см. снимок экрана:
5. Нажмите OK, и введите количество ячеек, которые вы хотите разделить на столбец в поле подсказки, см. снимок экрана:
6, Наконец, нажмите OK чтобы завершить код, и выбранные данные списка были разделены на несколько равных групп, как вам нужно, см. снимок экрана:
Разделите длинный список на несколько равных групп с помощью Kutools for Excel
Если вы установили Kutools for Excel, С его Диапазон преобразования вы можете быстро разделить длинный список на несколько столбцов и строк, кроме того, вы также можете объединить несколько столбцов в один длинный список.
После установки Kutools for Excel, пожалуйста, сделайте следующее:
1. Выберите длинный список, который вы хотите разделить, и нажмите Кутулс > Диапазон > Диапазон преобразования, см. снимок экрана:
2. В Диапазон преобразования диалоговое окно, выберите Один столбец для диапазона под Тип трансформации раздел, а затем проверьте Фиксированная стоимость и укажите количество ячеек в строке в поле, см. снимок экрана:
3. Затем нажмите Ok, и выберите ячейку, в которой вы хотите найти результат в окне подсказки, см. снимок экрана:
4. И нажмите OK Кнопка, данные в списке были разделены на несколько равных групп по мере необходимости.
Загрузите бесплатную пробную версию Kutools for Excel прямо сейчас!
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!