Conas spás a chur isteach / a chur leis tar éis gach x carachtar i gcealla?

Má tá teaghráin téacs iolracha agat i liosta de bhileog oibre, anois, ba mhaith leat spás a chur isteach i ndiaidh gach 3 nó x carachtar i gcealla mar a thaispeántar an pictiúr a leanas. Conas a d’fhéadfá an fhadhb seo in Excel a réiteach go tapa agus go héasca?

Cuir isteach / Cuir spás i ndiaidh gach x carachtar i gcealla le cód VBA Cuir isteach / Cuir spás i ndiaidh gach x carachtar i gcealla le Kutools le haghaidh Excel

---

Cuir isteach / Cuir spás i ndiaidh gach x carachtar i gcealla le cód VBA

Agus an cód VBA seo a leanas á chur i bhfeidhm agat, is féidir leat an spás a chur isteach go tapa i ndiaidh gach n carachtar do ilchealla ag an am céanna, déan mar a leanas le do thoil:

1. Coinnigh síos an ALT + F11 eochracha a oscailt Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Ansin cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil fhuinneog.

Cód VBA: Cuir isteach spás i ndiaidh gach x carachtar:

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. Ansin brúigh F5 eochair chun an cód seo a rith, agus sa bhosca pras, roghnaigh na cealla ar mhaith leat spás a chur isteach iontu, féach an scáileán:

4. Agus ansin cliceáil OK cnaipe, agus na spásanna curtha isteach in ábhar na cille tar éis gach ceithre charachtar, féach screenshots:

nótaí: Sa chód thuas, is féidir leat an uimhir a athrú 4 go huimhir eile chun spás a chur isteach ina dhiaidh. Agus freisin is féidir leat an spás teorannaithe a athrú go teorantóirí eile sa riail seo xTxt = Baile Átha Troim (xTxt) & "" & Lár (xStr, i, 4) den chód thuas.

---

Cuir isteach / Cuir spás i ndiaidh gach x carachtar i gcealla le Kutools le haghaidh Excel

Kutools le haghaidh Excel'S Cuir Téacs is féidir le gné cabhrú leat an fhadhb seo a réiteach go tapa agus go héasca.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá.

Téigh go dtí Íoslódáil Triail In Aisce 30 láCeannach PayPal / MyCommerce

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar a leanas le do thoil :( Íoslódáil saor in aisce Kutools le haghaidh Excel Anois! )

1. Roghnaigh na teaghráin téacs a theastaíonn uait spás a chur isteach.

2. Ansin cliceáil Kutools > Téacs > Cuir Téacs, féach ar an scáileán:

3. Sa an Cuir Téacs bosca dialóige, brúigh an barra spáis uair amháin isteach sa Téacs bosca, agus roghnaigh an Sonraigh rogha faoin Post, ansin clóscríobh na suíomhanna a theastaíonn uait an spás a chur isteach, féach an scáileán:

4. Agus ansin cliceáil Ok or Cuir iarratas isteach cnaipe, gheobhaidh tú an toradh gur cuireadh na spásanna isteach i ndiaidh gach ceithre charachtar de réir mar a theastaíonn uait.

Leideanna: Ba cheart go mbeadh camóga scartha idir líon na bpost sa bhosca téacs Sonraigh.

Íoslódáil saor in aisce Kutools le haghaidh Excel Anois!

---

Airteagal gaolmhar:

Conas carachtar áirithe gach x carachtar a chur leis / a chur isteach i gcealla?