Перейти к содержимому

Разделение данных на несколько листов по количеству строк в Excel

Author: Xiaoyang Last Modified: 2025-08-07

Эффективное разделение большого диапазона данных на несколько листов Excel на основе определенного количества строк может упростить управление данными. Например, разбиение набора данных каждые 5 строк на несколько листов может сделать его более удобным и организованным. Это руководство предлагает два практических метода для быстрого и легкого выполнения этой задачи.

Split data into multiple worksheets by rows count

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

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


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

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

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

2. Нажмите Вставить > Модуль и вставьте следующий код в окно Модуля.

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, в появившемся диалоговом окне выберите строку заголовка, см. скриншот:

Split data into worksheets by rows count with vba code to select header row

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

Split data into worksheets by rows count with vba code to select data range

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

Split data into worksheets by rows count with vba code to specify rows number to split

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

Split data into worksheets by rows count with vba code to get result


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

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

Kutools для Excel включает более 300 удобных инструментов для Excel. Бесплатная пробная версия без ограничений в течение 30 дней. Получите это сейчас

Если вы установили Kutools для Excel, пожалуйста, сделайте следующее:

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

Split data into worksheets by rows count with kutools

3. В диалоговом окне Разделение данных на несколько листов:

  • Выберите Фиксированное значение из опции Основа разделения и введите количество строк, по которым вы хотите разделить данные для каждого листа.
  • Если ваши данные содержат заголовки, и вы хотите вставить их в каждый новый разделенный лист, пожалуйста, отметьте опцию Данные содержат заголовки. (Совет: вы можете ввести количество строк заголовков на основе ваших данных.)
  • Затем вы можете указать имена разделенных листов, в разделе Имя создаваемых листов выберите правила именования листов из выпадающего списка Правило, вы также можете добавить Префикс или Суффикс для имен листов.

Split data into worksheets by rows count with kutools to set the operations

4. После указания настроек нажмите OK, и выбранные данные будут разделены на несколько листов новой книги каждые 5 строк. И заголовки будут вставлены для каждого нового листа. См. скриншот:

Split data into worksheets by rows count with kutools to get the result

Примечание: Чтобы применить эту функцию, пожалуйста, скачайте и установите Kutools для Excel.

Связанные статьи:

  • Разделение данных на несколько листов на основе столбца
  • Предположим, у вас есть рабочий лист с огромным количеством строк данных, и теперь вам нужно разделить данные на несколько листов на основе столбца Имя (см. следующий скриншот), и имена введены случайным образом. Возможно, вы сначала отсортируете их, а затем будете копировать и вставлять их один за другим в другие новые листы. Но это потребует вашего терпения для многократного копирования и вставки. Сегодня я расскажу о некоторых быстрых приемах для решения этой задачи.
  • Объединение дублирующихся строк и суммирование значений в Excel
  • В Excel часто встречается ситуация, когда в наборе данных есть повторяющиеся записи. Часто вы можете столкнуться с диапазоном данных, где основной проблемой является эффективное объединение этих дублирующихся строк, одновременно суммируя значения в соответствующем столбце, как показано на следующем скриншоте. В этом контексте мы рассмотрим несколько практических методов, которые помогут вам консолидировать дублирующиеся данные и агрегировать их связанные значения, повышая как ясность, так и полезность ваших книг Excel.
  • Объединение двух или более таблиц в одну на основе ключевых столбцов
  • Предположим, у вас есть три таблицы в книге, теперь вы хотите объединить эти таблицы в одну на основе соответствующих ключевых столбцов, чтобы получить результат, как показано на скриншоте ниже. Это может быть сложной задачей для большинства из нас, но, пожалуйста, не волнуйтесь, в этой статье я представлю некоторые методы для решения этой проблемы.

Лучшие инструменты для повышения продуктивности в Office

🤖 Kutools AI Aide: Переворот в анализе данных на основе: Интеллектуальное выполнение   |  Сгенерировать код  |  Создать Пользовательские Формулы  |  Анализ данных и генерация диаграмм  |  Вызов Kutools Functions
Популярные функции: Найти, выделить или отметить дубликаты   |  Удалить пустые строки   |  Объединить столбцы или ячейки без потери данных   |   Округлить...
Супер ПОИСК: VLookup с несколькими критериями    VLookup с несколькими значениями  |   Многолистовой поиск   |   Распознавание нечетких соответствий ....
Расширенный раскрывающийся список: Быстро создать раскр. список   |  Зависимый раскрывающийся список   |  Множественный выбор в раскрывающемся списке ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка фокусировки   |  Дизайн листа   |   Улучшенная строка формулы    Управление книгой и листами   |  Библиотека автотекста (Auto Text)   |  Выбор даты   |  Объединить данные   |  Шифрование/Расшифровка ячеек    Отправить письмо по списку   |  Супер фильтр   |   Специальный фильтр (фильтр по жирному/курсиву/зачеркиванию...) ...
Топ–15 наборов инструментов: 12 текстовых инструментов (Добавить текст, Удалить определенные символы, ...)   |   50+ типов диаграмм (Диаграмма Ганта, ...)   |   40+ практических формул (Расчет возраста на основе даты рождения, ...)   |   19 инструментов вставки (Вставить QR-код, Вставить изображение из пути, ...)   |  12 инструментов преобразования (Преобразовать в слова, Конвертация валюты, ...)   |  7 инструментов объединения и разделения (Расширенное объединение строк, Разделить ячейки, ...)   |   ... и многое другое
Используйте Kutools на вашем предпочитаемом языке – поддерживаются английский, испанский, немецкий, французский, китайский и более40 других языков!

Повысьте свои навыки работы в Excel с Kutools для Excel и ощутите новую эффективность. Kutools для Excel предлагает более300 расширенных функций для повышения продуктивности и экономии времени.  Щелкните здесь, чтобы получить наиболее нужную вам функцию...


Office Tab добавляет вкладочный интерфейс в Office, делая вашу работу значительно проще

  • Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
  • Открывайте и создавайте несколько документов во вкладках одного окна, а не в новых окнах.
  • Увеличьте свою продуктивность на50% и сократите сотни кликов мышью ежедневно!