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

في Excel، عند إدخال عنوان عمود مكرر داخل جدول، يُضاف إليه رقم تلقائيًا (مثل name وname1 وname2)، ولا يمكن إزالة هذا الرقم كما يظهر في لقطة الشاشة أدناه. ولتجنب هذا الترقيم التلقائي في عناوين الأعمدة المكررة، يمكنك إضافة مسافة فارغة في نهاية كل عنوان مكرر. إليك كود VBA الذي يساعدك على تكرار العنوان مع إلحاق مسافات خلفية تلقائيًا، ليصبح كل عنوان فريدًا من الناحية التقنية مع الحفاظ على مظهره الأصلي دون تغيير.

إضافة الفراغات الخلفية تلقائيًا إلى العنوان

ملاحظة: تم اختبار الطرق الموضَّحة في هذا البرنامج التعليمي على 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

3. انقر على زرتشغيل في الشريط أو اضغط مفتاحF5 لتفعيل الكود. بعد ظهور مربع الحوار الأول، حدد العناوين التي تريد تكرارها، ثم انقر علىموافق.

4. في مربع الحوار الثاني الذي يظهر، أدخل عدد مرات التكرار التي تريدها، ثم انقر علىموافق.

5. حدد الخلية التي تريد نقل العناوين المتكررة إليها، ثم انقر علىموافق.

الآن تم تكرار العناوين وإلحاقها بمسافات فارغة في نهايتها.

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

الآن يمكنك ملاحظة أن الجدول يحتوي على عناوين أعمدة مكرَّرة دون ترقيم.

افتح سحر إكسل مع KUTOOLS AI

• التنفيذ الذكي: نفِّذ عمليات الخلايا، وحلِّل البيانات، وأنشئ المخططات البيانية — كل ذلك بأوامر بسيطة!
• الصيغ المخصصة: أنشئ صيغًا مخصصة لتبسيط سير عملك.
• برمجة VBA: اكتب وأَنفِذ أكواد VBA بسلاسة تامة.
• تفسير الصيغ: افهم الصيغ المعقدة بسهولة!
• ترجمة النصوص: اكسر الحواجز اللغوية في جداولك الإلكترونية!

حسِّن قدراتك في إكسل بأدوات مدعومة بالذكاء الاصطناعي.حمِّل الآنوجرِّب الكفاءة كما لم تفعل من قبل!

---

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

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

• محرر متعدد الأسطر فائق الكفاءة من شريط الصيغة (يمكّنك من تحرير أسطر نصية متعددة والمعادلات بسهولة)؛وضع القراءة (ليُسهّل عليك قراءة وتحرير عدد كبير من الخلايا)؛لصق إلى نطاق التصفية...
• نسخ صفوف أو أعمدة تحتوي على خلايا مدمجةمع الاحتفاظ بالبيانات؛ تقسيم محتوى الخلايا؛دمج خلايا الصفوف المكررة وحساب المجموع أو المتوسط... منع إدخال قيم مكررة في الخلايا؛مقارنة النطاقات...
• تحديد الصفوف المكررة أو الفريدة؛تحديد الصفوف الفارغة (جميع الخلايا فارغة)؛البحث المتقدم والعثور على المشابهعبر العديد من ملفات العمل؛ تحديد عشوائي...
• إدخال محتوى متعدد الخلايا من النسخ الدقيقدون تغيير مراجع الصيغ؛إنشاء مراجع تلقائيةلأوراق عمل متعددة؛إدراج رموز التعداد النقطي، ومربعات الاختيار والمزيد...
• احفظ الصيغ المفضلة وأدخلها بسرعة، والنطاقات، والرسوم البيانية، والصور؛شفر الخلايابكلمة مرور؛أنشئ قائمة بريد إلكترونيوأرسل رسائل البريد الإلكتروني...
• استخراج النص، وإضافة نص، وحذف الأحرف من موقع معين،وإزالة المسافات؛ وإنشاء إحصاءات صفحة البيانات وطباعتها؛والتحويل بين محتوى الخلايا والتعليقات...
• مرشح متقدم (لحفظ مخططات التصفية وتطبيقها على أوراق عمل أخرى)؛ترتيب متقدمحسب الشهر أو الأسبوع أو اليوم، والتكرار، وغير ذلك؛تصفية خاصةحسب التنسيق العريض أو المائل...
• ادمج ملفات العمل وأوراق العمل؛ واجمع الجداول استنادًا إلى العمود الرئيسي؛وقسّم البيانات إلى أوراق عمل متعددة؛وحَوِّل ملفات XLS وXLSX وPDF دفعةً واحدة...
• تجميع حسب جدول البيانات المحوريرقم الأسبوع، ويوم الأسبوع والمزيد... عرض الخلايا غير المؤمَّنة وقفل التحديدبألوان مختلفة؛تمييز الخلايا التي تحتوي على صيغة أو اسم...

قراءة المزيد...تجربة مجانية لمدة 30 يومًا مع جميع الميزات...الشراء... 

---

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

• تمكّن من التحرير والقراءة باستخدام علامات التبويب في Word وExcel وPowerPoint، بالإضافة إلى Publisher وAccess وVisio وProject.
• افتح وأنشئ مستندات متعددة في علامات تبويب جديدة داخل النافذة نفسها، بدلاً من فتح نوافذ جديدة.
• يزيد إنتاجيتك بنسبة 50% ويوفّر عليك مئات نقرات الفأرة كل يوم!

قراءة المزيد...تجربة مجانية لمدة 30 يومًا مع جميع الميزات...الشراء...