Come utilizzare il testo Colonna più colonne in VBA

October 16

Utilizzando macro VBA registratore di Excel per fare un programma che divide una singola colonna in più colonne non coinvolge molto più di un semplice clic del mouse. Dividere le colonne multiple presenta un problema; la separazione della prima colonna sovrascriverà il testo che si desidera dividere in colonne successive. Per questo motivo, la funzione "TextToColumn" verrà visualizzato un messaggio di errore, piuttosto che dividere la colonna. Scaglionando il contenuto da dividere su più righe, si impedisce che ciò accada.

istruzione

1 Fare clic sul pulsante "Visual Basic" nella scheda Sviluppo per accedere all'ambiente di programmazione VBA, che permette di scrivere e debug dei programmi VBA.

2 Fare clic sulla voce "Modulo" della scheda "Inserisci" per creare una nuova finestra per entrare programmi. VBA crea la finestra.

3 Incollare il seguente programma nella finestra. Questo programma utilizza la funzione "TextToColumns" per il testo di divisione separati da spazi. L'argomento "Tipo di dati" racconta la funzione che si desidera dividere il testo sulla base di un carattere particolare all'interno del testo, piuttosto che sulla base di un numero fisso di caratteri per colonna. L'argomento "Spazio" della funzione è impostata su "True", indicando che Excel dovrebbe dividere il testo basato sul personaggio "Spazio".

Public Sub TextToColumnsMultiple ()

Col Dim, x

Per ogni col In Selection.Columns

Set x = col

x.Select

Selection.TextToColumns DataType: = xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _

Punto e virgola: = False, virgola: = False, Spazio: = True, Altro: = false, TrailingMinusNumbers: = _

Vero

Il prossimo

End Sub

4 Fare clic sull'icona "Excel" nella barra delle applicazioni di Windows per tornare a Excel, quindi digitare una frase con almeno due parole separate da spazi in qualsiasi cella del foglio di lavoro. Tipo un'altra tale frase nella cella che è una sotto e una a destra della prima cella.

5 Fare clic sulla prima cella per selezionarla, quindi premere e tenere premuto il tasto Ctrl per dire Excel che si desidera selezionare più di una cella.

6 Fare clic sul pulsante della scheda "Sviluppatore" "Visual Basic" per visualizzare un elenco di programmi. Fare doppio clic sulla voce "TextToColumnsMultiple" per eseguire tale programma. Le frasi digitati sono ora divisi in più colonne, con una colonna per parola.