Note: The other languages of the website are Google-translated. Back to English
Login  \/ 
x
or
x
Registrati  \/ 
x

or

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

doc inserisce ogni x carattere 1


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 > Moduloe incolla il codice seguente nel file Modulo 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:

doc inserisce ogni x carattere 2

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:

doc inserisce ogni x carattere 3

5. Continua a fare clic OKe nella casella di richiesta seguita, inserisci il carattere specifico che desideri aggiungere al testo, vedi screenshot:

doc inserisce ogni x carattere 4

6. Clic OK pulsante e scegli una cella in cui desideri visualizzare il risultato nella finestra del messaggio, vedi screenshot:

doc inserisce ogni x carattere 5

7. Finalmente, clicca OK, il determinato carattere è stato inserito in ogni stringa di testo ogni quattro caratteri, vedi screenshot:

doc inserisce ogni x carattere 6


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:

doc inserisce ogni x carattere 8

Tip: 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 Iscriviti pulsante, il carattere specificato è stato inserito nei valori della cella in posizioni specifiche.

doc inserisce ogni x carattere 9 2 doc inserisce ogni x carattere 10

Fare clic per conoscere ulteriori dettagli su questa utilità Aggiungi testo.

Scarica e prova gratuitamente Kutools per Excel ora!


Demo: inserisci un determinato carattere ogni x caratteri nella cella con Kutools per Excel

Kutools for Excel: con più di 300 utili componenti aggiuntivi di Excel, liberi di provare senza limitazioni in 30 giorni. Scarica e prova gratuita ora!

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.
scheda kte 201905

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!
fondo officetab
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    anaid83 · 25 days ago
    Creo que en vez de macros, es más fácil (aunque más largo):
    1. Separar en columnas la columna A (Pestaña Datos - botón texto en columnas) y separar por Ancho fijo. Así podrás poner un separador cada 4 caracteres.
    2. Elige destino desde B2 (si lo dejas predeterminado, pisará la columna A y no podrás ver el texto original).
    3. Ahora viene lo bueno, ya que son 4 series de 4caracteres cada uno, en la columna G o H (considerando que los valores de 4 caracteres estén desde las columnas B a la F), colocarás la siguiente fórmula: =CONCATENAR(B2;"-";C2;"-";D2;"-";E2;"-";F2). Ahora copia esa celda al resto de valores por insertar el símbolo -.
    4. Finalmente, copia toda la columna de resultados y pégala en una columna vacía pero como valor de texto (Inicio-Pegar-Valores... o con las teclas ALT+O+V+V) y listo, ya tienes tus seriales listos para pegar donde quieras sin necesidad de macros.
  • To post as a guest, your comment is unpublished.
    Wuilf · 1 years ago
    Muy buena esta macro, una pregunta curiosa al momento de ejecutarla los caracteres los aplica de izquierda a derecha, puede cambiarse ese orden que de derecha a izquierda? En caso de ser posible como es el proceso? Gracias.
  • To post as a guest, your comment is unpublished.
    John · 1 years ago
    buenas noches
    necesito que me coloque el caracter cada 6, 7, 8 de un solo clic como le modifico para poder colocar mas criterios