Skip to main content

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

Author: Sun Last Modified: 2025-05-30

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

إضافة فراغات خلفية تلقائية للرأس

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


إضافة فراغات خلفية تلقائية للرأس

1. اكتب العناوين التي تريد تكرارها في عمود، ثم اضغط على مفاتيح Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications.

2. انقر فوق إدراج > وحدة لإنشاء وحدة جديدة في نافذة Microsoft Visual Basic for Applications، ثم قم بنسخ ولصق الكود أدناه فيها.

VBA: تكرار وإضافة فراغات خلفية

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

 copy and paste the code into the module

3. انقر تشغيل run button زر في الشريط أو اضغط F5 مفتاح لتفعيل الكود، في أول نافذة منبثقة، حدد العناوين التي تريد تكرارها. انقر موافق.
select the headers to repeat

4. في النافذة المنبثقة الثانية، اكتب عدد مرات التكرار التي تريدها. انقر موافق.
type the repeating times

5. حدد الخلية التي تريد إخراج العناوين المتكررة إليها. انقر موافق.
Select a cell to output the repeated headers

الآن تم تكرار العناوين وإضافة فراغات خلفية لها.
the headers are repeated and added with trailing spaces

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

الآن يمكنك رؤية أن الجدول يحتوي على عناوين أعمدة مكررة بدون ترقيم.
the table has duplicate column headers without numbering

a screenshot of kutools for excel ai

اكتشف سحر Excel مع Kutools AI

  • التنفيذ الذكي: قم بعمليات الخلية، وتحليل البيانات، وإنشاء المخططات - كل ذلك يتم من خلال أوامر بسيطة.
  • الصيغ المخصصة: قم بإنشاء صيغ مصممة خصيصًا لتسهيل سير عملك.
  • برمجة VBA: كتابة وتطبيق أكواد VBA بسهولة.
  • تفسير الصيغ: فهم الصيغ المعقدة بسهولة.
  • ترجمة النصوص: تجاوز الحواجز اللغوية داخل جداول البيانات الخاصة بك.
عزز قدرات Excel لديك باستخدام أدوات تعمل بالذكاء الاصطناعي. قم بالتنزيل الآن وعش تجربة الكفاءة كما لم يحدث من قبل!

عمليات أخرى (مقالات)

كيفية العثور على القيمة القصوى أو الدنيا المطلقة والاحتفاظ بالإشارة في Excel
أحيانًا قد ترغب في العثور على القيم القصوى أو الدنيا لقيمها المطلقة ولكن مع الحفاظ على إشارتها عند إرجاع النتيجة كما هو موضح في لقطة الشاشة أدناه.

كيفية الاحتفاظ بالفاصلة البادئة عند الكتابة في Excel؟
كما نعلم، عندما تريد تحويل رقم إلى نص، يمكنك إدخال رمز الفاصلة البادئة في المقدمة على سبيل المثال: ‘123، وسيتم تحويل الرقم إلى نص وإخفاء الفاصلة.

كيفية إجبار فتح الملف كـ للقراءة فقط في Excel؟
أحيانًا، قد ترغب في أن يكون المستخدمون الآخرون الذين يفتحون المصنفات المشتركة لديك حذرين عند تعديل المصنفات المشتركة، يمكنك تقديم تنبيه للقراءة فقط لتحذيرهم...

كيفية إيقاف Excel من التنسيق التلقائي للتاريخ في CSV؟
هذا ملف csv يحتوي على التاريخ بصيغة نصية 12-may-20 ولكن عند فتحه عبر Excel سيتم تخزينه تلقائيًا بصيغة تاريخ...


  • شريط الصيغة الفائق (تحرير سهل للنصوص والصيغ المتعددة الأسطر); تخطيط القراءة (قراءة وتحرير سهل للخلايا الكبيرة العدد); لصق إلى النطاق المُرشح...
  • دمج الخلايا/الصفوف/الأعمدة مع الاحتفاظ بالبيانات; تقسيم محتوى الخلايا; دمج الصفوف المكررة والمجموع/المتوسط... منع الخلايا المكررة; مقارنة النطاقات...
  • تحديد الصفوف المكررة أو الفريدة; تحديد الصفوف الفارغة (جميع الخلايا فارغة); البحث المتقدم والبحث الضبابي في العديد من المصنفات; اختيار عشوائي...
  • نسخ دقيق للخلايا المتعددة دون تغيير مرجع الصيغة; إنشاء تلقائي للمراجع إلى أوراق متعددة; إدراج رموز تعداد نقطي، مربعات اختيار وأكثر...
  • تفضيل وإدراج سريع للصيغ، النطاقات، الرسوم البيانية والصور; تشفير الخلايا بكلمة مرور; إنشاء قائمة بريدية وإرسال رسائل البريد الإلكتروني...
  • استخراج النص، إضافة نص، إزالة الأحرف في موضع محدد، إزالة المسافات; إنشاء وطباعة إحصاءات صفحة البيانات; التحويل بين محتويات الخلايا والتعليقات...
  • مرشح متقدم (حفظ وتطبيق مخططات التصفية على أوراق أخرى); ترتيب متقدم حسب الشهر/الأسبوع/اليوم، التكرار وأكثر; تصفية خاصة حسب العريض، المائل...
  • تجميع المصنفات وأوراق العمل; دمج الجداول بناءً على الأعمدة الرئيسية; تقسيم البيانات إلى أوراق متعددة; تحويل دفعة xls، xlsx وPDF...
  • تجميع جدول محوري حسب رقم الأسبوع، يوم الأسبوع وأكثر... عرض الخلايا غير المؤمنة، المؤمنة بألوان مختلفة; تمييز الخلايا التي تحتوي على صيغة/اسم...
kte tab 201905
  • تمكين التحرير والقراءة بتبويب في Word، Excel، PowerPoint، Publisher، Access، Visio وProject.
  • فتح وإنشاء مستندات متعددة في تبويبات جديدة لنفس النافذة، بدلاً من النوافذ الجديدة.
  • يزيد من إنتاجيتك بنسبة 50%، ويقلل من مئات النقرات بالماوس لك كل يوم!
officetab bottom