كيفية تقسيم البيانات إلى أوراق عمل متعددة استنادا إلى العمود في إكسيل؟
لنفترض أن لديك ورقة عمل مع صفوف ضخمة من البيانات، والآن، تحتاج إلى تقسيم البيانات إلى أوراق عمل متعددة على أساس الاسم العمود (انظر الصورة التالية) ، ويتم إدخال الأسماء بشكل عشوائي. ربما يمكنك فرزها أولاً ، ثم نسخها ولصقها واحدة تلو الأخرى في أوراق عمل جديدة أخرى. لكن هذا سيحتاج إلى صبرك للنسخ واللصق مرارًا وتكرارًا. اليوم ، سأتحدث عن بعض الحيل السريعة لحل هذه المهمة.
تقسيم البيانات إلى أوراق عمل متعددة استنادا إلى عمود مع التعليمات البرمجية فبا
تقسيم البيانات إلى أوراق عمل متعددة استنادا إلى عمود مع كوتولس ل إكسيل
تقسيم البيانات إلى أوراق عمل متعددة استنادًا إلى عدد عمود أو صفوف محددة في ورقة العمل:
إذا كنت تريد تقسيم ورقة عمل كبيرة إلى أوراق متعددة استنادًا إلى بيانات عمود محدد أو عدد الصفوف ، فإن كوتولس ل إكسيل's تقسيم البيانات ميزة يمكن أن تساعدك على حل هذه المهمة بسرعة وسهولة. كوتولس ل إكسيل: مع أكثر من شنومكس مفيد اكسل الإضافية، مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تحميل وتجريبية مجانية الآن! |
تقسيم البيانات إلى أوراق عمل متعددة استنادا إلى عمود مع التعليمات البرمجية فبا
إذا كنت ترغب في تقسيم البيانات على أساس قيمة العمود بسرعة وتلقائيا، رمز فبا التالي هو خيار جيد. يرجى القيام بذلك على النحو التالي:
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. الآن يتم تقسيم البيانات إلى أوراق عمل متعددة في مصنف جديد.
انقر لتحميل كوتولس ل إكسيل ونسخة تجريبية مجانية الآن!
تقسيم البيانات إلى أوراق عمل متعددة استنادا إلى عمود مع كوتولس ل إكسيل
كوتولس ل إكسيل يتضمن أكثر من أدوات إكسوم إكسيل مفيد. مجانا في محاولة مع عدم وجود قيود في أيام شنومكس. تنزيل النسخة التجريبية المجانية الآن!
مقالة ذات صلة:
كيفية تقسيم البيانات إلى أوراق عمل متعددة حسب عدد الصفوف؟
أدوات الإنتاجية الموصى بها
تبويب أوفيس
يمكنك جلب علامات التبويب المفيدة إلى إكسيل وبرامج أوفيس الأخرى، تماما مثل كروم و فيريفوكس و إنترنيت إكسبلورر الجديد.
كوتولس ل إكسيل
رائعة حقا! زيادة الإنتاجية في دقائق شنومكس. لا تحتاج إلى أي مهارات خاصة، حفظ ساعتين كل يوم!
شنومكس ميزات جديدة ل إكسيل، جعل اكسل بكثير سهلة وقوية:
- دمج الخلية / الصفوف / الأعمدة دون فقدان البيانات.
- الجمع بين وتوثيق جداول متعددة و المصنفات.
- مقارنة نطاقات، نسخ نطاقات متعددة، تحويل النص إلى التاريخ، وحدة وتحويل العملات.
- العد بالألوان، الترحيل الفرعي الفرعي، فرز متقدم وفائق تصفية،
- المزيد تحديد / إدراج / حذف / نص / تنسيق / رابط / تعليق / المصنفات / أدوات أوراق العمل ...
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
- ← Previous
- ...
- ...
- Next →