Hvordan transponerer / konverterer jeg kolonner og rækker til en enkelt række?
Hvordan sammenføjes flere rækker og kolonner til en enkelt lang række? Måske virker det let for dig, fordi du kan kopiere dem en efter en og slutte dem til en række manuelt. Men det vil være tidskrævende og kedeligt, hvis der er hundreder af rækker og kolonner. Her vil jeg tale om nogle hurtige tricks til at løse det.
Transponer / konverter kolonner og rækker til en række med formlen
Transponer / konverter kolonner og rækker til en række med VBA-kode
Transponer / konverter kolonner og rækker til en enkelt række med Kutools til Excel
Transponer / konverter kolonner og rækker til en række med formlen
Hvis du antager, at du har en række data, som følgende skærmbillede viser, kan du konvertere rækkevidde data til en række i et nyt regneark med en lang formel.
Anvend venligst formlen som denne:
1. I et nyt regneark i den aktive projektmappe skal du klikke på celle A1, kopiere og indsætte denne formel: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
Bemærk: Ark1! $ A $ 1 er det regneark og områdereferencer, du vil bruge.
RÆK () - 1) * 5 i ovenstående formel 5 står for række nummer; og KOLONNE () - 1,4) / 4, 4 står for søjlenummeret. Du kan ændre dem efter behov.
2. Træk derefter fyldhåndtaget over til højre, indtil nummer 0 vises. I dette tilfælde er alle data i området transponeret til en enkelt række i et nyt regneark. Se skærmbillede:
Transponer / konverter kolonner og rækker til en række med VBA-kode
Følgende VBA-kode kan også hjælpe dig med at konvertere en række data til en række.
1. Hold nede i ALT + F11 nøgler til at åbne Microsoft Visual Basic til applikationer vindue.
2. klik indsatte > Moduler, og indsæt følgende kode i Moduler vindue.
Sub TransformOneRow()
'Updateby20131120
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Ranges to be transform :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Paste to (single cell):", xTitleId, Type:=8)
Application.ScreenUpdating = False
xRows = InputRng.Rows.Count
xCols = InputRng.Columns.Count
For i = 1 To xRows
InputRng.Rows(i).Copy OutRng
Set OutRng = OutRng.Offset(0, xCols + 0)
Next
Application.ScreenUpdating = True
End Sub
3. Tryk derefter på F5 nøgle for at køre koden, vises en dialogboks, hvor du kan vælge et indholdsinterval, du vil konvertere til en række, og klik på Ok, en anden pop-up-dialog er for dig at vælge en enkelt celle for at lægge resultatet ud. Se skærmbilleder:
Klik derefter på Ok, konverteres indholdet i det valgte interval til en række. Se skærmbillede:
Bemærk: I Set OutRng = OutRng.Offset (0, xCols + 0), Kan du ændre 0 til ethvert nummer for at imødekomme dit behov.
For eksempel kan du ændre, hvis du vil adskille resultaterne fra de oprindelige rækker med en kolonne Set OutRng = OutRng.Offset (0, xCols + 0) til Set OutRng = OutRng.Offset (0, xCols + 1)vises resultaterne som følger:
Transponer / konverter kolonner og rækker til en enkelt række med Kutools til Excel
Det ser ud til, at de ovennævnte to metoder er noget vanskelige for os Excel-nybegynder, her vil jeg tale om et praktisk værktøj-Kutools til Excel til dig.
Kutools til Excel indeholder mere end 300 praktiske Excel-værktøjer. Gratis at prøve uden begrænsning på 30 dage. Få det nu
Med hjælpeprogrammet Transformér rækkevidde of Kutools til Excel, kan du hurtigt omdanne et interval til en enkelt række, skal du gøre som følger:
1. Vælg det område, du vil transponere.
2. klik Kutools > Områdeomformer > Transformér rækkevidde, se skærmbillede:
3. i Transformér rækkevidde dialogboksen, vælg Område til enkelt række mulighed, se skærmbillede:
4. Klik derefter på OK, og klik på en celle for at placere resultatet fra pop-ud-feltet.
5. klik OK, og dataene i området er blevet transponeret til en enkelt række. Se skærmbilleder:
Hvis du vil vide mere om denne funktion, kan du besøge Transformér rækkevidde.
Relaterede artikler:
Hvordan ændres række til kolonne i Excel?
Hvordan transponeres / konverteres en enkelt kolonne til flere kolonner i Excel?
Hvordan transponerer / konverterer jeg kolonner og rækker til en enkelt kolonne?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til 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...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- 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!