Розділіть дані на кілька аркушів за кількістю рядків у Excel
Ефективний розподіл великого діапазону даних на кілька аркушів Excel на основі певної кількості рядків може спростити керування даними. Наприклад, розділення набору даних кожні 5 рядків на кілька аркушів може зробити його більш керованим і організованим. Цей посібник пропонує два практичних способи швидкого та легкого виконання цього завдання.
Розділіть дані на кілька аркушів за допомогою підрахунку рядків за допомогою коду VBA
Розділіть дані на кілька аркушів за кількістю рядків за допомогою Kutools для Excel
Розділіть дані на кілька аркушів за допомогою підрахунку рядків за допомогою коду VBA
Наступний код VBA може допомогти вам розділити рядки на кілька аркушів за кількістю рядків, зробіть наступне:
1. Утримуйте клавішу ALT + F11 ключ, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. Клацання Insert > Модуліта вставте наступний код у вікно модуля.
VBA: розділіть дані на аркуші за кількістю рядків у Excel
Sub Splitdatabyrows()
'Updated by Extendoffice
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
Dim xTRg As Range
Dim xNTRg As Range
Dim xIER
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set xTRg = Application.InputBox("Please select the header row:", xTitleId, "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set WorkRng = Application.InputBox("Please select the data range(exclude the header row):", xTitleId, WorkRng.Address, Type:=8)
If TypeName(WorkRng) = "Nothing" Then Exit Sub
SplitRow = Application.InputBox("Split Row Num", xTitleId, Type:=1)
If SplitRow = 0 Then Exit Sub
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
xIER = WorkRng.Rows.Count
xIER = WorkRng.Row + xIER - 1
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
resizeCount = SplitRow
If (xIER - xRow.Row + 1) < SplitRow Then
resizeCount = (xIER - xRow.Row + 1)
End If
xRow.Resize(resizeCount).Copy
Set xWs = Application.Worksheets.Add(after:=Application.Worksheets(Application.Worksheets.Count))
If xIER > (xRow.Row + SplitRow - 1) Then
xWs.Name = xRow.Row & " - " & (xRow.Row + SplitRow - 1)
ElseIf xIER = xRow.Row Then
xWs.Name = xRow.Row
Else
xWs.Name = xRow.Row & " - " & xIER
End If
Application.ActiveSheet.Range("A1").PasteSpecial
Set xNTRg = Application.ActiveSheet.Range("A1")
xTRg.Copy
xNTRg.Insert
Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Потім натисніть F5 ключ, у спливаючому діалоговому вікні виберіть рядок заголовка, див. знімок екрана:
4. Потім натисніть кнопку OK, а у другому вікні підказки виберіть діапазон даних, який потрібно розділити на підрахунок рядків, див. знімок екрана:
5. Продовжуйте натискати OK , у третьому вікні запиту введіть кількість рядків, на які потрібно розділити, див. знімок екрана:
6. Потім натисніть кнопку OK кнопку, дані були розділені на кілька робочих аркушів на основі кількості рядків, див. знімок екрана:
Розділіть дані на кілька аркушів за кількістю рядків за допомогою Kutools для Excel
Якщо ви вважаєте, що код VBA складний, Kutools для Excel пропонує швидке та інтуїтивно зрозуміле рішення для ефективного вирішення проблеми поділу даних. Це Розділити дані Функція спрощує процес роботи, дозволяючи користувачам будь-якого рівня кваліфікації легко розділяти великі набори даних на кілька робочих аркушів без потреби в глибоких знаннях програмування, сприяючи ефективному управлінню даними.
Якщо ви встановили Kutools для Excel, будь ласка, виконайте наступне:
1. Виберіть діапазон даних, які потрібно розділити. Потім натисніть Kutools Plus > Розділити дані, див. скріншот:
3, в Розділіть дані на кілька аркушів діалогове вікно:
- Select Фіксовані ряди від Спліт на основі і введіть кількість рядків, які потрібно розділити для кожного аркуша.
- Якщо ваші дані мають заголовки, і ви хочете вставляти їх у кожен новий розділений аркуш, перевірте Мої дані мають заголовки варіант. (Чайові: ви можете ввести кількість рядів пастуха на основі ваших даних.)
- Потім ви можете вказати назви розділених аркушів у розділі Назва нових аркушів розділ, виберіть правила імен робочого аркуша з Правила випадаючий список, ви можете додати префікс or суфікс для назв аркушів також.
4. Після вказівки параметрів натисніть OK, а вибрані дані було розділено на кілька аркушів нової книги на кожні 5 рядків. І заголовки вставляються для кожного нового аркуша. Дивіться знімок екрана:
Статті по темі:
- Розділіть дані на кілька аркушів на основі стовпця
- Припустімо, що у вас є робочий аркуш із величезними рядками даних, і тепер вам потрібно розділити дані на кілька робочих аркушів на основі стовпця «Ім’я» (див. наступний знімок екрана), і імена вводяться випадковим чином. Можливо, ви можете спочатку відсортувати їх, а потім скопіювати та вставити один за одним на інші нові аркуші. Але для цього знадобиться ваше терпіння, щоб копіювати та вставляти кілька разів. Сьогодні я розповім про кілька швидких трюків для вирішення цього завдання.
- Поєднайте повторювані рядки та підсумуйте значення в Excel
- У Excel це типовий сценарій, коли набір даних містить повторювані записи. Часто ви можете зіткнутися з діапазоном даних, де ключове завдання полягає в тому, щоб ефективно поєднати ці повторювані рядки з одночасним підсумовуванням значень у відповідному стовпці, як показано на наступному знімку екрана. У цьому контексті ми розглянемо кілька практичних методів, які можуть допомогти вам консолідувати повторювані дані та агрегувати пов’язані з ними значення, підвищуючи чіткість і корисність ваших робочих книг Excel.
- Об’єднайте дві або більше таблиць в одну на основі ключових стовпців
- Припустимо, у вас є три таблиці в книзі, тепер ви хочете об'єднати ці таблиці в одну таблицю на основі відповідних стовпців ключів, щоб отримати результат, як показано на знімку екрана нижче. Для більшості з нас це може бути клопітким завданням, але, будь ласка, не хвилюйтеся, у цій статті я представив деякі методи вирішення цієї проблеми.
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!