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 > Moduloe incolla il codice seguente nel file Modulo 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 per 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 subito Kutools per Excel! )

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 Candidati pulsante, otterrai il risultato che gli spazi sono stati inseriti dopo ogni quattro caratteri di cui hai bisogno.

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

Scarica subito Kutools per Excel!

Articolo correlato:

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

I migliori strumenti per la produttività in ufficio

Kutools per Excel risolve la maggior parte dei tuoi problemi e aumenta la tua produttività dell'80%

• Riutilizzo: Inserisci rapidamente formule complesse, grafici e tutto ciò che hai usato prima; Crittografa celle con password; Crea mailing list e invia email ...
• Bar Super Formula (modifica facilmente più righe di testo e formula); Layout di lettura (leggi e modifica facilmente un gran numero di celle); Incolla su intervallo filtrato...
• Unisci celle / righe / colonne senza perdere dati; Contenuto delle celle divise; Combina righe / colonne duplicate... Impedisci celle duplicate; Confronta intervalli...
• Seleziona Duplica o Unico Righe; Seleziona Righe vuote (tutte le celle sono vuote); Super Find e Fuzzy Find in molte cartelle di lavoro; Selezione casuale ...
• Copia esatta Più celle senza modificare il riferimento della formula; Riferimenti di creazione automatica a più fogli; Inserisci punti elenco, Caselle di controllo e altro ...
• Estrai testo, Aggiungi testo, Rimuovi per posizione, Rimuovi spazio; Creare e stampare totali parziali di paging; Converti contenuto e commenti tra celle...
• Super filtro (salva e applica schemi di filtri ad altri fogli); Ordinamento avanzato per mese / settimana / giorno, frequenza e altro; Filtro speciale in grassetto, corsivo ...
• Combina cartelle di lavoro e fogli di lavoro; Unisci tabelle in base a colonne chiave; Suddividi i dati in più fogli; Conversione in batch xls, xlsx e PDF...
• Più di 300 potenti funzionalità. Supporta Office / Excel 2007-2019 e 365. Supporta tutte le lingue. Facile distribuzione nella tua azienda o organizzazione. Funzionalità complete Prova gratuita di 30 giorni. Garanzia di rimborso di 60 giorni.

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

---

Scheda Office porta l'interfaccia a schede a Office e semplifica notevolmente il lavoro

• 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 centinaia di clic del mouse ogni giorno!

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