Як розділити довгий список на рівні групи в Excel?
Якщо у вас є довгий список даних, який потрібно розділити на кілька рівних груп, як показано на наступному знімку екрана, як би ви могли швидко та легко впоратися з цим завданням в Excel?
Розділіть довгий список на кілька рівних груп за допомогою коду VBA
Розділіть довгий список на кілька рівних груп за допомогою Kutools для Excel
Розділіть довгий список на кілька рівних груп за допомогою коду VBA
За винятком копіювання та вставки даних по черзі, наступний код VBA також може зробити вам послугу, будь ласка, виконайте такі дії:
1. Утримуйте клавішу ALT + F11 ключі, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у Модулі Вікно
Код 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 для Excel
Якщо ви встановили Kutools для Excel, З його Діапазон трансформації функцію, ви можете швидко розділити довгий список на кілька стовпців і рядків, крім того, ви також можете об'єднати кілька стовпців в один довгий список.
Kutools для Excel : з більш ніж 300 зручними надбудовами Excel, які можна спробувати без обмежень протягом 30 днів. |
після установки Kutools для Excel, будь ласка, виконайте наступне:
1. Виберіть довгий список, який потрібно розділити, а потім клацніть Кутулс > Діапазон > Діапазон трансформації, див. скріншот:
2, в Діапазон трансформації діалогове вікно, виберіть Один стовпець для діапазону під Тип перетворення розділ, а потім перевірте Фіксована вартість і вкажіть кількість клітинок на рядок у полі, див. знімок екрана:
3. Потім натисніть Okі виберіть клітинку, де ви хочете знайти результат, у вікні запиту, див. знімок екрана:
4. І клацніть OK Кнопка, дані в списку були розділені на кілька рівних груп, як вам потрібно.
Завантажте та безкоштовну пробну версію Kutools для Excel зараз!
Демо: розділіть довгий список на кілька рівних груп за допомогою Kutools для Excel
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!