Hoppa till huvudinnehåll

Excel: Hur man delar upp avgränsad text till rader

Låt oss säga att här är en tabell med tre kolumner i ett kalkylblad, den första listar prisnivåerna, den andra listar fruktnamn med kommatecken avgränsade i celler, och den tredje kolumnen listar priserna på frukterna. Jobbet är att dela upp de avgränsade fruktnamnen i rader och upprepa de relaterade prisnivåerna och prisraderna enligt nedanstående skärmdump:
doc fylla text baserat på färg 1

Här introducerar två metoder för att lösa detta jobb.

Dela avgränsad text till rader med hjälp av VBA

Dela avgränsad text till rader med hjälp av Power Query


Dela avgränsad text till rader med hjälp av VBA

Här är en VBA-kod som snabbt kan dela upp avgränsad text till rader.

1. Tryck andra + F11 för att aktivera Microsoft Visual Basic för applikationer fönster.

2. klick Insert flik> Modulerna för att skapa en ny tom modul.

3. Kopiera och klistra in nedanstående kod till den tomma modulen.

VBA: Dela avgränsad text till rader

Public Sub SplitTextInCellsToRows()
'UpdatebyExtendoffice20220622
    Dim xSRg, xIptRg, xCrRg, xRg As Range
    Dim xSplitChar As String
    Dim xArr As Variant
    Dim xFNum, xFFNum, xRow, xColumn, xNum As Integer
    Dim xWSh As Worksheet
    Set xSRg = Application.InputBox("Select a range:", "Kutools for Excel", , , , , , 8)
    If xSRg Is Nothing Then Exit Sub
    xSplitChar = Application.InputBox("Type delimiter:", "Kutools for Excel", , , , , , 2)
    If xSplitChar = "" Then Exit Sub

    Application.ScreenUpdating = False
    xRow = xSRg.Row
    xColumn = xSRg.Column
    Set xWSh = xSRg.Worksheet
    For xFNum = xSRg.Rows.Count To 1 Step -1
        
        Set xRg = xWSh.Cells.Item(xRow + xFNum - 1, xColumn)
        Debug.Print xRg.Address
        xArr = Split(xRg, xSplitChar)
        For xFFNum = LBound(xArr) To UBound(xArr)
            xRg.EntireRow.Copy
            xRg.Offset(1, 0).EntireRow.Insert Shift:=xlShiftDown
            xRg.Worksheet.Cells(xRow + xFNum, xColumn) = xArr(xFFNum)
        Next
        xRg.EntireRow.Delete
    Next
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

4. Tryck F5 för att klicka på Kör-knappen doc fylla text baserat på färg 1 för att aktivera koden visas en dialogruta där du kan välja kolumnen som exkluderar rubriken som innehåller den avgränsade texten som behövs för att delas upp i rader. Klick OK.
doc fylla text baserat på färg 1

5. Sedan öppnas den andra dialogrutan för att ange den avgränsare du använder. Här skriver du kommatecken (,). Klick OK.
doc fylla text baserat på färg 1

Nu har de avgränsade texterna delats upp i rader och andra relaterade kolumner har upprepats.
doc fylla text baserat på färg 1

doc fylla text baserat på färg 1  VBA kommer att ändra den ursprungliga data, bör du bättre spara en kopia av det innan.


Dela avgränsad text till rader med hjälp av Power Query

Om du använder Excel 2013 eller senare versioner, Power Query kommer att vara ett bra val för att lösa detta jobb.

1. Välj dataintervallet att klicka på Data > Från tabell/sortiment.
doc fylla text baserat på färg 1

2. I popping Skapa bord dialogrutan, kontrollera Mitt bord har rubriker som du behöver och klicka OK.
doc fylla text baserat på färg 1

Sedan Power Query redaktör fönstret visas och data har visats i det.
doc fylla text baserat på färg 1

3. Klicka på den kolumn som du vill dela upp de avgränsade texterna till rader och klicka Förvandla flik> Dela kolumn > Med avgränsare.
doc fylla text baserat på färg 1

Eller så kan du också välja kolumnen och högerklicka på kolumnrubriken för att välja den här funktionen i snabbmenyn.
doc fylla text baserat på färg 1

4. I Dela kolumn med avgränsare fönstret, välj den avgränsare som du behöver från Välj eller ange avgränsare avsnitt och välj sedan Varje förekomst av avgränsaren alternativet och expandera sedan Avancerade alternativ avsnitt att välja rader alternativ. Klick OK.
doc fylla text baserat på färg 1

Nu har de avgränsade texterna delats upp i rader.
doc fylla text baserat på färg 1

5. Stäng sedan fönstret, en dialogruta dyker upp, klicka Ha kvar knapp.
doc fylla text baserat på färg 1

Sedan skapas ett nytt ark med tabellen.
doc fylla text baserat på färg 1


Annan verksamhet (artiklar)

Hur växlar jag radfärg baserat på grupp i Excel?
I Excel kan det vara enklare för de flesta av oss att färga varannan rad, men har du någonsin försökt att färga raderna växelvis baserat på kolumnvärdeändringar - Kolumn A som följande skärmdump visas, i den här artikeln kommer jag att prata om hur för att växla radfärg baserat på grupp i Excel.

Hur man minskar Excel-filstorleken?
Ibland tar det några minuter att öppna eller spara om Excel-filen är för stor. För att lösa detta problem, här i denna handledning, berättar den hur du minskar Excel-filstorleken genom att ta bort innehållet eller formaten som är onödiga eller aldrig används.

Excel: Hur man skapar eller infogar ett bokmärke
Har du någonsin föreställt dig att skapa eller infoga ett bokmärke för att snabbt hoppa till ett specifikt dataintervall medan det finns mycket data i ett kalkylblad eller en arbetsbok?

Hur applicerar jag skuggning på udda eller jämna (alternativa) rader / kolumner i Excel?
När man utformar ett kalkylblad tenderar många att använda skuggning på udda eller jämna (alternativa) rader eller kolumner för att göra kalkylbladet mer visuellt. Den här artikeln visar två metoder för att tillämpa skuggning på udda eller jämna rader / kolumner i Excel.


  • Super Formula Bar (enkelt redigera flera rader med text och formel); Läslayout (enkelt läsa och redigera ett stort antal celler); Klistra in i filtrerat intervall...
  • Sammanfoga celler / rader / kolumner och förvaring av data; Delat cellinnehåll; Kombinera duplicerade rader och summa / genomsnitt... Förhindra duplicerade celler; Jämför intervall...
  • Välj Duplicera eller Unikt Rader; Välj tomma rader (alla celler är tomma); Super Find och Fuzzy Find i många arbetsböcker; Slumpmässigt val ...
  • Exakt kopia Flera celler utan att ändra formelreferens; Skapa referenser automatiskt till flera ark; Sätt in kulor, Kryssrutor och mer ...
  • Favorit och sätt snabbt in formler, Intervall, diagram och bilder; Kryptera celler med lösenord; Skapa e-postlista och skicka e-post ...
  • Extrahera text, Lägg till text, ta bort efter position, Ta bort mellanslag; Skapa och skriva ut personsökningstalsatser; Konvertera mellan celler innehåll och kommentarer...
  • Superfilter (spara och tillämpa filterscheman på andra ark); Avancerad sortering efter månad / vecka / dag, frekvens och mer; Specialfilter av fet, kursiv ...
  • Kombinera arbetsböcker och arbetsblad; Sammanfoga tabeller baserat på nyckelkolumner; Dela data i flera ark; Batchkonvertera xls, xlsx och PDF...
  • Gruppering av pivottabell efter veckonummer, veckodagen och mer ... Visa olåsta, låsta celler av olika färger; Markera celler som har formel / namn...
kte-flik 201905
  • Aktivera flikredigering och läsning i Word, Excel, PowerPoint, Publisher, Access, Visio och Project.
  • Öppna och skapa flera dokument i nya flikar i samma fönster, snarare än i nya fönster.
  • Ökar din produktivitet med 50 % och minskar hundratals musklick för dig varje dag!
officetab botten
Comments (0)
No ratings yet. Be the first to rate!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations