Hvordan stables flere kolonner hurtigt i en kolonne i Excel?
i Excel kan funktionen Tekst til kolonner opdele en celle i flere kolonner baseret på afgrænser, men hvis der er nogen måder at stable flere kolonner i en kolonne som vist nedenstående skærmbillede? I denne artikel vil jeg introducere nogle tricks til at løse denne opgave hurtigt.
Stak flere kolonner i en med formlen
Stak flere kolonner i en med VBA
Stak flere kolonner i en med Transform Range 
Stak flere kolonner i en med formlen
1. Vælg det område, du vil stable, og gå til Navn Box for at give dette interval et navn, og tryk på Indtast nøgle. Se skærmbillede:
2. Vælg derefter en tom celle, som du vil placere resultaterne, indtast denne formel =INDEX(MyData,1+INT((ROW(A1)-1)/COLUMNS(MyData)),MOD(ROW(A1)-1+COLUMNS(MyData),COLUMNS(MyData))+1), tryk på Enter-tasten, og træk udfyldningshåndtaget ned, indtil en fejl vises. Se skærmbillede:
Stak flere kolonner i en med VBA
Her er en VBA-kode, der også kan hjælpe dig.
1. Trykke Alt + F11 taster, der skal vises Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, indsæt nedenstående kode til Moduler.
VBA: Stak kolonner til en
Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
Rng.Copy
Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub
3. Trykke F5 nøgle for at køre koden, en dialog vises for at vælge kildedata, og klik OK, for at vælge en celle for at placere resultaterne. Se skærmbillede:
4. klik OK. Nu er kolonnerne stablet i en kolonne.
Stak flere kolonner i en med Transform Range
Hvis du vil anvende Kutools for Excel's Transformér rækkevidde utility er også kan hjælpe dig med hurtigt at løse dette problem.
| Kutools for Excel, med mere end 300 praktiske funktioner, der gør dine job lettere. | ||
Efter gratis installation Kutools for Excelskal du gøre som nedenfor:
1. Vælg de kolonnedata, du bruger, og klik på Kutools > Range > Transformér rækkevidde. Se skærmbillede:
2. i Transformér rækkevidde dialog, tjek Område til enkelt kolonne valgmulighed og klik Ok, og vælg derefter en celle for at placere resultater. Se skærmbillede:
3. klik OK. Nu er kolonnerne stablet i en enkelt kolonne.
Stak flere celler i en kolonne
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools for Excel, og oplev effektivitet som aldrig før. Kutools for Excel Tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Office Tab Giver fanebladsgrænseflade til Office og gør dit arbejde meget nemmere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
