انتقل إلى المحتوى الرئيسي

تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف في إكسيل

يمكن أن يؤدي تقسيم نطاق بيانات كبير بكفاءة إلى أوراق عمل Excel متعددة بناءً على عدد صفوف محدد إلى تبسيط إدارة البيانات. على سبيل المثال، يمكن أن يؤدي تقسيم مجموعة البيانات كل 5 صفوف إلى أوراق متعددة إلى جعلها أكثر قابلية للإدارة والتنظيم. يقدم هذا الدليل طريقتين عمليتين لإنجاز هذه المهمة بسرعة وسهولة.

تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف برمز VBA

تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف باستخدام Kutools for Excel


تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف برمز VBA

يمكن أن تساعدك التعليمات البرمجية لـ VBA التالية في تقسيم الصفوف إلى أوراق عمل متعددة حسب عدد الصفوف ، قم بما يلي:

1. اضغط باستمرار على ALT + F11 مفتاح لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

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 for Excel

إذا كنت تعتقد أن كود VBA معقد، كوتولس ل إكسيل يقدم حلاً سريعًا وبديهيًا لمعالجة مشكلة تقسيم البيانات بكفاءة. هذا تقسيم البيانات تعمل هذه الميزة على تبسيط عملية التشغيل، مما يسمح للمستخدمين من أي مستوى مهارة بتقسيم مجموعات البيانات الكبيرة بسهولة إلى أوراق عمل متعددة دون الحاجة إلى معرفة برمجية متعمقة، مما يسهل الإدارة الفعالة للبيانات.

كوتولس ل إكسيل يتضمن أكثر من 300 أداة يدوية لبرنامج Excel. تجربة مجانية بدون قيود خلال 30 يومًا. احصل عليه الآن

إذا كنت قد قمت بتثبيت كوتولس ل إكسيليرجى القيام بما يلي:

1. حدد نطاق البيانات التي تريد تقسيمها. ثم انقر فوق كوتولس بلس > تقسيم البيانات، انظر لقطة الشاشة:

3. في تقسيم البيانات إلى أوراق عمل متعددة صندوق المحادثة:

  • أختار صفوف ثابتة تبدأ من انقسام على أساس الخيار، وأدخل عدد الصفوف التي تريد تقسيمها لكل ورقة عمل.
  • إذا كانت بياناتك تحتوي على رؤوس وتريد إدراجها في كل ورقة عمل مقسمة جديدة، فيرجى التحقق من ذلك بياناتي لها رؤوس خيار. (معلومه- سرية: يمكنك إدخال عدد صفوف الرعي بناءً على بياناتك.)
  • ثم يمكنك تحديد أسماء أوراق العمل المنقسمة ، ضمن ملف اسم أوراق العمل الجديدة ، حدد قواعد أسماء أوراق العمل من ملف قوانيـن القائمة المنسدلة ، يمكنك إضافة بادئة or لاحقة لأسماء الأوراق أيضًا. 

4. بعد تحديد الإعدادات ، انقر فوق OK، وتم تقسيم البيانات المحددة إلى أوراق عمل متعددة لمصنف جديد كل 5 صفوف. ويتم إدراج الرؤوس لكل ورقة عمل جديدة. انظر لقطة الشاشة:

ملاحظات: لتطبيق هذه الميزة من فضلك قم بتنزيل وتثبيت Kutools لبرنامج Excel لأول مرة.

مقالات ذات صلة:

  • تقسيم البيانات إلى أوراق عمل متعددة على أساس العمود
  • لنفترض أن لديك ورقة عمل تحتوي على صفوف ضخمة من البيانات، والآن، تحتاج إلى تقسيم البيانات إلى أوراق عمل متعددة بناءً على عمود الاسم (انظر لقطة الشاشة التالية)، ويتم إدخال الأسماء بشكل عشوائي. ربما يمكنك فرزها أولاً، ثم نسخها ولصقها واحدة تلو الأخرى في أوراق العمل الجديدة الأخرى. لكن هذا سيحتاج إلى صبرك للنسخ واللصق بشكل متكرر. واليوم سأتحدث عن بعض الحيل السريعة لحل هذه المهمة.
  • اجمع بين الصفوف المكررة وجمع القيم في Excel
  • في Excel، من السيناريوهات الشائعة مواجهة مجموعة بيانات تحتوي على إدخالات مكررة. في كثير من الأحيان، قد تجد نفسك مع مجموعة من البيانات حيث يتمثل التحدي الرئيسي في الجمع بين هذه الصفوف المكررة بكفاءة مع تلخيص القيم في العمود المقابل في نفس الوقت كما هو موضح في لقطة الشاشة التالية. في هذا السياق، سنتعمق في العديد من الأساليب العملية التي يمكن أن تساعدك على دمج البيانات المكررة وتجميع القيم المرتبطة بها، مما يعزز وضوح وفائدة مصنفات Excel الخاصة بك.
  • دمج جدولين أو أكثر في جدول واحد بناءً على الأعمدة الرئيسية
  • لنفترض أن لديك ثلاثة جداول في مصنف ، الآن ، تريد دمج هذه الجداول في جدول واحد بناءً على أعمدة المفاتيح المقابلة للحصول على النتيجة كما هو موضح أدناه لقطة الشاشة. قد تكون هذه مهمة مزعجة لمعظمنا ، ولكن ، من فضلك لا تقلق ، هذه المقالة ، سأقدم بعض الطرق لحل هذه المشكلة.

أفضل أدوات إنتاجية المكتب

🤖 مساعد Kutools AI: إحداث ثورة في تحليل البيانات على أساس: التنفيذ الذكي   |  إنشاء التعليمات البرمجية  |  إنشاء صيغ مخصصة  |  تحليل البيانات وإنشاء الرسوم البيانية  |  استدعاء وظائف Kutools...
الميزات الشعبية: البحث عن التكرارات أو تمييزها أو تحديدها   |  حذف الصفوف الفارغة   |  دمج الأعمدة أو الخلايا دون فقدان البيانات   |   جولة بدون صيغة 
سوبر بحث: معايير متعددة VLookup    VLookup ذات القيمة المتعددة  |   VLookup عبر أوراق متعددة   |   بحث غامض ....
قائمة منسدلة متقدمة: إنشاء القائمة المنسدلة بسرعة   |  القائمة المنسدلة التابعة   |  قائمة منسدلة متعددة التحديد ....
مدير العمود: إضافة عدد محدد من الأعمدة  |  نقل الأعمدة  |  تبديل حالة رؤية الأعمدة المخفية  |  مقارنة النطاقات والأعمدة 
الميزات المميزة: التركيز على الشبكة   |  عرض تصميم   |   شريط الفورمولا الكبير    مدير المصنفات والأوراق   |  مكتبة الموارد (النص السيارات)   |  منتقي التاريخ   |  اجمع أوراق العمل   |  تشفير/فك تشفير الخلايا    إرسال رسائل البريد الإلكتروني عن طريق القائمة   |  سوبر تصفية   |   مرشح خاص (تصفية غامق / مائل / يتوسطه خط ...) ...
أفضل 15 مجموعة أدوات12 نص الأدوات (إضافة نص, إزالة الأحرف، ...)   |   +50 رسم الأنواع (مخطط جانت، ...)   |   40+ عملي الصيغ (احسب العمر على أساس تاريخ الميلاد، ...)   |   19 إدخال الأدوات (أدخل رمز الاستجابة السريعة, إدراج صورة من المسار، ...)   |   12 تحويل الأدوات (أرقام إلى كلمات, نتيجة تحويل عملة، ...)   |   7 دمج وتقسيم الأدوات (الجمع بين الصفوف المتقدمة, تقسيم الخلايا، ...)   |   ... و اكثر

عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت.  انقر هنا للحصول على الميزة التي تحتاجها أكثر...

الوصف


يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
Comments (25)
Rated 5 out of 5 · 1 ratings
This comment was minimized by the moderator on the site
Very useful thank u so much
This comment was minimized by the moderator on the site
Its awesome!
Rated 5 out of 5
This comment was minimized by the moderator on the site
But header is not retaining in the output. Please guide me if any solution.
This comment was minimized by the moderator on the site
Can we split this same data but by using a code in php?
This comment was minimized by the moderator on the site
U are the savior my brother. Take love from Bangladesh <3 
This comment was minimized by the moderator on the site
Is there a way to keep the header across all worksheet?
For example, row 1 is the column names and row 2 to row 51 are my data. When I split it into 10 worksheets, I hope to have row 1 be the header and row 2-6 be the data.
This comment was minimized by the moderator on the site
this was very helpful. thank you
This comment was minimized by the moderator on the site
I have 20 million data in excel. I need to segregate it with first 2500 rows followed by 250 data so on. How can I do it quickly.
This comment was minimized by the moderator on the site
Minmatar detected :O
This comment was minimized by the moderator on the site
thank you. saved a lot of my time.
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations