تقسيم تقسيم البيانات إلى ورقات عمل متعددة حسب عدد الصفوف في Excel
يمكن أن يُسهّل تقسيم نطاق بيانات كبير بكفاءة إلى أوراق عمل Excel متعددة—استنادًا إلى عدد معيّن من الصفوف—إدارة البيانات بشكلٍ مبسط. فعلى سبيل المثال، يُصبح التعامل مع مجموعة البيانات وتنظيمها أكثر سهولة عند تقسيمها كل 5 صفوف إلى أوراق منفصلة. ويقدّم هذا الدليل طريقتين عمليتين لإتمام هذه المهمة بسرعة وسهولة.
تقسيم تقسيم البيانات إلى ورقات عمل متعددة حسب عدد الصفوف باستخدام كود VBA
تقسيم تقسيم البيانات إلى ورقات عمل متعددة حسب عدد الصفوف باستخدام Kutools لـ Excel
تقسيم البيانات إلى ورقات عمل متعددة حسب عدد الصفوف باستخدام كود VBA
يمكن أن يساعدك كود VBA التالي في تقسيم الصفوف إلى أوراق عمل متعددة حسب عدد الصفوف، اتبع الخطوات التالية:
1. اضغط باستمرار على مفتاحَيALT + F11 لفتح نافذةMicrosoft Visual Basic for Applications.
2. انقرإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذة الوحدة النمطية.
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. بعد ذلك، انقرموافق، ثم في مربع الإدخال الثاني، حدد نطاق البيانات الذي تريد تقسيمه حسب عدد الصفوف. انظر لقطة الشاشة:
5. استمر في النقر على زرموافق، ثم في مربع الإدخال الثالث، أدخل عدد الصفوف الذي تريد التقسيم بناءً عليه. انظر لقطة الشاشة:
6. بعد ذلك، انقر على زرموافق. ستُقسَّم البيانات تلقائيًا إلى أوراق عمل متعددة استنادًا إلى عدد الصفوف. انظر لقطة الشاشة:
تقسيم تقسيم البيانات إلى ورقات عمل متعددة حسب عدد الصفوف باستخدام Kutools لـ Excel
إذا وجدت أن كود VBA معقّد، فإنKutools لـ Excelيوفّر لك حلاً سريعًا وبديهيًّا لمعالجة مشكلة تقسيم البيانات بكفاءة. فميزةتقسيم البياناتهذه تبسّط عملية التشغيل بشكل كبير، وتتيح للمستخدمين من جميع مستويات المهارة تقسيم مجموعات البيانات الكبيرة بسهولة إلى أوراق عمل متعددة—دون الحاجة إلى أي خبرة برمجية متقدمة—ما يُسهّل إدارة البيانات بفعالية.
إذا كنت قد ثبّتَّKutools لـ Excel، فافعل ما يلي:
1. حدد نطاق البيانات الذي تريد تقسيمه، ثم انقرKUTOOLS PLUS > تقسيم البيانات. انظر لقطة الشاشة:
3. في مربع حوارتقسيم البيانات إلى ورقات عمل متعددة:
- حددالقيمة الثابتةمن خيارأساس التقسيم، ثم أدخل عدد الصفوف التي ترغب في تقسيمها لكل ورقة عمل.
- إذا كانت بياناتك تحتوي على رؤوس (عناوين أعمدة) وتريد إدراجها في كل ورقة عمل جديدة بعد التقسيم، ففعّل خيارتشمل العناوين. ()تلميح: يمكنك إدخال عدد صفوف الرؤوس بناءً على بياناتك.)
- بعد ذلك، ضمن قسماسم ورقات العمل المنشأة، يمكنك تحديد اسم ورقة العمل التقسيم، واختيار قواعد تسمية ورقة العمل من القائمة المنسدلةالقواعد، كما يمكنك إضافةبادئةأولاحقةإلى أسماء الأوراق.
4. بعد تحديد الإعدادات، انقرموافق، وسيتم تقسيم البيانات إلى أوراق عمل متعددة في ورقة عمل جديدة كل 5 صفوف، مع إدراج الرؤوس تلقائيًا في كل ورقة عمل جديدة. انظر لقطة الشاشة:
مقالات ذات صلة:
- استنادًا إلى العمود
- لنفترض أن لديك ورقة عمل تحتوي على صفوف ضخمة من البيانات، وتحتاج الآن إلى تقسيمها إلى أوراق عمل متعددة بناءً على عمود «الاسم» (كما في لقطة الشاشة التالية)، حيث تم إدخال الأسماء بشكل عشوائي. قد تفكر في فرز البيانات أولًا، ثم نسخ كل مجموعة ولصقها يدويًّا في أوراق عمل جديدة واحدة تلو الأخرى — لكن هذا الأسلوب يتطلب صبرًا كبيرًا وتكرارًا مملًّا لعمليات النسخ واللصق. لحسن الحظ، سأعرض عليك اليوم بعض الحيل الذكية والسريعة التي تُنجز هذه المهمة بكفاءة وسهولة!
- دمج صف مكرر وجمع القيم في Excel
- في Excel، يُعدّ وجود مجموعة بيانات تحتوي على إدخالات مكررة سيناريوً شائعًا. غالبًا ما تجد نفسك أمام نطاق من البيانات تكون فيه التحديّة الرئيسية هي دمج الصفوف المكررة بكفاءة مع جمع القيم في العمود المقابل في الوقت نفسه، كما يظهر في لقطة الشاشة التالية. وفي هذا السياق، سنستعرض عدة طرق عملية تساعدك على توحيد البيانات المكررة وتجميع القيم المرتبطة بها، مما يعزز وضوح ملفك ومدى فائدته في Excel.
- دمج جدولين أو أكثر في جدول واحد استنادًا إلى العمود الرئيسي
- لنفترض أن لديك ثلاثة جداول في مصنف واحد، وترغب الآن في دمجها في جدول واحد استنادًا إلى العمود الرئيسي المقابل للحصول على النتيجة الموضحة في لقطة الشاشة أدناه. قد تبدو هذه المهمة صعبة لمعظمنا، لكن لا داعي للقلق؛ ففي هذه المقالة، سأعرض بعض الطرق الفعّالة لحل هذه المشكلة.
أفضل أدوات الإنتاجية لمكتبتك
عزِّز مهاراتك في Excel باستخدام Kutools لـ Excel، وعايش الكفاءة كما لم تفعل من قبل.يقدّم Kutools لـ Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية ووقت الحفظ.انقر هنا للحصول على الميزة التي تحتاجها أكثر من غيرها...
يجلب Office Tab واجهة ذات علامات تبويب إلى Office، ويجعل عملك أسهل بكثير
- تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، وPublisher وAccess وVisio وProject.
- افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
- يزيد إنتاجيتك بنسبة 50% ويوفّر لك مئات نقرات الفأرة كل يوم!
جميع الإضافات من Kutools في برنامج تثبيت واحد!
Kutools for Office حزمةٌ تحتوي على إضافاتٍ مخصصة لتطبيقات Excel وWord وOutlook وPowerPoint، إلى جانب Office Tab Pro، مما يجعلها الخيار المثالي للفِرق التي تعمل عبر تطبيقات Office.
- حزمة شاملة واحدة— إضافات Excel وWord وOutlook وPowerPoint بالإضافة إلى Office Tab Pro
- برنامج تثبيت واحد، ترخيص واحد— الإعداد خلال دقائق (جاهز لـ MSI)
- يعمل بشكل أفضل معًا— إنتاجية ميسَّرة عبر تطبيقات Office
- تجربة مجانية لمدة 30 يومًا بكامل الميزات— بدون تسجيل، بدون بطاقة ائتمان
- أفضل قيمة— وفِّر مقارنةً بشراء الإضافات بشكل منفصل