Använda Excel VBA-makro -inspelaren för att göra ett program som delar upp en enda kolumn i flera kolumner innebär inte mycket mer än ett enda musklick . Dela upp flera kolumner utgör ett problem , den första kolumnen separation kommer att skriva över texten du vill dela i efterföljande kolumner . Av den anledningen kommer " TextToColumn " -funktionen visas ett felmeddelande i stället dela kolumnen . Genom en spridning av innehåll som ska delas på flera rader , hindra dig att detta sker . Instruktioner
1
Klicka på " Visual Basic " -knappen på fliken Utvecklare för att skriva VBA -programmering miljö , vilket gör att du kan skriva och felsöka VBA -program .
2
Klicka på " Insert " på fliken " Module " objekt för att skapa ett nytt fönster för att skriva program . VBA skapar fönstret .
3
Klistra in följande program i fönstret . Detta program använder " TextToColumns " -funktionen för att dela text separerade med mellanslag . Den " Datatyp " argument talar den funktion som du vill dela text utifrån ett visst tecken i texten , snarare än baserat på ett fast antal tecken per kolumn . Den " Space " argument för funktionen är satt till "true ", vilket indikerar att Excel ska dela upp texten bygger på " Space " karaktär .
Public Sub TextToColumnsMultiple ( ) katalog
Dim col , x
För varje Col I Selection.Columns
Set x = col
x.Select
Selection.TextToColumns Datatyp : = xlDelimited , _
TextQualifier : = xlDoubleQuote , ConsecutiveDelimiter : = Sant , Tab : = False , _
Semikolon : = False , Comma : = False utrymme : = Sant , Övrigt : = False , TrailingMinusNumbers : = _
Sant
Nästa
End Sub
4
Klicka på " Excel " -ikonen på Windows aktivitetsfält för att återgå till Excel , skriv sedan en mening med minst två blankstegsavgränsad ord i varje kalkylblad cell . Skriv ett sådant straff i cellen som är ner en och en till höger om den första cellen .
5
Klicka på den första cellen för att markera den , tryck och håll nere Ctrl-tangenten för att berätta Excel du vill att välja mer än en cell .
6
Klicka på " Utvecklare " fliken för " Visual Basic " -knappen för att visa en lista över program . Dubbelklicka på " TextToColumnsMultiple " objekt att köra det programmet . De meningarna du skrivit nu uppdelad i flera kolumner , med en kolumn per ord .
