Разделить данные на несколько листов по количеству строк в Excel
Эффективное разделение большого диапазона данных на несколько листов Excel по заданному количеству строк значительно упрощает управление информацией. Например, разбивая набор данных каждые 5 строк на отдельные листы, вы делаете его более удобным и структурированным. В этом руководстве представлены два практичных метода для быстрого и лёгкого выполнения этой задачи.
Разделить данные на несколько листов по количеству строк с помощью кода 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, затем в появившемся диалоговом окне выберите строку заголовка (см. снимок экрана):
4. Далее нажмите кнопку OK, и во втором диалоговом окне выберите диапазон данных, который требуется разделить по количеству строк (см. снимок экрана):
5. Нажмите кнопку OK, затем в третьем диалоговом окне укажите количество строк, по которому нужно выполнить разделение (см. снимок экрана):
6. Затем нажмите кнопку OK, и данные будут разделены на несколько листов в соответствии с указанным количеством строк (см. снимок экрана):
Разделить данные на несколько листов по количеству строк с помощью Kutools для Excel
Если вам кажется, что код VBA сложен,Kutools для Excel предлагает быстрое и интуитивно понятное решение для эффективного разделения данных. Функция Разделить данные упрощает эту задачу, позволяя пользователям любого уровня легко разделять большие наборы данных на несколько листов — без углублённых знаний программирования и с максимальной эффективностью управления данными.
Если у вас установлен Kutools для Excel, выполните следующие действия:
1. Выделите диапазон данных, который нужно разделить, и нажмите KUTOOLS PLUS > Разделить данные (см. снимок экрана):
3. В диалоговом окне Разделить данные на несколько листов:
- Выберите Фиксированное значение в поле Основа разделения и укажите количество строк, на которое нужно разделить каждый лист.
- Если ваши данные содержат заголовки и вы хотите вставить их на каждый новый разделённый лист, установите флажок Включить заголовки. ()Совет: вы можете указать количество строк заголовков в зависимости от структуры ваших данных.)
- Затем вы можете задать правила разделения имени листа в разделе Имя создаваемых листов, выбрав нужное правило из раскрывающегося списка Правила, а также добавив Префикс или Суффикс к именам листов.
4. После настройки параметров нажмите кнопку OK, и данные из диалога «Выбрать данные» будут разделены по нескольким листам в новой рабочей книге — по 5 строк на каждый лист. Заголовки будут добавлены на каждый новый лист (см. снимок экрана):
Связанные статьи:
- Разделить данные на несколько листов на основе столбца
- Предположим, у вас есть лист с огромным количеством строк данных, и вам нужно разделить их на несколько рабочих листов по столбцу «Имя» (см. скриншот ниже), причём имена указаны в случайном порядке. Возможно, вы сначала отсортируете данные, а затем будете копировать и вставлять их по одному на новые листы. Однако такой подход потребует немало терпения из-за необходимости многократно выполнять копирование и вставку. Сегодня я покажу вам несколько быстрых приёмов, которые помогут решить эту задачу легко и эффективно.
- Объединение Дублирующая строка и суммирование значений в Excel
- В Excel часто встречаются наборы данных с дублирующимися записями. Нередко возникает задача эффективного объединения этих дублирующихся строк с одновременным суммированием значений в соответствующем столбце, как показано на приведённом ниже снимке экрана. В этом разделе мы рассмотрим несколько практических методов, которые помогут вам консолидировать дублирующиеся данные и агрегировать связанные с ними значения, повышая тем самым чёткость и полезность вашей рабочей книги Excel.
- Объединение двух или более таблиц в одну на основе Ключевой столбец
- Предположим, у вас в одной книге есть три таблицы, и вы хотите объединить их в одну на основе соответствующего ключевого столбца, чтобы получить результат, как на снимке экрана ниже. Для большинства из нас это может оказаться непростой задачей — но не переживайте: в этой статье я покажу несколько эффективных способов её решения.
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек