كيفية إنشاء أوراق جديدة لكل صف في Excel؟
لنفترض أن لديك جدول درجات يحتوي على جميع أسماء الطالب في العمود "أ". الآن تريد إنشاء أوراق جديدة بناءً على هذه الأسماء في العمود A ، وجعل كل ورقة تحتوي على بيانات طالب فريدة. أو قم فقط بإنشاء ورقة جديدة لكل صف في الجدول دون مراعاة الأسماء الموجودة في العمود A. في هذا الفيديو ، ستحصل على طرق لتحقيق ذلك.
قم بإنشاء أوراق جديدة لكل صف برمز VBA
قم بإنشاء أوراق جديدة لكل صف باستخدام الأداة المساعدة Split Data الخاصة بـ Kutools for Excel
قم بإنشاء أوراق جديدة لكل صف برمز VBA
باستخدام الرموز التالية ، يمكنك إنشاء ورقة جديدة استنادًا إلى قيم الأعمدة ، أو إنشاء أوراق جديدة فقط لكل صف في Excel.
1. صحافة قديم + F11 مفاتيح في نفس الوقت لفتح ميكروسوفت فيسوال باسيك للتطبيقات نافذة.
2. في ال ميكروسوفت فيسوال باسيك للتطبيقات الإطار، انقر فوق إدراج > وحدة. ثم الصق الكود التالي في ملف وحدة نافذة.
كود فبا: أنشئ ورقة جديدة لكل صف على أساس العمود
Sub parse_data()
'Update by Extendoffice 2018/3/2
Dim xRCount As Long
Dim xSht As Worksheet
Dim xNSht As Worksheet
Dim I As Long
Dim xTRrow As Integer
Dim xCol As New Collection
Dim xTitle As String
Dim xSUpdate As Boolean
Set xSht = ActiveSheet
On Error Resume Next
xRCount = xSht.Cells(xSht.Rows.Count, 1).End(xlUp).Row
xTitle = "A1:C1"
xTRrow = xSht.Range(xTitle).Cells(1).Row
For I = 2 To xRCount
Call xCol.Add(xSht.Cells(I, 1).Text, xSht.Cells(I, 1).Text)
Next
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = False
For I = 1 To xCol.Count
Call xSht.Range(xTitle).AutoFilter(1, CStr(xCol.Item(I)))
Set xNSht = Nothing
Set xNSht = Worksheets(CStr(xCol.Item(I)))
If xNSht Is Nothing Then
Set xNSht = Worksheets.Add(, Sheets(Sheets.Count))
xNSht.Name = CStr(xCol.Item(I))
Else
xNSht.Move , Sheets(Sheets.Count)
End If
xSht.Range("A" & xTRrow & ":A" & xRCount).EntireRow.Copy xNSht.Range("A1")
xNSht.Columns.AutoFit
Next
xSht.AutoFilterMode = False
xSht.Activate
Application.ScreenUpdating = xSUpdate
End Sub
ملاحظات: A1: C1 هو نطاق عنوان الجدول الخاص بك. يمكنك تغييره بناءً على احتياجاتك.
3. صحافة F5 المفتاح لتشغيل الكود ، ثم يتم إنشاء أوراق عمل جديدة بعد جميع أوراق العمل الخاصة بالمصنف الحالي على النحو التالي لقطة الشاشة:
إذا كنت ترغب في إنشاء أوراق جديدة مباشرة لكل صف دون مراعاة قيمة العمود ، يمكنك استخدام الكود التالي.
كود فبا: أنشئ مباشرة ورقة جديدة لكل صف
Sub RowToSheet()
Dim xRow As Long
Dim I As Long
With ActiveSheet
xRow = .Range("A" & Rows.Count).End(xlUp).Row
For I = 1 To xRow
Worksheets.Add(, Sheets(Sheets.Count)).Name = "Row " & I
.Rows(I).Copy Sheets("Row " & I).Range("A1")
Next I
End With
End Sub
بعد تشغيل الكود ، سيتم وضع كل صف في ورقة العمل النشطة في ورقة عمل جديدة.
ملاحظات: سيتم أيضًا وضع صف العنوان في ورقة جديدة برمز VBA هذا.
قم بإنشاء أوراق جديدة لكل صف باستخدام الأداة المساعدة Split Data الخاصة بـ Kutools for Excel
في الواقع ، الطريقة المذكورة أعلاه معقدة ويصعب فهمها. في هذا القسم ، نقدم لك ملف تقسيم البيانات فائدة كوتولس ل إكسيل.
قبل التطبيق كوتولس ل إكسيلالرجاء قم بتنزيله وتثبيته أولاً.
1. حدد الجدول الذي تريد استخدامه لإنشاء أوراق جديدة ، ثم انقر فوق كوتولس بلس> بيانات البصاق. انظر لقطة الشاشة:
2. في ال تقسيم البيانات إلى أوراق عمل متعددة مربع الحوار ، الرجاء القيام بما يلي.
أ. لإنشاء أوراق جديدة بناءً على قيمة العمود:
ب. لإنشاء أوراق جديدة مباشرة لكل صف:
يتم إنشاء مصنف جديد مع كل الأوراق الجديدة بداخله. انظر لقطات أدناه.
إنشاء أوراق جديدة لكل صف بناءً على قيمة العمود:
إنشاء ورقة جديدة لكل صف دون مراعاة قيمة العمود:
إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30 يومًا) من هذه الأداة المساعدة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.
قم بإنشاء أوراق جديدة لكل صف باستخدام الأداة المساعدة Split Data الخاصة بـ Kutools for Excel
أفضل أدوات إنتاجية المكتب
عزز مهاراتك في Excel باستخدام Kutools for Excel، واختبر كفاءة لم يسبق لها مثيل. يقدم Kutools for Excel أكثر من 300 ميزة متقدمة لتعزيز الإنتاجية وتوفير الوقت. انقر هنا للحصول على الميزة التي تحتاجها أكثر...
يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير
- تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
- فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
- يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!