Савет: Други језици су Гоогле-преводили. Можете посетити English верзија ове везе.
лог ин
x
or
x
x
Регистровати
x

or

Како поделити податке у више радних листова по редовима у Екцел-у?

На пример, имам низ списка података, сада желим да га поделим на више радних листова по бројевима редова, у овом примеру, поделићу га за сваки ред КСНУМКС-а (погледајте слиједеће снимке екрана). Постоје ли неки начини да нам помогну да брзо ријешимо овај проблем? Овде ћу вам представити два трикова за вас да бисте то учинили лако.


доц-сплит-дата-би-ровсКСНУМКС


-2



доц-сплит-дата-би-ровсКСНУМКС
доц-сплит-дата-би-ровсКСНУМКС
доц-сплит-дата-би-ровсКСНУМКС
доц-сплит-дата-би-ровсКСНУМКС

Раздвојите податке на више радних листова по бројевима редова помоћу ВБА кода

Раздвојите податке у више радних листова по редовима бројем помоћу Кутоолс за Екцел


стрелица плави десни балон Раздвојите податке на више радних листова по бројевима редова помоћу ВБА кода


Следећи ВБА код вам може помоћи да поделите редове на више радних листова по броју редова, урадите следеће:

1. Држите га АЛТ + ФКСНУМКС кључ за отварање Мицрософт Висуал Басиц за апликације прозор.

2. Клик Убацити > Модули, и налепите следећи код у прозор Модуле.

ВБА: Раздвајање података у листу по редовима у Екцелу.

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. Kliknite OK, а опсег се дели на више листова по броју редова.

белешке: Распоредни радни листови се налазе на полеђини главног радног листа.


стрелица плави десни балон Раздвојите податке у више радних листова по редовима бројем помоћу Кутоолс за Екцел

Горњи код може само подијелити податке према наведеном броју редова и неће додати наслов за сваки податак радног листа ако ваши подаци имају наслов.

ali са Кутоолс за ЕкцелСплит Подаци, не само да можете убацити заглавља за сваки податак радног листа, већ такође можете одредити нова имена радног листа.

Кутоолс за Екцел укључује више од КСНУМКС практичних Екцел алата. Слободно покушати без ограничења у КСНУМКС данима. Добити сада

Ако сте инсталирали Кутоолс за Екцел, урадите следеће:

1. Изаберите распон података које желите поделити.

2. Клик предузеће > Радни лист Алати > Сплит Подаци (Или предузеће > Сплит Подаци ), погледајте сцреенсхот:

доц-сплит-дата-би-ровсКСНУМКС

3. у Раздвојите податке у више радних листова Дијалог:

  • одабрати Фиксни редови од Сплит на основу опцију и унесите број бројева редова које желите подијелити за сваки радни лист. (Ако ваши подаци имају заглавља и желите их уметнути у сваки нови радни лист, пратите их Моји подаци имају заглавља опција.)
  • Затим можете одредити имена подијељених таблица, испод Нови радни листови одељак, изаберите правила имена из радног листа Правила спустите листу, можете додати префикс or суфикс за имена листова. Погледајте снимак екрана:

доц-сплит-дата-би-ровсКСНУМКС

4. Након што подесите поставке, кликните на дугме OK, а изабрани подаци су подељени на више радних листова нове радне свеске по сваком КСНУМКС редоследу. А заглавља се убацују за сваки нови радни лист. Погледајте снимак екрана:

доц-сплит-дата-би-ровсКСНУМКС

Кликните да бисте сазнали више о овој функцији за поделу података.

Повезани чланак:

Како поделити податке у више радних листа на основу колоне у Екцелу?



Препоручени алати за продуктивност

Оффице Таб

златна звездаКСНУМКС Дајте практичне картице у Екцел и други Оффице програм, баш као и Цхроме, Фирефок и нови Интернет Екплорер.

Кутоолс за Екцел

златна звездаКСНУМКС Невероватно! Повећајте продуктивност у КСНУМКС минуту. Не требају никакве посебне вјештине, осим два сата сваког дана!

златна звездаКСНУМКС КСНУМКС Нове функције за Екцел, учините Екцел пуно једноставно и моћно:

  • Споји ћелије / редове / колоне без губитка података.
  • Комбинујте и консолидујте више листова и радне свеске.
  • Упоредите опсеге, копирајте више опсега, претворите текст на датум, јединицу и конверзију валута.
  • Цоунт би Цолорс, Пагинг Субтоталс, Адванцед Сорт и Супер Филтер,
  • Више Изабери / Уметни / Обриши / Текст / Формат / Линк / Коментар / Радна свеска / Радни листови Алати ...

Сцреен схот оф Кутоолс за Екцел

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?