كيفية إعادة تسمية مجموعة من أسماء النطاقات دفعة واحدة في Excel؟

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

إعادة تسمية أسماء النطاقات باستخدام كود الماكرو

إعادة تسمية أسماء النطاقات باستخدام كود الماكرو

لنفترض أن هناك عدة أسماء نطاقات في مصنف كما هو موضح في لقطة الشاشة أدناه، الآن سأقوم بإعادة تسميتها بإضافة بادئة.

1. اضغط Alt + F11 لتمكين نافذة Microsoft Visual Basic for Applications وانقر على إدراج > وحدة. انظر لقطة الشاشة:

2. الصق الكود أدناه في نص الوحدة، واضغط على F5 لتشغيل الكود.

VBA: إعادة تسمية أسماء النطاقات

Sub RenameCells()
Dim n As Name
    For Each n In ThisWorkbook.Names
        n.Name = "KUTOOLS_" & n.Name
    Next n
End Sub

ثم يتم إعادة تسمية جميع أسماء النطاقات بإضافة البادئة المحددة. انظر لقطة الشاشة:

ملاحظة: في الكود أعلاه n.Name = "KUTOOLS_" & n.Name، يمكنك تغيير KUTOOLS إلى سلسلة أخرى حسب الحاجة.

نصيحة.إذا كنت تريد إعادة تسمية عدة أوراق عمل بسرعة، يرجى تجربة استخدام Kutools لـ Excel’s إعادة تسمية ورقات العمل بالجملة الميزة كما هو موضح في لقطة الشاشة أدناه. تعمل بشكل كامل بدون قيود لمدة 60 يومًا، يرجى تنزيلها وتجربتها مجانًا الآن.

مقالات ذات صلة:

• كيفية إعادة تسمية أوراق العمل بناءً على قيم الخلايا في Excel؟