نکته: زبانهای دیگر گوگل ترجمه شده اند. شما می توانید از English نسخه این لینک
ورود
x
or
x
x
ثبت نام
x

or

چگونه می توان داده ها را به چند صفحه با تعداد ردیف در اکسل تقسیم کرد؟

برای مثال، من طیف وسیعی از لیست داده ها را دارم، در حال حاضر می خواهم آن را به تعداد چندین برگه تقسیم کنم، در این مثال، آن را با هر ردیف 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 برای اکسل


فلش آبی راست حباب تقسیم داده ها به چند صفحه با ردیف تعداد با کد VBA


کد VBA زیر می تواند به شما کمک کند ردیف ها را به چندین برگه ها تقسیم کنید با تعداد سطر، انجام دهید به شرح زیر است:

1. پایین نگه دارید ALT + F11 کلید باز کردن مایکروسافت ویژوال بیسیک برای برنامه پنجره.

2است. کلیک کنید قرار دادن > ماژول ها، و کد زیر را در پنجره ماژول قرار دهید.

VBA: تقسیم داده ها به ورق های ردیف در اکسل.

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 برای اکسل

کد بالا می تواند داده ها را فقط بر اساس شمارش ردیف های مشخص تقسیم کند و اگر اطلاعات شما دارای عنوان باشد، عنوان هر داده های برگه را اضافه نمی کند.

اما با Kutools برای اکسل" تقسیم داده ها، شما نه تنها می توانید هدر ها را برای هر یک از داده های برگه وارد کنید، بلکه می توانید نام های برگه جدید Split را نیز مشخص کنید.

Kutools برای اکسل شامل بیش از 300 دستی ابزار اکسل. رایگان بدون محدودیت در روز 30 امتحان کنید. آن را دریافت کنید

اگر Kutools را برای اکسل نصب کردید، لطفا به صورت زیر عمل کنید:

1. طیف وسیعی از داده هایی که می خواهید تقسیم کنید را انتخاب کنید.

2است. کلیک کنید سرمایه گذاری > برگه ابزار > تقسیم داده ها (و یا سرمایه گذاری > تقسیم داده ها )، تصویر را ببینید:

doc-split-data-by-rows6

3است. در تقسیم داده ها به صفحات چندگانه کادر محاوره ای:

  • انتخاب کنید ردیف های ثابت از جانب تقسیم بر اساس گزینه، و تعداد تعداد ردیف که می خواهید برای هر یک از برگه ها تقسیم کنید را وارد کنید. (اگر داده های شما دارای سرصفحه باشد و شما می خواهید آنها را در هر صفحه جداگانه جدید وارد کنید، لطفا بررسی کنید داده های من دارای سرصفحه است گزینه.)
  • سپس شما می توانید نام کاراکتر تقسیم، زیر زیر را مشخص کنید نام برگه جدید بخش، قوانین اسامی برگه های کار را از قوانین لیست کشویی، شما می توانید اضافه کنید پیشوند or پسوند برای نام ورق هم همینطور. تصویر را ببینید:

doc-split-data-by-rows7

4. پس از تعیین تنظیمات، و سپس کلیک کنید OK، و داده های انتخاب شده توسط هر ردیف 5 به چندین کارنامه یک کتاب کار جدید تقسیم شده است. و هدر ها برای هر برگه جدید وارد می شوند. تصویر را ببینید:

doc-split-data-by-rows8

برای دانستن بیشتر در مورد این ویژگی Split Data کلیک کنید.

مقاله مرتبط:

چگونه می توان داده ها را به چند صفحه جداگانه بر اساس ستون در اکسل تقسیم کرد؟



ابزارهای توصیه شده برای بهره وری

دفتر تب

gold star1 زبانه های مفید برای اکسل و دیگر نرم افزار Office، درست مانند Chrome، Firefox و اینترنت اکسپلورر جدید.

Kutools برای اکسل

gold star1 حیرت آور! بهره وری خود را در دقیقه 5 افزایش دهید. به مهارت های ویژه نیاز نداشته باشید، صرفه جویی در هر ساعت دو ساعت!

gold star1 ویژگی های جدید 300 برای اکسل، اکسل بسیار آسان و قدرتمند:

  • ادغام سلول / ردیف / ستون بدون از دست دادن داده ها.
  • ترکیب و ادغام چندین ورق و کارنامه.
  • مقایسه مقادیر، روندهای چندگانه کپی، تبدیل متن به تاریخ، تبدیل واحد و ارز.
  • شمارش توسط رنگ ها، کلیدهای پیمایش، مرتب سازی پیشرفته و سوپر فیلتر،
  • بیشتر انتخاب / قرار دادن / حذف / متن / فرمت / لینک / نظر / کتاب کار / ابزار برگه ها ...

شات Screen Kutools برای اکسل

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?