Порада. Інші мови - перекладена Google. Ви можете відвідати English версія цього посилання.
увійти
x
or
x
x
Реєстрація
x

or

Як розподілити дані на декількох робочих аркушах за кількістю рядків в Excel?

Наприклад, у мене є діапазон списків даних, тепер я хочу розбити його на декілька робочих аркушів за рахунками рядків, в цьому прикладі я розбив його на всі рядки 5 (див. Наступні скріншоти). Чи є якісь способи допомогти нам вирішити цю проблему швидко? Тут я введу два хитрощі для вас, щоб зробити це легко.


doc-split-data-by-rows1


-2



doc-split-data-by-rows2
doc-split-data-by-rows3
doc-split-data-by-rows4
doc-split-data-by-rows5

Розділити дані на декілька робочих аркушів за рядками з кодом VBA

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


Стрілка синього правого міхура Розділити дані на декілька робочих аркушів за рядками з кодом 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, а діапазон розподіляється на кілька аркушів за підрахунками рядків.

примітки: Розбиті робочі листи розміщуються на зворотній стороні майстер-листів.


Стрілка синього правого міхура Розділити дані на декількох робочих аркушів за рядками, що підраховуються з Kutools для Excel

За допомогою наведеного вище коду можна розподілити дані лише за вказаним числом рядків, і він не додаватиме заголовок для кожного аркуша даних, якщо у ваших даних є заголовок.

Але з Kutools для ExcelАвтора Спліт даних, ви можете не тільки вставляти заголовки для кожного аркуша даних, але також можете вказати нові імена розділених аркушів.

Kutools для Excel включає більше, ніж 300 зручних інструментів Excel. Безкоштовно спробувати без обмежень в днях 30. Отримати зараз

Якщо ви встановили Kutools для Excel, виконайте наступне:

1. Виберіть діапазон даних, які потрібно розділити.

2. Клацання підприємство > Робочий аркуш інструментів > Спліт даних (Або підприємство > Спліт даних ), див. скріншот:

doc-split-data-by-rows6

3, в Спліт даних на кілька робочих аркушів діалогове вікно:

  • вибрати Виправлені рядки від Спліт на основі параметр і введіть кількість рядків, які потрібно розділити для кожного робочого аркуша. (Якщо у ваших даних є заголовки, і ви хочете вставити їх у кожен новий розділений аркуш, перевірте Мої дані мають заголовки варіант.)
  • Потім ви можете вказати імена розділених аркушів під заголовком Ім'я нових робочих таблиць розділ, виберіть правила імен робочого аркуша з Правила випадаючий список, ви можете додати префікс or суфікс для назв аркушів також. Див. Знімок екрана:

doc-split-data-by-rows7

4. Після вкажіть настройки та натисніть кнопку OK, а вибрані дані були розділені на кілька робочих аркушів нової книги кожними рядами 5. І заголовки вставляються для кожного нового робочого листа. Див. Знімок екрана:

doc-split-data-by-rows8

Натисніть, щоб дізнатися більше про цю функцію розділення даних.

Пов'язана стаття:

Як розділити дані на декілька робочих аркушів на основі колонки в Excel?



Рекомендовані інструменти для роботи з продуктивністю

Вкладка Office

золота зірка1 Принесіть зручні вкладки для Excel та іншого програмного забезпечення Office, як і Chrome, Firefox та нового Internet Explorer.

Kutools для Excel

золота зірка1 Дивовижний! Збільште свою продуктивність за 5 хв. Не потрібно спеціальних навичок, заощаджуйте дві години щодня!

золота зірка1 Нові можливості 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 · 10 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?