Рада: Іншыя мовы Google-Перакладзеныя. Вы можаце наведаць English версія гэтай спасылкі.
Увайсці
x
or
x
x
рэгістрацыя
x

or

Як разбіць дадзеныя на некалькі лістоў па радках падлічваць ў Excel?

Напрыклад, у мяне ёсць выбар спісу дадзеных, цяпер я хачу, каб разбіць яго на некалькі лістоў па радках падлічваць, у гэтым прыкладзе, я буду разбіць яго на кожнай радку 5 (гл наступных скрыншотаў). Ці існуюць якія-небудзь спосабы, каб дапамагчы нам вырашыць гэтую праблему хутка? Тут я прадстаўлю два трукі для вас, каб зрабіць гэта лёгка.


док-спліт-дадзеных па-rows1


-2



док-спліт-дадзеных па-rows2
док-спліт-дадзеных па-rows3
док-спліт-дадзеных па-rows4
док-спліт-дадзеных па-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'S спліт дадзеных, Вы не толькі можаце ўставіць загалоўкі для кожных дадзеных працоўнага ліста, але можаце таксама вызначыць новыя разламаныя імёны лістоў.

Kutools для Excel ўключае ў сябе больш за 300 зручных інструментаў Excel. Бясплатна паспрабаваць без якіх-небудзь абмежаванняў у 30 дзён. атрымаць зараз

Калі вы ўсталявалі Kutools для Excel, калі ласка, зрабіце наступнае:

1, Выберыце дыяпазон дадзеных, якія вы хочаце падзяліць.

2, націсніце прадпрыемства > Працоўны ліст Інструменты > спліт дадзеных (Або прадпрыемства > спліт дадзеных ), Глядзі скрыншот:

док-спліт-дадзеных па-rows6

3, ў Падзел дадзеных на некалькі табліцу дыялогавае акно:

  • выбраць фіксаваныя радкі ад Падзяліць на аснове варыянт, і ўвядзіце колькасць радкоў разлічваць, што вы хочаце падзяліць на кожны працоўны ліст. (Калі дадзеныя маюць загалоўкі, і вы хочаце, каб уставіць іх у кожнае новае паасобнае ліст, калі ласка, праверце Мае дадзеныя мае загалоўкі опцыя).
  • Пасля гэтага вы можаце пазначыць імёны расколу працоўнага ліста, пад Назва Новых працоўных лістоў раздзел, выберыце правілы імёнаў рабочых лістоў з Правілы выпадальны спіс, вы можаце дадаць Прэфікс or суфікс для імёнаў лістоў, а таксама. Глядзіце скрыншот:

док-спліт-дадзеных па-rows7

4, Пасля таго, як задаць налады, затым націсніце OKІ выбраныя дадзеныя былі падзеленыя на некалькі лістоў новай кнігі кожных шэрагі 5. І загалоўкі устаўленыя для кожнага новага ліста. Глядзіце скрыншот:

док-спліт-дадзеных па-rows8

Націсніце, каб даведацца больш аб гэтай функцыі Split дадзеных.

Артыкулы па тэме:

Як разбіць дадзеныя на некалькі працоўных лістоў на аснове слупка ў Excel?



Рэкамендаваны інструменты для павышэння прадукцыйнасці

ўкладка Упраўленне

золата star1 Прынясіце зручныя укладкі ў Excel і іншыя офісныя праграмы, гэтак жа, як Chrome, Firefox і новы Internet Explorer.

Kutools для Excel

золата star1 Дзіўна! Павышэнне прадукцыйнасці ў 5 хвілін. Не трэба ніякіх спецыяльных навыкаў, захаваць абодва гадзіны кожны дзень!

золата star1 300 Новыя магчымасці для Excel, зрабіць Excel Шмат Лёгкі і магутны:

  • Зліццё клетак / радкоў / слупкоў без страты дадзеных.
  • Аб'яднанне і аб'яднанне некалькіх лістоў і працоўных кніг.
  • Параўнанне дыяпазонаў, капіраванне некалькіх дыяпазонаў, пераўтварэнне тэксту ў дату, групу і валютнай канверсію.
  • Граф па Colors, пэйджынгавай подытогами, Advanced Сартаванне і супер фільтр,
  • Больш Select / Insert / Delete / Тэкст / Фармат / Спасылка / каментар / Workbooks / Рабочыя лісты Інструменты ...

Здымак экрана 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?