كيفية منع الترقيم التلقائي في رأس العمود المكرر في جدول Excel؟

في Excel ، عند كتابة رأس العمود المكرر في الجدول ، ستتم إضافته تلقائيًا لرقم مثل الاسم والاسم 1 والاسم 2 ولا يمكن إزالة الرقم كما تظهر لقطة الشاشة أدناه. لمنع الترقيم التلقائي في رأس العمود المكرر في الجدول ، يمكنك إضافة مسافة لاحقة إلى الرأس المكرر. فيما يلي رمز VBA الذي يمكن أن يساعدك في تكرار الرأس وإضافة مسافات لاحقة تلقائيًا للسماح لها بالاختلاف ولكنها تبدو متشابهة.

إضافة مسافات لاحقة إلى الرأس تلقائيًا

ملاحظة: تم اختبار الطرق الواردة في هذا البرنامج التعليمي في Excel 2021 ، وقد يكون هناك بعض الاختلاف في إصدارات Excel المختلفة.

1. اكتب الرؤوس التي تريد تكرارها في عمود ، ثم اضغط قديم + F11 مفاتيح للتمكين ميكروسوفت فيسوال باسيك للتطبيقات نافذة.

2. انقر إدراج > وحدة لإنشاء وحدة جديدة في ميكروسوفت فيسوال باسيك للتطبيقات ، ثم انسخ الكود أدناه والصقه فيه.

فبا: كرر وإضافة مسافات لاحقة

Sub repeat()
'UpdatebyExtendoffice20220927
    Dim xRg As Range
    Dim saveRg As Range
    Dim xIndex As Integer
    Dim xCount As Integer
    Dim k As Integer
    Dim xStr As String
    Set xRg = Application.InputBox("Select the cells that you want to repeat", "kte", , , , , , 8)
    xIndex = Application.InputBox("Enter the repeat times", "kte")
    Set saveRg = Application.InputBox("Select a cell to output", "kte", , , , , , 8)
    xStr = ""
    xCount = xRg.Cells.Count * xIndex
    Set saveRg = saveRg.Range("a1").Resize(1, xCount)
    k = 0
    For i = 1 To xIndex
        For j = 1 To xRg.Cells.Count
            k = k + 1
            saveRg.Cells(k).Value = xRg.Cells(j).Value + xStr
        Next
        xStr = xStr + " "
    Next
End Sub

3. انقر يجري  زر في الشريط أو اضغط F5 مفتاح لتنشيط الرمز ، في مربع الحوار الأول ، حدد الرؤوس التي تريد تكرارها. انقر OK.

4. في مربع الحوار الثاني ، اكتب مرات التكرار التي تريدها. انقر OK.

5. حدد الخلية التي تريد إخراج الرؤوس المتكررة. انقر OK.

الآن تم تكرار الرؤوس وإضافتها بمسافات لاحقة.

6. حدد العناوين وانسخها بالضغط CTRL + C، ولصقها مرة أخرى على الطاولة التي تحتاجها بالضغط CTRL + الخامس.

يمكنك الآن رؤية الجدول يحتوي على رؤوس أعمدة مكررة بدون ترقيم.

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

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

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

اقرأ أكثر... الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا ... شراء... 

---

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

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

اقرأ أكثر... الميزات الكاملة نسخة تجريبية مجانية لمدة 30 يومًا ... شراء...