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

أ. لإنشاء أوراق جديدة بناءً على قيمة العمود:

ب. لإنشاء أوراق جديدة مباشرة لكل صف:

يتم إنشاء مصنف جديد مع كل الأوراق الجديدة بداخله. انظر لقطات أدناه.

إنشاء أوراق جديدة لكل صف بناءً على قيمة العمود:

إنشاء ورقة جديدة لكل صف دون مراعاة قيمة العمود:

قم بإنشاء أوراق جديدة لكل صف باستخدام الأداة المساعدة Split Data الخاصة بـ Kutools for Excel

---

أفضل أدوات إنتاجية المكتب

Kutools for Excel يحل معظم مشاكلك ويزيد إنتاجيتك بنسبة 80٪

• إعادة استخدام: أدخل بسرعة الصيغ المعقدة والرسوم البيانية وأي شيء استخدمته من قبل ؛ تشفير الخلايا مع كلمة السر إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني ...
• سوبر فورميولا بار (بسهولة تحرير أسطر متعددة من النص والصيغة) ؛ تخطيط القراءة (قراءة وتحرير أعداد كبيرة من الخلايا بسهولة) ؛ لصق في النطاق المصفى
• دمج الخلايا / الصفوف / الأعمدة دون فقدان البيانات ؛ تقسيم محتوى الخلايا ؛ ادمج الصفوف / الأعمدة المكررة... منع تكرار الخلايا؛ قارن النطاقات
• حدد مكرر أو فريد صفوف حدد صفوف فارغة (جميع الخلايا فارغة) ؛ البحث الفائق والبحث الغامض في العديد من المصنفات. تحديد عشوائي ...
• نسخة طبق الأصل خلايا متعددة بدون تغيير مرجع الصيغة ؛ إنشاء المراجع تلقائيًا إلى أوراق متعددة أدخل الرموز النقطية، مربعات الاختيار والمزيد ...
• استخراج النص، إضافة نص ، إزالة حسب الموضع ، إزالة الفضاء؛ إنشاء وطباعة المجاميع الفرعية لترحيل الصفحات ؛ التحويل بين محتوى الخلايا والتعليقات
• سوبر تصفية (حفظ وتطبيق مخططات التصفية على أوراق أخرى) ؛ فرز متقدم حسب الشهر / الأسبوع / اليوم ، التكرار والمزيد ؛ مرشح خاص بواسطة bold، italic ...
• اجمع بين المصنفات وأوراق العمل؛ دمج الجداول على أساس الأعمدة الرئيسية ؛ تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls و xlsx و PDF
• أكثر من 300 ميزة قوية. يدعم Office / Excel 2007-2021 و 365. يدعم جميع اللغات. سهولة النشر في مؤسستك أو مؤسستك. الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا. ضمان استرداد الأموال لمدة 60 يومًا.

اقرأ أكثر... تحميل مجاني ... شراء... 

---

يجلب Office Tab الواجهة المبوبة إلى Office ، ويجعل عملك أسهل بكثير

• تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
• فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
• يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!

اقرأ أكثر... تحميل مجاني ... شراء...