Note: The other languages of the website are Google-translated. Back to English

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

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

1). الرجاء تحديد عمود محدد الخيار ، وتحديد العمود الذي تريد تقسيم البيانات بناءً عليه في القائمة المنسدلة ؛
2). إذا كنت تريد تسمية أوراق العمل بقيم العمود ، يرجى تحديد قيم العمود في ال قوانيـن قائمة منسدلة؛
3). انقر على OK زر. انظر لقطة الشاشة:

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

1). تحديد صفوف ثابتة الخيار ، أدخل الرقم 1 في الصندوق
2). تحديد أرقام الصفوف من قوانيـن قائمة منسدلة؛
3). انقر على OK زر. انظر لقطة الشاشة:

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

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

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

  إذا كنت ترغب في الحصول على نسخة تجريبية مجانية (30-يوم) من هذه الأداة ، الرجاء الضغط لتنزيلهثم انتقل لتطبيق العملية حسب الخطوات المذكورة أعلاه.

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


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

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

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

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

  • تمكين التحرير والقراءة المبوبة في Word و Excel و PowerPointوالناشر والوصول و Visio والمشروع.
  • فتح وإنشاء مستندات متعددة في علامات تبويب جديدة من نفس النافذة ، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50٪ ، ويقلل مئات النقرات بالماوس كل يوم!
أوفيسيتاب القاع
فرز التعليقات حسب
التعليقات (33)
لا يوجد تقييم. كن أول من يقيم!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أريد إنشاء أوراق عمل بناءً على ملف القالب Myformat الخاص بي وتسميتها وفقًا لبيانات العمود الأول. لقد قمت بتخصيص كود VBA على النحو التالي ، لكنه ينتج عنه الكثير من الأوراق الفارغة. هل يمكنك مساعدتي في التوقف عن إنشاء أوراق فارغة. شكرًا لك. Kumar Sub AddSheets () خلية باهتة كـ Excel.Range Dim wsWithSheetNames كـ Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook لكل خلية في wsWithSheetNames2: ATheets (". أضف بعد: = أوراق ActiveSheet. نوع الإضافة: = _ "C: \ Users \ Dimple \ AppData \ Roaming \ Microsoft \ Templates \ MyFormat.xltx" عند الخطأ ، استئناف ActiveSheet.Name التالي = cell.Value إذا كان Err.Number = 165 ثم Debug.Print cell.Value & "المستخدمة بالفعل كاسم ورقة" End If On Error GoTo 1004 End With Next cell End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا،
أحصل دائمًا على ورقتين لكل إدخال فريد في صف A. اي فكرة لماذا؟ أيضًا ما مدى صعوبة إضافة المبلغ الإجمالي للصفوف التي تنشئها الورقة المُنشأة إلى اسم الورقة مسبقًا. شكرا جزيلا! اسمحوا لي أن أعرف إذا كنت تأخذ التبرعات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أريد استخدام نموذج ملف exel MyFormat لإنشاء أوراق العمل وتسمية أوراق العمل بالبيانات الموجودة في العمود الأول. يعمل رمز VBA التالي بشكل جيد لإنشاء أوراق العمل وفقًا لتنسيق MyFormat. لكنها تولد مئات الأوراق الفارغة على نموذج Excel العادي أيضًا. هل يمكن أن يساعدني بعض الجسم في التوقف عن إنتاج أوراق فارغة زائدة. شكرًا لـ Kumar Sub AddSheets () Dim cell As Excel.Range Dim wsWithSheetNames As Excel.Worksheet Dim wbToAddSheetsTo As Excel.Workbook Set wsWithSheetNames = ActiveSheet Set wbToAddSheetsTo = ActiveWorkbook لكل خلية في wsWithSheetNames.Range ("WithAddSheetsTo. . إضافة بعد: = أوراق ActiveSheet. نوع الإضافة: = _ "C: \ Users \ Dreamline \ AppData \ Roaming \ Microsoft \ Templates \ MyFormat.xltx" عند الخطأ ، استئناف ActiveSheet.Name التالي = cell.Value إذا كان Err.Number = 2 ثم Debug.Print cell.Value & "المستخدمة بالفعل كاسم ورقة" End If On Error GoTo 165 End With Next cell End Sub
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يجب أن تكون أسماء أوراق العمل أقل من ثلاثين حرفًا أو مساوية لها.
ليست معرفة شائعة جدًا ، ولكن بخلاف ذلك ، ستخرج الشفرة ورقة عمل افتراضية "Sheet #" فارغة.

قم بإنشاء ورقة عمل جديدة سيتم تشغيل كود التحليل من خلالها وقم بالإشارة إلى العمود الأول على النحو التالي:
= IF (OR ('Referenced Original'! B1 <> ""، LEN ('Referenced Original'! B1)> 30)، LEFT ('Referenced Original'! B1,30،1)، 'Referenced Original'! BXNUMX)


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



في التعليمات البرمجية لـ VBA ، هل هناك على أي حال لتسمية الأوراق الناتجة من بيانات صف العمود الأول والثاني مجتمعة؟



لذلك بالنسبة لمثالك ، سيتم تسمية الورقة 2 تلقائيًا باسم "linda 100"
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزتي جويس ،
شكرا لك على تعليقك! آمل أن يساعدك برنامج VBA النصي أدناه.

parse_data الفرعية ()
خافت xRCount وطول
خافت xSht كورقة عمل
خافت xNSht كورقة عمل
أنا خافت وطويلة
خافت xTRrow كعدد صحيح
Dim xCol كمجموعة جديدة
خافت xTitle كسلسلة
على خطأ استئناف التالي
Application.ScreenUpdating = خطأ
قم بتعيين xSht = ActiveSheet
xRCount = xSht.UsedRange.End (xlDown) .Row
xTitle = "A1: B1"
xTRrow = xSht.Range (xTitle) .Row
لأني = 2 إلى xRCount
اتصل بـ xCol.Add (CStr (xSht.Cells (I، 1))، CStr (xSht.Cells (I، 1)))
التالى
Debug.Print xCol.Count
بالنسبة إلى I = 1 To xCol.Count
اتصل بـ xSht.Range (xTitle). AutoFilter (1، CStr (xCol.Item (I)))
اضبط xNSht = لا شيء
تعيين xNSht = أوراق العمل (CStr (xCol.Item (I)))
إذا كان xNSht لا شيء إذن
قم بتعيين xNSht = Worksheets.Add (، Sheets (Sheets.Count))
xNSht.Name = CStr (xCol.Item (I) & xSht.Cells (I + 1، 2))
آخر
xNSht.Move، Sheets (Sheets.Count)
إنهاء حالة
xSht.Range ("A" & xTRrow & ": A" & xRCount) .EntireRow.Copy xNSht.Range ("A1")
xNSht.Columns.AutoFit
التالى
xSht.AutoFilterMode = خطأ
xSht.Activate
Application.ScreenUpdating = ترو
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كان هذا مفيدًا للغاية ، فقط ما كنت أبحث عنه. شكرًا!
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا الرمز مفيد للغاية ، وهو ما كنت أبحث عنه تقريبًا.
ولكن هل يمكن تعديله بحيث يكون هناك ورقتان -
الورقة 1 هي البيانات - جدول بيانات مع العمود "أ" الاسم
الورقة 2 عبارة عن قالب به العديد من الحقول التي تتطلب ملء
ما كنت أتمناه هو تشغيل ماكرو ، والذي سيفعل ذلك
1 انسخ القالب والصقه ، في نفس الملف ، وقم بتسمية الورقة كاسم في الخلية A1
2 انسخ الخلية B1 ثم انتقل إلى الحقل المحدد في القالب الجديد
3 كرر على طول الصف 1 حتى فارغ
4 ثم كرر الصف 2 وكل صف حتى النهاية.
النتيجة هي ملف به x no. الأوراق كلها مماثلة للقالب ، مع ملء جميع الحقول.
لقد ورثت ملفًا يعمل بالطريقة الأخرى ، حيث يتم استخراج البيانات من القوالب إلى جدول ، ولكن لا يمكنني عكسها .....
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزي سام،
سيكون لطيفا إذا كان يمكنك إرفاق المصنف الخاص بك هنا.
يمكنك تحميل ملفك باستخدام الزر "تحميل الملفات" أدناه.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، لقد حاولت استخدام الرمز الخاص بك ولكني ظهر خطأ
خطأ وقت التشغيل "1004":
معرف التطبيق أو خطأ معرف الكائن
ليس لدي أي معرفة بـ VBA (أو أي تقنية لهذا الأمر) ولكن إذا تم تصحيح أخطاء الصحافة ، فإنه يسلط الضوء على السطر 11 xRCount = xSht.Cells (xSht.Rows.Count، 1). نهاية (xIUp) .Row
أنا أعمل مع ملف كبير يحتوي على 127 عمودًا و 337 صفًا (الصفوف لن تتنوع الأعمدة) وهي قائمة بأرقام أنا وتفاصيلها.
لقد غيرت النطاق كما أشرت ولكن ما زلت لا يعمل ، فأنا أستخدم Excel 2010 ، هل يمكنك أن تخبرني عن كيفية جعله يعمل إن أمكن
شكراً لك
تم تصغير هذا التعليق بواسطة المشرف على الموقع
عزيزتي بياتريز ،
يتم تحديث الكود مع حل المشكلة. من فضلك حاول مرة أخرى. شكرا لك على تعليقك.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، أعتقد أن هناك شيئًا مفيدًا هنا لموقفي ، لكنني قادر على القيام بـ VBA أو البرنامج النصي ، آمل أن تتمكن من المساعدة.
لدي قالب به العديد من الخلايا لملئه بالبيانات ، وسيكون هناك مفتاح بحث (غير فريد) أود إدخاله في القالب. بناءً على مفتاح البحث ، يتم البحث في البيانات ويتم جلب البيانات المقابلة على المفتاح المطابق وتعبئتها في النموذج. يتم حفظ القالب المعبأ في ورقة عمل جديدة. ربما يكون هناك أكثر من إدخالات مباراة واحدة. أحتاج إلى البرنامج النصي لمواصلة البحث في القائمة ، حتى يتم اختيار جميع المطابقات ، وإنشاء عدد معين من أوراق العمل الجديدة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل هناك طريقة للاحتفاظ بصف العنوان في كل ورقة عمل جديدة؟ (محاطة بدائرة باللون الأحمر على المرفق الخاص بي)

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



أنا أشير إلى هذا الرمز أعلاه:

الصفوف الفرعية ()
خافت xRow طويل
أنا خافت وطويلة
مع ActiveSheet
xRow = .Range ("A" & Rows.Count). End (xlUp) .Row
لأني = 1 إلى xRow
Worksheets.Add (، Sheets (Sheets.Count)). الاسم = "الصف" & أنا
. الصفوف (I). نسخ الأوراق ("الصف" و "I). النطاق (" A1 ")
التالي أنا
انتهت ب
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
رمز رائع ، ولكن هل يمكنني الحصول على بعض المساعدة إذا كانت بياناتي موجودة في العمود G بدلاً من العمود A؟ ما الذي أحتاج إلى تغييره للحصول على بيانات العمود G في علامة تبويب مختلفة؟

شكر
تم تصغير هذا التعليق بواسطة المشرف على الموقع
هذا رمز رائع. شكرا جزيلا لمربعات التفكير في OfficeExtend !! هل هناك على أي حال يمكن تكييف هذا الرمز قليلاً لإنشاء أوراق منفصلة لكل * عمود * بدلاً من صف؟ لقد أرفقت صورة لما أحاول تحقيقه. هل هذا ممكن؟ أطيب التحيات.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
يوم جيد،
لم ارى صورتك هنا.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، كيفية تعديل الرمز ، إذا كان حقل اسمي في العمود C.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا عبد الباسط
يمكن أن يساعدك رمز VBA أدناه. يرجى المحاولة.
في السطر: xCName = "3" ، 3 يشير إلى رقم العمود (هنا العمود C) في Excel. يمكنك تغييره إلى أي رقم عمود حسب حاجتك.

parse_data الفرعية ()
'تحديث بواسطة Extendoffice 2018 / 3 / 2
خافت xRCount وطول
خافت xSht كورقة عمل
خافت xNSht كورقة عمل
أنا خافت وطويلة
خافت xTRrow كعدد صحيح
Dim xCol كمجموعة جديدة
خافت xTitle كسلسلة
Dim xSUpdate كـ منطقي
خافت xCName كعدد صحيح
خافت xTA ، xRA ، xSRg1 كسلسلة
قم بتعيين xSht = ActiveSheet
على خطأ استئناف التالي
xRCount = xSht.Cells (xSht.Rows.Count، 1). End (xlUp) .Row
xTitle = "A1: C1"
xCName = "3" "قم بتغيير هذا الرقم إلى رقم العمود الذي ستنشئ أوراقًا جديدة بناءً عليه
xTRrow = xSht.Range (xTitle) .Cells (1) .Row
لأني = 2 إلى xRCount
استدعاء xCol.Add (xSht.Cells (I، xCName) .Text، xSht.Cells (I، xCName) .Text)
التالى
xSUpdate = Application.ScreenUpdating
Application.ScreenUpdating = خطأ
xSRg = xSht.Cells (1، xCName). العنوان (RowAbsolute: = False، ColumnAbsolute: = False)
بالنسبة إلى I = 1 To xCol.Count
اتصل بـ xSht.Range (xTitle). AutoFilter (xCName، CStr (xCol.Item (I)))
اضبط xNSht = لا شيء
تعيين xNSht = أوراق العمل (CStr (xCol.Item (I)))
إذا كان xNSht لا شيء إذن
قم بتعيين xNSht = Worksheets.Add (، Sheets (Sheets.Count))
xNSht.Name = CStr (xCol.Item (I))
آخر
xNSht.Move، Sheets (Sheets.Count)
إنهاء حالة
xSht.Range ("A" & xTRrow & ": A" & xRCount) .EntireRow.Copy xNSht.Range ("A1")
xNSht.Columns.AutoFit
التالى
xSht.AutoFilterMode = خطأ
xSht.Activate
Application.ScreenUpdating = xSUpdate
نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كود VBA رائع للقيام بالخدعة.

كيف يمكنني تعديله لعدم نسخ العمود الأول؟ ولإزالة اسم العمود؟

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

الصفوف الفرعية ()

خافت xRow طويل

أنا خافت وطويلة

مع ActiveSheet

xRow = .Range ("A" & Rows.Count). End (xlUp) .Row

لأني = 1 إلى xRow

Worksheets.Add (، Sheets (Sheets.Count)). الاسم = "الصف" & أنا

. الصفوف (I). نسخ الأوراق ("الصف" و "I). النطاق (" A1 ")

التالي أنا

انتهت ب

نهاية الفرعية
تم تصغير هذا التعليق بواسطة المشرف على الموقع
لا يهم أنها كانت مسافات زائدة مخفية. لقد استخدمت ميزة TRIM وقمت بتنظيفها. الحصول على عدد الصفوف (عدد الأسطر حقًا لذا فإن الصفوف -1 المعلقة على الورقة سيكون أمرًا رائعًا)
تم تصغير هذا التعليق بواسطة المشرف على الموقع
كيف تشير إلى استخدام الكود أعلاه (الائتمان)؟ هل من الممكن تعديل الكود؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هذه منصة اتصال مفتوحة. يسمح للكود بالإشارة والتعديل.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
نانا
86
2
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا! لقد استخدمت هذا الرمز للتو وعمل! بالإضافة إلى إنشاء ورقة جديدة لكل إدخال ، أريد نقلها إلى أعمدة ولا يمكنني معرفة ذلك. لذلك بالنسبة للمثال أعلاه ، سيبدو ناتج Nana كما يلي - الاسم ناناالعلامة 86لا. 2
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، استخدمت هذا الرمز وعملت ، لكن إذا أردت تحديد أكثر من صف واحد في الرأس ، فما الذي سيتغير في الكود؟ لدي عدة أسطر في الورقة التي أريدها في كل ورقة.
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبا هل اكتشفت كيف؟
تم تصغير هذا التعليق بواسطة المشرف على الموقع
مرحبًا ، هل هناك رمز سيضيف ورقة جديدة واحدة فقط في كل مرة يتم فيها تشغيل الماكرو ، على سبيل المثال ، المرة الأولى التي يتم فيها تسمية الورقة الجديدة على محتويات الخلية A1 ، في المرة الثانية التي يتم فيها تشغيل الماكرو ، سيتم تسمية الورقة الجديدة على محتويات A1 إلخ شكرا تحسبا
لا توجد تعليقات منشورة هنا حتى الآن
عرض المزيد
اترك تعليقاتك
النشر كضيف
×
قيم المنشور:
0   الشخصيات
المواقع المقترحة

تواصل معنا

حقوق التأليف والنشر © 2009 - شبكة الاتصالات العالمية.extendoffice.com. | كل الحقوق محفوظة. مشغل بواسطة ExtendOffice. | | خريطة الموقع
Microsoft وشعار Office هما علامتان تجاريتان أو علامتان تجاريتان مسجلتان لشركة Microsoft Corporation في الولايات المتحدة و / أو دول أخرى.
محمي بواسطة Sectigo SSL