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

Om du har flera textsträngar i en lista med kalkylblad vill du nu infoga mellanslag efter vart tredje eller x tecken i cellerna enligt följande skärmdump. 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

Genom att använda följande VBA-kod kan du snabbt infoga mellanslag efter varje n tecken för flera celler samtidigt, vänligen 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 i uppmaningsrutan, välj de celler som du vill infoga utrymme till, se skärmdump:

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

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

Infoga / Lägg till mellanslag 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.

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 mellanslag.

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 Ansök knappen, får du resultatet att mellanslagen har infogats efter var fjärde tecken som du behöver.

tips: Antalet positioner i textrutan Specificera 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?