Hur infogar / lägger jag till utrymme efter varje x-tecken i celler?

Om du har flera textsträngar i en lista med kalkylblad, nu vill du infoga utrymme efter var tredje eller x tecken i celler som följande skärmdump visas. Hur kunde du lösa detta problem i Excel snabbt och enkelt?

Infoga / lägg till mellanslag efter varje x tecken i celler med VBA-kod Infoga / lägg till utrymme efter varje x-tecken i celler med Kutools för Excel

---

Infoga / lägg till mellanslag efter varje x tecken i celler med VBA-kod

Om du använder följande VBA-kod kan du snabbt infoga utrymmet efter varje n tecken för flera celler samtidigt, gör så här:

1. Håll ner ALT + F11 nycklar för att öppna Microsoft Visual Basic för applikationer fönster.

2. Klicka sedan Insert > Modulernaoch klistra in följande kod i Modulerna fönster.

VBA-kod: Infoga mellanslag efter varje x tecken:

Sub addspace()
'updateby Extendoffice
    Dim i As Long
    Dim xCell As Range
    Dim xRg As Range
    Dim xTxt As String
    Dim xStr As String
    Dim xUpdate As Boolean
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    For Each xCell In xRg
        xStr = xCell.Text
        xTxt = ""
        For i = 1 To Len(xStr) Step 4
            If xTxt = "" Then
                xTxt = Mid(xStr, i, 4)
            Else
                xTxt = Trim(xTxt) & " " & Mid(xStr, i, 4)
            End If
        Next
        xCell = xTxt
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Tryck sedan på F5 nyckel för att köra den här koden och välj de celler som du vill infoga utrymme i rutan i rutan, se skärmdump:

4. Och klicka sedan på OK -knappen och mellanslag har infogats i cellinnehållet efter var fjärde tecken, se skärmdumpar:

Anmärkningar: I koden ovan kan du ändra numret 4 till ett annat nummer för att infoga mellanslag efter. Och du kan också ändra avgränsningsutrymmet till en annan avgränsare i denna regel xTxt = Trim (xTxt) & "" & Mid (xStr, i, 4) ovanstående kod.

---

Infoga / lägg till utrymme efter varje x-tecken i celler med Kutools för Excel

Kutools för ExcelÄr lägga till text funktionen kan också hjälpa dig att lösa detta problem snabbt och enkelt.

Kutools för Excel : med mer än 300 praktiska Excel-tillägg, gratis att prova utan begränsning på 30 dagar.

Gå till Ladda ner Gratis provperiod 30 dagarInköp PayPal / MyCommerce

När du har installerat Kutools för Excel, gör så här :( Gratis nedladdning Kutools för Excel nu! )

1. Välj de textsträngar som du vill infoga utrymme.

2. Klicka sedan Kutools > text > lägga till text, se skärmdump:

3. I lägga till text dialogrutan, tryck på mellanslagstangenten en gång i text och välj Ange alternativet under Placera, skriv sedan de positioner som du vill infoga utrymmet, se skärmdump:

4. Och klicka sedan på Ok or tillämpas -knappen får du resultatet att mellanslag har infogats efter var fjärde tecken som du behöver.

tips: Antalet positioner i Ange textruta ska separeras med kommatecken.

Gratis nedladdning Kutools för Excel nu!

---

Relaterad artikel:

Hur lägger till / infoga vissa tecken varje x tecken i celler?