كيفية إزالة الشرطات بسرعة من الخلايا في Excel؟

لنفترض أن هناك قائمة بأكواد البريد أو أرقام ISBN الطويلة في خلايا ورقة العمل الخاصة بك، وهذه الأرقام الطويلة تحتوي على شرطات. لغرض معين، تحتاج إلى التخلص من الشرطات بين الأرقام (كما هو موضح في لقطات الشاشة أدناه). هل هناك طرق سريعة لإزالة هذه الشرطات بين الأرقام في Excel؟

إزالة الشرطات من الخلايا باستخدام الصيغة
إزالة الشرطات من الخلايا بسهولة باستخدام Kutools لـ Excel
إزالة الشرطات من الخلايا باستخدام كود VBA

إزالة الشرطات من الخلايا باستخدام الصيغة

مع دالة SUBSTITUTE هذه، سيتم تحويل الأرقام إلى قيم نصية، لذلك عند إزالة الشرطات، لن يتم إزالة الرقم 0 الابتدائي ولن تصبح الأرقام رموزًا علمية. يرجى القيام بما يلي:

1. في الخلية الفارغة المجاورة، C1 على سبيل المثال، أدخل هذه الصيغة: =SUBSTITUTE(A1,"-",""), انظر لقطة الشاشة:

2. اضغط على مفتاح Enter، وحدد الخلية C1، ثم اسحب مقبض التعبئة إلى النطاق الذي تريد أن يحتوي على هذه الصيغة. وتمت إزالة الشرطات بين الأرقام. انظر لقطة الشاشة:

إزالة الشرطات من الخلايا باستخدام Kutools لـ Excel

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

1. حدد النطاق الذي تحتاج إلى إزالة الشرطات من خلاياه، ثم انقر فوق Kutools > نص > حذف الأحرف، انظر لقطة الشاشة:

2. في مربع حوار حذف الأحرف، قم بتحديد الخيار مخصص، وأدخل الحرف “-” في مربع النص، ثم يمكنك معاينة النتائج من لوحة المعاينة. بعد ذلك، انقر فوق الزر موافق لإزالة جميع الشرطات في الخلايا المحددة. انظر لقطة الشاشة:

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

إزالة الشرطات من الخلايا باستخدام كود VBA

مع الكود البرمجي VBA التالي، يمكنك أيضًا إزالة الشرطات بين الأرقام من نطاق من الخلايا.

1. حدد النطاق الذي تريد إزالة الشرطات منه.

2. اضغط باستمرار على مفتاحي ALT + F11 لفتح نافذة Microsoft Visual Basic for Applications.

3. انقر فوق إدراج > وحدة، والصق الكود التالي في نافذة الوحدة.

VBA: إزالة الشرطات بين الأرقام

Sub DeleteDashes()
'Update 20130907
Dim rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
For Each rng In WorkRng
    rng.NumberFormat = "@"
    rng.Value = VBA.Replace(rng.Value, "-", "")
Next
Application.ScreenUpdating = True
End Sub

4. ثم اضغط على مفتاح F5 لتشغيل هذا الكود، وسيظهر مربع حوار ينبثق ليطلب منك تحديد النطاق الذي تريد استخدامه. انظر لقطة الشاشة:

5. وبعد ذلك انقر فوق موافق، وتمت إزالة الشرطات بين الأرقام من الخلايا. وتم تحويل تنسيق الرقم إلى تنسيق نص. انظر لقطات الشاشة:

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

• إزالة الأحرف الأبجدية من الخلايا
• إزالة الأحرف غير الرقمية من الخلايا
• إزالة الأحرف الرقمية من الخلايا
• إزالة الأحرف غير القابلة للطباعة من الخلايا
• إزالة الأحرف غير الأبجدية من الخلايا
• إزالة فواصل الأسطر بسرعة
• إزالة الأحرف غير الأبجدية الرقمية