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

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

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

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

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

رائعة حقا! استخدام علامات التبويب الفعالة في Excel مثل Chrome و Firefox و Safari!

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

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 مفتاح لتشغيل التعليمات البرمجية ، وظهر مربع مطالبة لتذكيرك بتحديد صف الرأس ، انظر لقطة الشاشة:

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

تبويب أوفيس

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

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