نصيحة: اللغات الأخرى مترجمة من قبل Google. يمكنك زيارة English نسخة من هذا الرابط.
تسجيل الدخول
x
or
x
x
التسجيل
x

or

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

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


DOC-تقسيم البيانات تلو rows1


-2



DOC-تقسيم البيانات تلو rows2
DOC-تقسيم البيانات تلو rows3
DOC-تقسيم البيانات تلو rows4
DOC-تقسيم البيانات تلو rows5

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

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


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


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

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

2. انقر إدراج > وحدة، ولصق التعليمة البرمجية التالية في إطار الوحدة النمطية.

فبا: تقسيم البيانات إلى أوراق حسب الصفوف في إكسيل.

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، ويتم تقسيم النطاق إلى أوراق متعددة من قبل عدد الصفوف.

ملاحظة:: يتم وضع أوراق العمل المقسمة في الجزء الخلفي من ورقة العمل الرئيسية.


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

لا يمكن إلا أن التعليمات البرمجية المذكورة أعلاه تقسيم البيانات من قبل عدد الصفوف المحددة، وأنها لن تضيف العنوان لكل بيانات ورقة العمل إذا كان البيانات الخاصة بك العنوان.

ولكن مع كوتولس ل إكسيلالصورة تقسيم البيانات، لا يمكنك فقط إدراج الرؤوس لكل بيانات ورقة عمل، ولكن يمكنك أيضا تحديد أسماء أوراق العمل الانقسام الجديدة.

كوتولس ل إكسيل يتضمن أكثر من أدوات إكسوم إكسيل مفيد. مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. احصل عليه الآن

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

1. حدد نطاق البيانات التي تريد تقسيمها.

2. انقر مشروع > أدوات ورقة العمل > تقسيم البيانات (أو مشروع > تقسيم البيانات )، انظر الصورة:

DOC-تقسيم البيانات تلو rows6

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

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

DOC-تقسيم البيانات تلو rows7

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

DOC-تقسيم البيانات تلو rows8

انقر لمعرفة المزيد حول هذه الميزة تقسيم البيانات.

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

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



أدوات الإنتاجية الموصى بها

تبويب أوفيس

الذهب ستارسنومك يمكنك جلب علامات التبويب المفيدة إلى إكسيل وبرامج أوفيس الأخرى، تماما مثل كروم و فيريفوكس و إنترنيت إكسبلورر الجديد.

كوتولس ل إكسيل

الذهب ستارسنومك رائعة حقا! زيادة الإنتاجية في دقائق شنومكس. لا تحتاج إلى أي مهارات خاصة، حفظ ساعتين كل يوم!

الذهب ستارسنومك شنومكس ميزات جديدة ل إكسيل، جعل اكسل بكثير سهلة وقوية:

  • دمج الخلية / الصفوف / الأعمدة دون فقدان البيانات.
  • الجمع بين وتوثيق جداول متعددة و المصنفات.
  • مقارنة نطاقات، نسخ نطاقات متعددة، تحويل النص إلى التاريخ، وحدة وتحويل العملات.
  • العد بالألوان، الترحيل الفرعي الفرعي، فرز متقدم وفائق تصفية،
  • المزيد تحديد / إدراج / حذف / نص / تنسيق / رابط / تعليق / المصنفات / أدوات أوراق العمل ...

لقطة شاشة كوتولس ل إكسيل

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?