إضافة أحرف كل X أحرف في خلايا Excel - طرق سهلة

عند التعامل مع رموز المنتجات، الأرقام التسلسلية، أرقام الهواتف، أرقام الهوية، أو سلاسل نصية طويلة في Excel، قد تحتاج إلى إدراج حرف معيّن بعد كل عدد ثابت من الأحرف. على سبيل المثال، قد ترغب في تحويل ABCDEF123456 إلى ABC-DEF-123-456، أو إضافة مسافات كل 4 أرقام لتسهيل قراءة الأرقام الطويلة.
لا يوفّر Excel زرًا مباشرًا مدمجًا لهذه المهمة، لكن يمكنك تنفيذها بسهولة باستخدام بعض الطرق البسيطة. سيعرض لك هذا المقال عدة طرق عملية لإضافة أو إدراج أحرف معيّنة كل X أحرف في خلايا Excel.

إضافة أحرف كل X أحرف في Excel

• الطريقة 1: باستخدام صيغة (Excel 365 وExcel 2021 والإصدارات الأحدث)
• الطريقة 2: باستخدام كود VBA
• الطريقة 3: باستخدام دالة معرّفة من قبل المستخدم
• الطريقة 4: باستخدام Kutools لـ Excel

ملاحظات وهفريات مهمة

الخاتمة

إضافة أحرف كل X أحرف في Excel

ستعرض لك الطرق التالية كيفية إدراج أحرف معيّنة بسرعة بعد كل عدد محدد من الأحرف في Excel، مما يساعدك على فصل النصوص الطويلة أو أرقام الهوية أو رموز المنتجات أو سلاسل الأرقام بفترات ثابتة لجعل المحتوى أكثر توحيدًا وسهولة في القراءة.

الطريقة 1: إضافة أحرف كل X أحرف باستخدام صيغة

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

أدخل الصيغة التالية في خلية فارغة:

=TEXTJOIN("-",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4))

ثم اضغط على مفتاحEnter، واسحب مقبض التعبئة لأسفل لملء الصيغة تلقائيًا في الخلايا الأخرى.

تخصيص الصيغة

يمكنك تعديل الحرف والفترة وفقًا لاحتياجاتك.

=TEXTJOIN(" ",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4))

=TEXTJOIN("/",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/2,0),,1,2),2))

=TEXTJOIN($B$1,TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/$C$1,0),,1,$C$1),$C$1))

المزايا والعيوب

الطريقة 2: إضافة أحرف كل X أحرف باستخدام كود VBA

إذا كنت ترغب في إدراج حرف معيّن كل عدد ثابت من الأحرف عبر خلايا متعددة والحصول على النتيجة فورًا، فإن VBA يُعد خيارًا مثاليًا.

1. اضغط مع الاستمرار على مفاتيحALT + F11 في Excel، وستفتح نافذة Microsoft Visual Basic for Applications.
2. انقر فوقإدراج > وحدة نمطية (Module)، ثم الصق الكود التالي في نافذة الوحدة النمطية.

Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
    xValue = Rng.Value
    outValue = ""
    For index = 1 To VBA.Len(xValue)
        If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
            outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
        Else
            outValue = outValue + VBA.Mid(xValue, index, 1)
        End If
    Next
    OutRng.Cells(xNum, 1).Value = outValue
    xNum = xNum + 1
Next
End Sub

3. اضغط على مفتاحF5 لتشغيل هذا الكود. ستظهر نافذة منبثقة تطلب منك تحديد نطاق البيانات التي تريد إدراج حرف معيّن فيها ضمن سلاسل النص. انظر لقطة الشاشة أدناه:
   
4. ثم انقر فوقموافق، وفي مربع الحوار التالي، أدخل الرقم الذي تريد أن يُدرج الحرف المحدد بعده، انظر لقطة الشاشة:
   
5. استمر في النقر فوقموافق، وفي مربع الحوار التالي، أدخل الحرف المحدد الذي تريد إضافته إلى النص، انظر لقطة الشاشة:
   
6. انقر فوق زرموافق، واختر الخلية التي تريد إخراج النتيجة فيها في مربع الحوار، انظر لقطة الشاشة:
   
7. أخيرًا، انقر فوقموافق. سيقوم Excel بإدراج الحرف المحدد كل X أحرف ووضع النتائج في منطقة القائمة المحددة.
   

المزايا والعيوب

الطريقة 3: إضافة أحرف كل X أحرف باستخدام دالة معرّفة من قبل المستخدم

تسمح لك الدالة المعرَّفة من قِبل المستخدم (UDF) بإنشاء دالة Excel خاصة بك باستخدام VBA، وبعد إضافتها، يمكنك استخدامها تمامًا كأي صيغة عادية في ورقة العمل.

1. اضغط علىAlt + F11 لفتح محرر VBA.
2. انقر فوقإدراج > وحدة نمطية (Module). ثم انسخ والصق الكود التالي في الوحدة النمطية.

Function InsertEveryX(TextStr As String, InsertChar As String, IntervalNum As Long) As String
    Dim i As Long
    Dim ResultStr As String
    If IntervalNum <= 0 Then
        InsertEveryX = TextStr
        Exit Function
    End If
    For i = 1 To Len(TextStr) Step IntervalNum
        ResultStr = ResultStr & Mid(TextStr, i, IntervalNum) & InsertChar
    Next i
    If Len(ResultStr) > 0 Then
        ResultStr = Left(ResultStr, Len(ResultStr) - Len(InsertChar))
    End If
    InsertEveryX = ResultStr
End Function

3. أغلق محرر VBA وارجع إلى ورقة العمل، ثم استخدم الصيغة التالية:

=InsertEveryX(A2,"-",4)

ثم اسحب مقبض التعبئة لأسفل لتطبيق الصيغة على باقي الخلايا.

المزايا والعيوب

الطريقة 4: إضافة أحرف كل X أحرف باستخدام Kutools لـ Excel

إذا كنت لا ترغب في استخدام صيغ معقدة أو كود VBA، فإن Kutools لـ Excel توفّر طريقة أسهل لإدراج الأحرف في نصوص الخلايا. باستخدام أدوات النص الخاصة بها، يمكنك إضافة أحرف معيّنة بسرعة في مواضع ثابتة أو تطبيق عمليات معالجة النصوص على خلايا متعددة.

1. حدد الخلايا التي تريد إدراج الأحرف فيها، ثم انقر فوقKutools > نص > إضافة نص.
   
2. في مربع حوارإضافة نص:
   1. أدخل الحرف الذي تريد إدراجه، مثل- أو/ أو حتى مسافة، في مربعالنص.
   2. في قسمإضافة الموضع، اختربعد الموضع المحدد، ثم أدخل المواضع التي تريد إدراج الحرف بعدها.
   3. انقر فوقموافق.
      

الآن، يُدرج الحرف المحدد في قيم الخلايا عند الفترات المحددة.

ملاحظات وهفريات مهمة

=IF(A2="","",TEXTJOIN("-",TRUE,MID(A2,SEQUENCE(ROUNDUP(LEN(A2)/4,0),,1,4),4)))

الخاتمة

يمكن أن يُسهّل إدراج أحرف كل X أحرف في Excel قراءة سلاسل النصوص الطويلة وتنسيقها وإدارتها. فإذا كنت تستخدم Excel 365 أو Excel 2021، فإن طريقة الصيغة تُعد حلاً مرنًا وديناميكيًا. وإذا احتجتَ إلى معالجة العديد من الخلايا دفعة واحدة، يُمكن لـ VBA أن ينجز المهمة بكفاءة عالية. أما إذا رغبتَ في صيغة مخصصة قابلة لإعادة الاستخدام، فتُعد الدالة المعرّفة من قبل المستخدم (UDF) خيارًا ممتازًا. وإذا كنتَ تفضّل طريقة بسيطة ومرئية وخالية من البرمجة، فإن Kutools لـ Excel يوفّر لك حلاً أسرع للتعامل مع هذا النوع من مهام تنسيق النص.

بشكل عام، استخدم الصيغ للحصول على نتائج ديناميكية، ولجأ إلى VBA أو الدوال المعرّفة من قبل المستخدم (UDFs) عندما تحتاج تحكمًا أكبر، واستعن بـ Kutools لتبسيط سير العمل وتقليل الخطوات اليدوية.