Sådan flyttes hver anden række til kolonne i Excel
Har du nogensinde prøvet at flytte hver anden række data til en kolonne i Excel, som at flytte hver ulige række til en kolonne og hver lige række til den anden kolonne, som vises som nedenstående skærmbillede. Her finder jeg nogle tricks, der kan håndtere dette problem.
Flyt hver anden række til kolonne med formlen
Flyt hver anden række til kolonne med VBA
Flyt hver anden række til kolonne med Kutools til Excel
Flyt hver anden række til kolonne med formlen
For de fleste af Excel-brugere er det den nemmeste måde at bruge formel til at løse problemer i Excel.
1. Vælg en celle ud for dine data, og skriv denne formel = HVIS (ISEVEN (Række (B2)), B2, "") (B2 angiver de data, du ønsker at få) i det, og tryk på Indtast træk derefter den automatiske udfyldning for at udfylde det område, du vil bruge denne formel. Nu er hver anden række data blevet hentet i denne kolonne.
2. Vælg derefter den anden celle ud for ovenstående kolonne, og skriv denne formel = HVIS (ISODD (Række (B3)), B3, "") (B3 er de data, du ønsker at få) i det, og tryk på Indtast træk derefter den automatiske udfyldning for at udfylde det område, du vil bruge denne formel. Nu er hver tredje række data blevet hentet i denne kolonne.
Flyt hver anden række til kolonne med VBA
Den følgende VBA kan også flytte hver anden række til kolonne.
1. Trykke F11 + Alt tasterne sammen på tastaturet for at åbne MMicrosoft Visual Basic til applikationer vindue.
2. Klik derefter på indsatte > Moduler for at indsætte et nyt modulvindue. Og kopier derefter den følgende VBA-kode til vinduet.
VBA: Flyt hver anden række til kolonne.
Sub MoveRange()
'Updateby20140730A
Dim rng As Range
Dim InputRng As Range, OutRng As Range
xTitleId = "KutoolsforExcel"
Set InputRng = Application.Selection
Set InputRng = Application.InputBox("Range :", xTitleId, InputRng.Address, Type:=8)
Set OutRng = Application.InputBox("Out put to (single cell):", xTitleId, Type:=8)
Set InputRng = InputRng.Columns(1)
For i = 1 To InputRng.Rows.Count Step 2
OutRng.Resize(1, 2).Value = Array(InputRng.Cells(i, 1).Value, InputRng.Cells(i + 1, 1).Value)
Set OutRng = OutRng.Offset(1, 0)
Next
End Sub
3. klik Kør knappen eller F5 på tastaturet, og der vises en dialogboks, hvor du kan vælge et område, du vil flytte. Se skærmbillede:
4. Klik derefter på OK for at vise den anden dialog for at vælge en celle, der skal output resultatet. Se skærmbillede:
5. klik OK, og du kan se resultatet vist som nedenfor:
Flyt hver anden række til kolonne med Kutools til Excel
Udover formler og VBA, hvis du har installeret Kutools til Excel, kan du bruge dens Transformér rækkevidde funktion til hurtigt at flytte hver anden række til kolonne.
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
1. Vælg det interval, du vil flytte hver anden række, og klik på Kutools > Områdeomformer > Transformér rækkevidde. Se skærmbillede:
2. i Transformér rækkevidde dialog, tjek En kolonne til rækkevidde in Transform type sektion og tjek Fast værdi vælg eller indtast derefter 2 på listen i Rækker pr. Rekord afsnit. Se skærmbillede:
3. klik Ok for at åbne en dialog for at vælge en enkelt celle for at lægge resultatet ud, se skærmbillede:
4. Klik derefter på OK. Du kan se resultatet som vist nedenfor:
For mere information om Transform Range.
Relative artikler:
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!