Supposing du har en rekke data som følgende skjermbilde viser, kan du konvertere serien data i én rad i et nytt regneark med en lang formel.
Vennligst gjelder formelen som dette:
1. I et nytt regneark av den aktive arbeidsboken, klikker du celle A1, kopiere og lime inn denne formelen: =OFFSET(Sheet1!$A$1,((ROW()-1)*5)+(FLOOR(COLUMN()-1,4)/4),(COLUMN()-1)-(FLOOR(COLUMN()-1,4)))
Note: ! Sheet1 $ A $ 1 er regneark og utvalg referanser som du vil bruke
ROW () - 1) * 5 i formelen over, 5 står for radnummer.; og KOLONNE () - 1,4) /4, står det 4 for kolonnenummeret. Du kan endre dem som trenger din.
To. Deretter drar fyllhåndtaket over til høyre til nummer 0 er dukket opp. I dette tilfellet har alle data i området er innarbeidet i en enkelt rad i et nytt regneark. Se skjermbilde:
Transponere /Konverter kolonner og rader i én rad med VBA-kode
følgende VBA-kode kan også hjelpe deg med å konvertere en rekke data til en rad
1.. Hold nede ALT + F11-tastene for å åpne Microsoft Visual Basic for Applications vinduet.
2. Klikk Sett > . Modul, og lim inn følgende kode i modulen vindu
Sub TransformOneRow () 'Updateby20131120Dim InputRng As Range, OutRng Som RangexTitleId = "KutoolsforExcel" Set InputRng = Application.SelectionSet InputRng = Application.InputBox ("Ranges som skal forvandle: "xTitleId, InputRng.Address, Type: = 8) Sett OutRng = Application.InputBox (" Lim til (enkelt celle): ", xTitleId, Type: = 8) Application.ScreenUpdating = FalsexRows = InputRng.Rows.CountxCols = InputRng .Columns.CountFor i = 1 Til xRows InputRng.Rows (i) .Copy OutRng Set OutRng = OutRng.Offset (0, xCols + 0) NextApplication.ScreenUpdating = TrueEnd Sub3. Deretter trykker F5 for å kjøre koden, er en dialog poppet ut for deg å velge et utvalg av innholdet du ønsker å konvertere til en rad, og klikk OK, er en annen dukket opp dialogen for deg å velge en enkelt celle for å sette ut resultatet. Se skjermbilder:
klikker OK, blir innholdet i det valgte området omgjort til en rad. Se skjermbilde:
. Merk: I Sett OutRng = OutRng.Offset (0, xCols + 0)
, kan du endre 0
til noen nummer for å møte dine behov Anmeldelser For exampel, hvis du ønsker å skille resultatene accroding til de opprinnelige rader med én kolonne, kan du endre Angi OutRng = OutRng.Offset (0, xCols + 0)
til Sett OutRng = OutRng. Offset (0, xCols + 1)
er resultatene vist som følgende:
Transponere /Konverter kolonner og rader i én rad med Kutools for Excel
Det synes de ovennevnte to metodene er litt vanskelig for oss Excel nybegynner, her vil jeg snakke om et hendig verktøy-Kutools for Excel for deg.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Få den nå
Med verktøyet Transform Utvalg av Kutools for Excel, kan du raskt forvandle et utvalg til en enkelt rad, kan du gjøre som følger:
1. Velg området du vil transponere.
To. Klikk Kutools > Range Converter > Transform Range, se skjermbilde:
tre. I Transform Range dialogboksen velger Range å enkelt alternativ rad, se skjermbilde:
4. Klikk deretter på OK, og klikk på en celle for å sette resultatet fra lokal ut boksen.
5. Klikk OK, og dataene i området har blitt innarbeidet i en enkelt rad. Se skjermbilder.
Hvis du ønsker å vite mer om denne funksjonen, kan du gå Transform Range
Det synes de ovennevnte to metodene er litt vanskelig for oss Excel nybegynner, her vil jeg snakke om et hendig verktøy-Kutools for Excel for deg.
Kutools for Excel omfatter mer enn 120 praktiske Excel-verktøy. Gratis å prøve uten begrensning i 30 dager. Få den nå
Med verktøyet Transform Utvalg av Kutools for Excel, kan du raskt forvandle et utvalg til en enkelt rad, kan du gjøre som følger:
1. Velg området du vil transponere.
To. Klikk Kutools > Range Converter > Transform Range, se skjermbilde:
tre. I Transform Range dialogboksen velger Range å enkelt alternativ rad, se skjermbilde:
4. Klikk deretter på OK, og klikk på en celle for å sette resultatet fra lokal ut boksen.
5. Klikk OK, og dataene i området har blitt innarbeidet i en enkelt rad. Se skjermbilder.
Hvis du ønsker å vite mer om denne funksjonen, kan du gå Transform Range