تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف في إكسيل
يمكن أن يؤدي تقسيم نطاق بيانات كبير بكفاءة إلى أوراق عمل 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 معقد، كوتولس ل إكسيل يقدم حلاً سريعًا وبديهيًا لمعالجة مشكلة تقسيم البيانات بكفاءة. هذا تقسيم البيانات تعمل هذه الميزة على تبسيط عملية التشغيل، مما يسمح للمستخدمين من أي مستوى مهارة بتقسيم مجموعات البيانات الكبيرة بسهولة إلى أوراق عمل متعددة دون الحاجة إلى معرفة برمجية متعمقة، مما يسهل الإدارة الفعالة للبيانات.
إذا كنت قد قمت بتثبيت كوتولس ل إكسيليرجى القيام بما يلي:
1. حدد نطاق البيانات التي تريد تقسيمها. ثم انقر فوق كوتولس بلس > تقسيم البيانات، انظر لقطة الشاشة:
3. في تقسيم البيانات إلى أوراق عمل متعددة صندوق المحادثة:
- أختار صفوف ثابتة تبدأ من انقسام على أساس الخيار، وأدخل عدد الصفوف التي تريد تقسيمها لكل ورقة عمل.
- إذا كانت بياناتك تحتوي على رؤوس وتريد إدراجها في كل ورقة عمل مقسمة جديدة، فيرجى التحقق من ذلك بياناتي لها رؤوس خيار. (معلومه- سرية: يمكنك إدخال عدد صفوف الرعي بناءً على بياناتك.)
- ثم يمكنك تحديد أسماء أوراق العمل المنقسمة ، ضمن ملف اسم أوراق العمل الجديدة ، حدد قواعد أسماء أوراق العمل من ملف قوانيـن القائمة المنسدلة ، يمكنك إضافة بادئة or لاحقة لأسماء الأوراق أيضًا.
4. بعد تحديد الإعدادات ، انقر فوق OK، وتم تقسيم البيانات المحددة إلى أوراق عمل متعددة لمصنف جديد كل 5 صفوف. ويتم إدراج الرؤوس لكل ورقة عمل جديدة. انظر لقطة الشاشة:
مقالات ذات صلة:
- تقسيم البيانات إلى أوراق عمل متعددة على أساس العمود
- لنفترض أن لديك ورقة عمل تحتوي على صفوف ضخمة من البيانات، والآن، تحتاج إلى تقسيم البيانات إلى أوراق عمل متعددة بناءً على عمود الاسم (انظر لقطة الشاشة التالية)، ويتم إدخال الأسماء بشكل عشوائي. ربما يمكنك فرزها أولاً، ثم نسخها ولصقها واحدة تلو الأخرى في أوراق العمل الجديدة الأخرى. لكن هذا سيحتاج إلى صبرك للنسخ واللصق بشكل متكرر. واليوم سأتحدث عن بعض الحيل السريعة لحل هذه المهمة.
- اجمع بين الصفوف المكررة وجمع القيم في Excel
- في Excel، من السيناريوهات الشائعة مواجهة مجموعة بيانات تحتوي على إدخالات مكررة. في كثير من الأحيان، قد تجد نفسك مع مجموعة من البيانات حيث يتمثل التحدي الرئيسي في الجمع بين هذه الصفوف المكررة بكفاءة مع تلخيص القيم في العمود المقابل في نفس الوقت كما هو موضح في لقطة الشاشة التالية. في هذا السياق، سنتعمق في العديد من الأساليب العملية التي يمكن أن تساعدك على دمج البيانات المكررة وتجميع القيم المرتبطة بها، مما يعزز وضوح وفائدة مصنفات Excel الخاصة بك.
- دمج جدولين أو أكثر في جدول واحد بناءً على الأعمدة الرئيسية
- لنفترض أن لديك ثلاثة جداول في مصنف ، الآن ، تريد دمج هذه الجداول في جدول واحد بناءً على أعمدة المفاتيح المقابلة للحصول على النتيجة كما هو موضح أدناه لقطة الشاشة. قد تكون هذه مهمة مزعجة لمعظمنا ، ولكن ، من فضلك لا تقلق ، هذه المقالة ، سأقدم بعض الطرق لحل هذه المشكلة.
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!