Разделете данните в множество работни листове по брой редове в 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 плюс > Разделени данни, вижте екранна снимка:
3. В Разделете данните в няколко работни листа диалогов прозорец:
- Изберете Фиксирани редове от Разделяне въз основа на опция и въведете броя на редовете, които искате да разделите за всеки работен лист.
- Ако вашите данни имат заглавки и искате да ги вмъкнете във всеки нов разделен работен лист, моля, проверете Данните ми имат заглавки опция. (тип: можете да въведете броя на редовете за пастир въз основа на вашите данни.)
- След това можете да посочите имената на разделените работни листове под Име на нови работни листове изберете правилата за имена на работни листове от Правилник падащ списък, можете да добавите Префикс or Наставка и за имената на листовете.
4. След като зададете настройките, щракнете върху OKи избраните данни са разделени на множество работни листа на нова работна книга на всеки 5 реда. И заглавките се вмъкват за всеки нов работен лист. Вижте екранна снимка:
Свързани членове:
- Разделете данните в няколко работни листа въз основа на колона
- Да предположим, че имате работен лист с огромни редове от данни и сега трябва да разделите данните на множество работни листа въз основа на колоната Име (вижте следващата екранна снимка) и имената се въвеждат на случаен принцип. Може би първо можете да ги сортирате и след това да ги копирате и поставите един по един в други нови работни листове. Но това ще изисква вашето търпение, за да копирате и поставяте многократно. Днес ще говоря за някои бързи трикове за решаване на тази задача.
- Комбинирайте дублиращи се редове и сумирайте стойностите в Excel
- В Excel често срещан сценарий е да срещнете набор от данни с дублиращи се записи. Често може да се окажете с набор от данни, където основното предизвикателство е ефективното комбиниране на тези дублиращи се редове, като същевременно сумирате стойностите в съответната колона, както е показано на следната екранна снимка. В този контекст ще разгледаме няколко практически метода, които могат да ви помогнат да консолидирате дублиращи се данни и да обедините свързаните с тях стойности, подобрявайки както яснотата, така и полезността на вашите работни книги в Excel.
- Обединете две или повече таблици в една въз основа на ключови колони
- Да предположим, че имате три таблици в работна книга, сега искате да обедините тези таблици в една таблица въз основа на съответните ключови колони, за да получите резултата, както е показано на екранната снимка по-долу. Това може да е неприятна задача за повечето от нас, но, моля, не се притеснявайте, в тази статия ще ви представя някои методи за решаване на този проблем.
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!