كيفية إضافة أو إدراج أحرف محددة كل X أحرف في خلايا Excel

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

إدراج حرف معين كل x أحرف في الخلية باستخدام كود VBA

إدراج حرف معين كل x أحرف في الخلية باستخدام Kutools لـ Excel

إدراج حرف معين كل x أحرف في الخلية باستخدام كود VBA

يمكنك تطبيق الكود التالي من VBA لإدراج حرف محدد بعد كل أربعة أحرف في الخلايا، يرجى اتباع الخطوات التالية:

1. اضغط مع الاستمرار على مفتاحي ALT + F11 في Excel، وسينفتح لك نافذة Microsoft Visual Basic for Applications.

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

كود VBA: إدراج حرف معين كل x أحرف في الخلية

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. أخيرًا، انقر فوق موافق. سيتم الآن إدراج الحرف المحدد في كل سلسلة نصية بعد كل أربعة أحرف. انظر إلى لقطة الشاشة أدناه:

إدراج حرف معين كل x أحرف في الخلية باستخدام Kutools لـ Excel

قد يكون كود VBA صعبًا على المبتدئين في Excel. إليك بديل أسهل: Kutools لـ Excel. باستخدام ميزة إضافة النص الخاصة به، يمكنك بسرعة إضافة نص أو أحرف محددة قبل أو بعد أو في مواضع محددة في قيم الخلية.

1. حدد نطاق البيانات الذي تريد إدراج حرف محدد فيه.

2. ثم انقر فوق Kutools > نص > إضافة نص، انظر إلى لقطة الشاشة:

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

نصيحة: هنا أكتب 4،8،12 في مربع النص الخاص بتحديد، مما يعني إدراج النص المحدد بعد الحرف الرابع والثامن والثاني عشر من سلسلة النص.

4. ثم انقر فوق موافق أو تطبيق، سيتم إدراج الحرف المحدد في قيم الخلايا عند المواضع المحددة.

انقر لمعرفة المزيد من التفاصيل حول أداة إضافة النص هذه.

عرض توضيحي: إدراج حرف معين كل x أحرف في الخلية باستخدام Kutools لـ Excel