Совет. Другие языки - Google-Translated. Вы можете посетить English версия этой ссылки.
Войти
x
or
x
x
Регистрация
x

or

Как разбить данные на несколько листов по количеству строк в Excel?

Например, у меня есть список данных, теперь я хочу разбить его на несколько листов по количеству строк, в этом примере я разберу их по каждой строке 5 (см. Следующие скриншоты). Есть ли способы помочь нам быстро решить эту проблему? Здесь я представлю вам два трюка, чтобы вы сделали это легко.


док-сплит-данных по-rows1


-2



док-сплит-данных по-rows2
док-сплит-данных по-rows3
док-сплит-данных по-rows4
док-сплит-данных по-rows5

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

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


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


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

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

2. Щелчок Вставить > модуль, и вставьте следующий код в окно модуля.

VBA: разделение данных на листы по количеству строк в Excel.

Sub SplitData()
'Updateby20140617
Dim WorkRng As Range
Dim xRow As Range
Dim SplitRow As Integer
Dim xWs As Worksheet
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
SplitRow = Application.InputBox("Split Row Num", xTitleId, 5, Type:=1)
Set xWs = WorkRng.Parent
Set xRow = WorkRng.Rows(1)
Application.ScreenUpdating = False
For i = 1 To WorkRng.Rows.Count Step SplitRow
    resizeCount = SplitRow
    If (WorkRng.Rows.Count - xRow.Row + 1) < SplitRow Then resizeCount = WorkRng.Rows.Count - xRow.Row + 1
    xRow.Resize(resizeCount).Copy
    Application.Worksheets.Add after:=Application.Worksheets(Application.Worksheets.Count)
    Application.ActiveSheet.Range("A1").PasteSpecial
    Set xRow = xRow.Offset(SplitRow)
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

3, Затем нажмите F5 для запуска кода, и появится диалоговое окно для выбора диапазона для разделения, а затем нажмите OK, и еще одно диалоговое окно для указания количества строк. Смотрите скриншот:

4. щелчок OK, и диапазон разбивается на несколько листов по количеству строк.

Внимание: Таблицы расщепления размещаются на обратной стороне основного листа.


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

Вышеприведенный код может только разбивать данные на указанный счетчик строк, и он не будет добавлять заголовок для каждой рабочей таблицы, если ваши данные имеют заголовок.

Но с Kutools for ExcelАвтора Разделить данные, вы не только можете вставлять заголовки для каждой информации рабочего листа, но также можете указывать новые имена таблиц разделения.

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

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

1, Выберите диапазон данных, которые вы хотите разбить.

2. Щелчок Предприятие > Инструменты рабочего листа > Разделить данные (Или Предприятие > Разделить данные ), см. снимок экрана:

док-сплит-данных по-rows6

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

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

док-сплит-данных по-rows7

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

док-сплит-данных по-rows8

Нажмите, чтобы узнать больше об этой функции Split Data.

Связанная статья:

Как разбить данные на несколько рабочих листов на основе столбца в Excel?



Рекомендуемые инструменты производительности

Office Tab

золото star1 Принесите удобные вкладки в Excel и другое программное обеспечение Office, как Chrome, Firefox и новый Internet Explorer.

Kutools for Excel

золото star1 Удивительно! Увеличьте производительность в течение 5 минут. Не нужно никаких специальных навыков, сэкономить два часа каждый день!

золото star1 Новые возможности 300 для Excel, сделать Excel намного проще и мощнее:

  • Объединить ячейки / строки / столбцы без потери данных.
  • Объединение и объединение нескольких листов и книг.
  • Сравнение диапазонов, копирование нескольких диапазонов, преобразование текста в дату, преобразование единиц и валют.
  • Подсчет количества цветов, Пейджинговые субтитры, Расширенный сортировка и Суперфильтр,
  • Подробнее Выбрать / Вставить / Удалить / Текст / Формат / Ссылка / Комментарий / Рабочие книги / Рабочие листы Инструменты ...

Снимок экрана Kutools для Excel

Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Max · 9 months ago
    Omg thank you so very much dude!
  • To post as a guest, your comment is unpublished.
    prasanna · 1 years ago
    Hi Thanks for this great code, but the concern is, here we can only split fixed number of rows, can you help me with split is based on some name or code, because i have different set of rows for each worksheet.
  • To post as a guest, your comment is unpublished.
    aparna · 2 years ago
    hi this works great but want the output as string how can i modify the code or i can say example : 'output',
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks a lot for the fantastic VBA-Script. But how to modify it to keep the header row on every split?
  • To post as a guest, your comment is unpublished.
    Ralph · 2 years ago
    Thanks, for this fantastic VBA-Script. But how to configure it to repeat the header row on every split?