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

or

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

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

تقسيم بيانات doc بواسطة الأعمدة 1

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

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


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

إذا كنت تريد تقسيم ورقة عمل كبيرة إلى أوراق متعددة استنادًا إلى بيانات عمود محدد أو عدد الصفوف ، فإن كوتولس ل إكسيل's تقسيم البيانات ميزة يمكن أن تساعدك على حل هذه المهمة بسرعة وسهولة.

تقسيم بيانات doc بواسطة الأعمدة 6

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


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


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

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

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

Sub Splitdatabycol()
Dim lr As Long
Dim ws As Worksheet
Dim vcol, i As Integer
Dim icol As Long
Dim myarr As Variant
Dim title As String
Dim titlerow As Integer
Dim xTRg As Range
Dim xVRg As Range
Dim xWSTRg As Worksheet
On Error Resume Next
Set xTRg = Application.InputBox("Please select the header rows:", "Kutools for Excel", "", Type:=8)
If TypeName(xTRg) = "Nothing" Then Exit Sub
Set xVRg = Application.InputBox("Please select the column you want to split data based on:", "Kutools for Excel", "", Type:=8)
If TypeName(xVRg) = "Nothing" Then Exit Sub
vcol = xVRg.Column
Set ws = xTRg.Worksheet
lr = ws.Cells(ws.Rows.Count, vcol).End(xlUp).Row
title = xTRg.AddressLocal
titlerow = xTRg.Cells(1).Row
icol = ws.Columns.Count
ws.Cells(1, icol) = "Unique"
Application.DisplayAlerts = False
If Not Evaluate("=ISREF('xTRgWs_Sheet!A1')") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
Else
Sheets("xTRgWs_Sheet").Delete
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = "xTRgWs_Sheet"
End If
Set xWSTRg = Sheets("xTRgWs_Sheet")
xTRg.Copy
xWSTRg.Paste Destination:=xWSTRg.Range("A1")
ws.Activate
For i = (titlerow + xTRg.Rows.Count) To lr
On Error Resume Next
If ws.Cells(i, vcol) <> "" And Application.WorksheetFunction.Match(ws.Cells(i, vcol), ws.Columns(icol), 0) = 0 Then
ws.Cells(ws.Rows.Count, icol).End(xlUp).Offset(1) = ws.Cells(i, vcol)
End If
Next
myarr = Application.WorksheetFunction.Transpose(ws.Columns(icol).SpecialCells(xlCellTypeConstants))
ws.Columns(icol).Clear
For i = 2 To UBound(myarr)
ws.Range(title).AutoFilter field:=vcol, Criteria1:=myarr(i) & ""
If Not Evaluate("=ISREF('" & myarr(i) & "'!A1)") Then
Sheets.Add(after:=Worksheets(Worksheets.Count)).Name = myarr(i) & ""
Else
Sheets(myarr(i) & "").Move after:=Worksheets(Worksheets.Count)
End If
xWSTRg.Range(title).Copy
Sheets(myarr(i) & "").Paste Destination:=Sheets(myarr(i) & "").Range("A1")
ws.Range("A" & (titlerow + xTRg.Rows.Count) & ":A" & lr).EntireRow.Copy Sheets(myarr(i) & "").Range("A" & (titlerow + xTRg.Rows.Count))
Sheets(myarr(i) & "").Columns.AutoFit
Next
xWSTRg.Delete
ws.AutoFilterMode = False
ws.Activate
Application.DisplayAlerts = True
End Sub

3. ثم اضغط F5 مفتاح لتشغيل التعليمات البرمجية ، وظهر مربع مطالبة لتذكيرك بتحديد صف الرأس ، انظر لقطة الشاشة:

تقسيم بيانات doc بواسطة الأعمدة 7

4. ثم انقر فوق OK زر ، وفي مربع المطالبة الثاني ، يرجى تحديد بيانات العمود التي تريد تقسيمها استنادًا إلى ، راجع لقطة الشاشة:

تقسيم بيانات doc بواسطة الأعمدة 8

5. ثم اضغط OK، ويتم تقسيم جميع البيانات في ورقة العمل النشطة إلى أوراق عمل متعددة حسب قيمة العمود. ويتم تسمية أوراق العمل المقسمة بأسماء الخلايا المنقسمة. انظر لقطة للشاشة:

تقسيم بيانات doc بواسطة الأعمدة 2

ملاحظة:: يتم وضع أوراق العمل المقسمة في نهاية المصنف حيث توجد ورقة العمل الرئيسية.


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

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

هنا، وسوف أعرض لكم أداة متعددة الوظائف -كوتولس ل إكسيل، في تقسيم البيانات فائدة ليس فقط يمكن أن تساعدك على تقسيم البيانات إلى أوراق عمل متعددة على أساس العمود، ولكن أيضا يمكن تقسيم البيانات حسب عدد الصفوف.

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

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

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

2. انقر كوتولس بلاس > ورقة العمل > تقسيم البيانات، انظر الصورة:

تقسيم بيانات doc بواسطة الأعمدة 3

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

1). تحديد عمود محدد الخيار في تقسيم على أساس ، واختيار قيمة العمود الذي تريد تقسيم البيانات استنادا إليه في القائمة المنسدلة. (إذا كانت بياناتك تحتوي على رؤوس وتريد إدراجها في كل ورقة عمل تقسيم جديدة، يرجى التحقق من ذلك تحتوي بياناتي على رؤوس اختيار.)

2). ثم يمكنك تحديد أسماء ورقة العمل تقسيم، تحت اسم أوراق العمل الجديدة ، حدد قواعد أسماء أوراق العمل من قواعد القائمة المنسدلة، يمكنك إضافة بادئة or لاحقة لأسماء الورقة كذلك.

3). انقر على OK زر. انظر لقطة الشاشة:

تقسيم بيانات doc بواسطة الأعمدة 4

4. الآن يتم تقسيم البيانات إلى أوراق عمل متعددة في مصنف جديد.

تقسيم بيانات doc بواسطة الأعمدة 5

انقر لتحميل كوتولس ل إكسيل ونسخة تجريبية مجانية الآن!


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

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


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

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



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

تبويب أوفيس

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

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

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

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

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

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

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.
    snow-raven · 7 months ago
    Easiest bit of code stealing I've ever done. Thank you for sharing this incredible tool!
  • To post as a guest, your comment is unpublished.
    Kriti · 7 months ago
    I have my tittle from A1 to X3, I updated title in code but still getting only one row in title.
  • To post as a guest, your comment is unpublished.
    Andreas · 7 months ago
    Works perfectly, thanks :)
    Is there maybe a possibility to apply this to previously filtered data only as well? I´m having a hard time figuring out the VBA code on my own.
    I appreciate any help :)
  • To post as a guest, your comment is unpublished.
    phillipa hatt · 7 months ago
    I can not sort this data at all, i've used this quite a few times in the past but it doesn't seem to be working anymore, it is bringing up new sheets up but they blank. please help!!!
    • To post as a guest, your comment is unpublished.
      Andreas · 7 months ago
      How long are your titles? Because some of mine were longer than 31 characters and returned empty sheets as well.
  • To post as a guest, your comment is unpublished.
    Jiji · 7 months ago
    thank you so much