Come inserire / aggiungere spazio dopo ogni x caratteri nelle celle?

Se hai più stringhe di testo in un elenco di fogli di lavoro, ora, vuoi inserire uno spazio dopo ogni 3 o x caratteri nelle celle come mostrato nella seguente schermata. Come hai potuto risolvere questo problema in Excel in modo rapido e semplice?

Inserisci / Aggiungi spazio dopo ogni x caratteri nelle celle con codice VBA

Applicando il seguente codice VBA, puoi inserire rapidamente lo spazio dopo ogni n caratteri per più celle contemporaneamente, per favore fai come segue:

1. Tieni premuto il ALT + F11 chiavi per aprire il Microsoft Visual Basic, Applications Edition finestra.

2. Quindi fare clic inserire > Modulie incolla il codice seguente nel file Moduli finestra.

Codice VBA: inserisci uno spazio dopo ogni x caratteri:

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. Quindi premere F5 chiave per eseguire questo codice e nella casella del messaggio, selezionare le celle in cui si desidera inserire lo spazio, vedere screenshot:

4. E poi clicca OK pulsante e gli spazi sono stati inseriti nel contenuto della cella dopo ogni quattro caratteri, vedi screenshot:

Note:: Nel codice sopra, puoi cambiare il numero 4 ad un altro numero per inserire uno spazio dopo. Inoltre, in questa regola puoi modificare lo spazio del delimitatore con un altro delimitatore xTxt = Trim (xTxt) & "" & Mid (xStr, i, 4) del codice sopra.

Inserisci / Aggiungi spazio dopo ogni x caratteri nelle celle con Kutools for Excel

Kutools for Excel'S aggiungi testo La funzione può anche aiutarti a risolvere questo problema in modo rapido e semplice.

Dopo l'installazione Kutools for Excel, per favore fai come segue :( Scarica gratis Kutools for Excel Adesso! )

1. Seleziona le stringhe di testo in cui desideri inserire spazio.

2. Quindi fare clic Kutools > Testo > aggiungi testo, vedi screenshot:

3. Nel aggiungi testo finestra di dialogo, premere una volta la barra spaziatrice nel file Testo casella e seleziona il file Specificare opzione sotto il Posizione, quindi digita le posizioni in cui desideri inserire lo spazio, vedi screenshot:

4. E poi clicca Ok or APPLICA pulsante, otterrai il risultato che gli spazi sono stati inseriti dopo ogni quattro caratteri di cui hai bisogno.

Suggerimenti:: Il numero di posizioni nella casella di testo Specifica deve essere separato da virgole.

Scarica gratis Kutools for Excel Adesso!

Articolo correlato:

Come aggiungere / inserire determinati caratteri ogni x caratteri nelle celle?

I migliori strumenti per la produttività in ufficio

	Funzioni popolari: Trova, evidenzia o identifica i duplicati   |  Elimina righe vuote   |  Combina colonne o celle senza perdere dati   |   Round senza formula ...
	Super ricerca: VLookup a criteri multipli  |   VLookup a valori multipli  |   VLookup su più fogli   |   Ricerca fuzzy ....
	Elenco a discesa avanzato: Crea rapidamente un elenco a discesa   |  Elenco a discesa dipendente   |  Elenco a discesa a selezione multipla ....
	Gestore di colonna: Aggiungi un numero specifico di colonne  |  Sposta colonne  |  Attiva/disattiva lo stato di visibilità delle colonne nascoste  |  Confronta intervalli e colonne ...
	Funzionalità in primo piano: Messa a fuoco della griglia   |  Vista di progettazione   |   Grande barra delle formule   |  Gestore di cartelle di lavoro e fogli   |  Resource Library (Testo automatico)   |  Date picker   |  Combina fogli di lavoro   |  Crittografa/decrittografa le celle   |  Invia e-mail per elenco   |  Super filtro   |   Filtro speciale (filtro grassetto/corsivo/barrato...) ...
	I 15 migliori set di strumenti:  12 Testo Strumenti (aggiungi testo, Rimuovi personaggi, ...)   |   Più di 50 Grafico Tipi (Diagramma di Gantt, ...)   |   40+ Pratico Formule (Calcola l'età in base al compleanno, ...)   |   19 Inserimento Strumenti (Inserisci il codice QR, Inserisci immagine dal percorso, ...)   |   12 Conversione Strumenti (Numeri in parole, Conversione di valuta, ...)   |   7 Unisci e dividi Strumenti (Combina righe avanzate, Celle divise, ...)   |   ... e altro ancora

Potenzia le tue competenze in Excel con Kutools for Excele sperimenta l'efficienza come mai prima d'ora. Kutools for Excel Offre oltre 300 funzionalità avanzate per aumentare la produttività e risparmiare tempo.  Fai clic qui per ottenere la funzionalità di cui hai più bisogno...

Leggi di più... Download gratuito...

---

Office Tab Porta l'interfaccia a schede in Office e rende il tuo lavoro molto più semplice

• Abilita la modifica e la lettura a schede in Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
• Apri e crea più documenti in nuove schede della stessa finestra, piuttosto che in nuove finestre.
• Aumenta la produttività del 50% e riduce ogni giorno centinaia di clic del mouse!

Leggi di più... Download gratuito...