Come aggiungere / inserire determinati caratteri ogni x caratteri nelle celle?
Supponendo, ho un elenco di stringhe di testo che voglio inserire trattini o altri separatori dopo ogni quattro caratteri nelle celle per ottenere il seguente risultato dello screenshot. Ci sono troppe celle necessarie per inserire un determinato carattere, ci sono modi rapidi per inserire trattini ogni quattro caratteri in Excel?
Inserisci un determinato carattere ogni x caratteri nella cella con codice VBA
Inserisci un determinato carattere ogni x caratteri nella cella con Kutools per Excel
Inserisci un determinato carattere ogni x caratteri nella cella con codice VBA
È possibile applicare il seguente codice VBA per inserire un carattere specifico dopo ogni quattro caratteri nelle celle, eseguire le seguenti operazioni:
1. Tieni premuto il ALT + F11 chiavi in Excel e apre il file Microsoft Visual Basic, Applications Edition finestra.
2. Clic inserire > Modulie incolla il codice seguente nel file Moduli Finestra.
Codice VBA: inserisci un determinato carattere ogni x caratteri nella cella
Sub InsertCharacter()
'Updateby Extendoffice
Dim Rng As Range
Dim InputRng As Range, OutRng As Range
Dim xRow As Integer
Dim xChar As String
Dim index As Integer
Dim arr As Variant
Dim xValue As String
Dim outValue As String
Dim xNum As Integer
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
xRow = Application.InputBox("Number of characters :", xTitleId, Type:=1)
xChar = Application.InputBox("Specify a character :", xTitleId, Type:=2)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set OutRng = OutRng.Range("A1")
xNum = 1
For Each Rng In InputRng
xValue = Rng.Value
outValue = ""
For index = 1 To VBA.Len(xValue)
If index Mod xRow = 0 And index <> VBA.Len(xValue) Then
outValue = outValue + VBA.Mid(xValue, index, 1) + xChar
Else
outValue = outValue + VBA.Mid(xValue, index, 1)
End If
Next
OutRng.Cells(xNum, 1).Value = outValue
xNum = xNum + 1
Next
End Sub
3. Quindi premere F5 chiave per eseguire questo codice e verrà visualizzata una finestra di messaggio per ricordarti di selezionare l'intervallo di dati in cui desideri inserire determinati caratteri all'interno delle stringhe di testo, vedi screenshot:
4. E fare clic su OK, nella seguente finestra di messaggio, inserisci il numero in cui desideri inserire un determinato carattere ogni dopo, vedi screenshot:
5. Continua a fare clic OKe nella casella di richiesta seguita, inserisci il carattere specifico che desideri aggiungere al testo, vedi screenshot:
6. Clic OK pulsante e scegli una cella in cui desideri visualizzare il risultato nella finestra del messaggio, vedi screenshot:
7. Finalmente, clicca OK, il determinato carattere è stato inserito in ogni stringa di testo ogni quattro caratteri, vedi screenshot:
Inserisci un determinato carattere ogni x caratteri nella cella con Kutools per Excel
Il codice sopra potrebbe essere un po 'difficile per la maggior parte dei principianti di Excel, qui posso introdurre uno strumento utile - Kutools for Excel, Con la sua aggiungi testo è possibile aggiungere rapidamente un testo o un carattere specifico prima, dopo o in determinate posizioni del valore della cella.
Kutools for Excel : con oltre 300 utili componenti aggiuntivi di Excel, da provare gratuitamente senza limitazioni in 30 giorni. |
Se hai installato Kutools for Excel, si prega di fare come segue:
1. Seleziona l'intervallo di dati in cui desideri inserire un carattere specifico.
2. Quindi fare clic Kutools > Testo > aggiungi testo, vedi screenshot:
3. Nel aggiungi testo finestra di dialogo, specificare un carattere che si desidera inserire nel file Testo casella, quindi scegli Specificare dalla posizione sezione, nella casella di testo, inserisci le posizioni in cui vuoi inserire il carattere dopo, allo stesso tempo, puoi visualizzare in anteprima il risultato nel riquadro di destra, vedi screenshot:
Suggerimenti:: Qui digito 4,8,12 nella casella di testo di Specificare che indicano di inserire il testo specifico dopo il 4 °, 8 ° e 12 ° carattere della stringa di testo.
4. Quindi fare clic su Ok or APPLICA pulsante, il carattere specificato è stato inserito nei valori della cella in posizioni specifiche.
Fare clic per conoscere ulteriori dettagli su questa utilità Aggiungi testo.
Scarica e prova gratuitamente Kutools per Excel ora!
Demo: inserisci determinati caratteri ogni x caratteri nella cella con Kutools per Excel
I migliori strumenti per la produttività in ufficio
Potenzia le tue competenze di Excel con Kutools per Excel e sperimenta l'efficienza come mai prima d'ora. Kutools per 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...
Office Tab porta l'interfaccia a schede in Office e semplifica notevolmente il tuo 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 ogni giorno centinaia di clic del mouse!