Hoe u om de andere rij naar kolom verplaatst in Excel
Heb je ooit geprobeerd om elke andere rijgegevens naar een kolom in Excel te verplaatsen, zoals het verplaatsen van elke oneven rij naar een kolom en elke even rij naar de andere kolom, die wordt weergegeven als onder screenshot. Hier vind ik enkele trucs die dit probleem kunnen oplossen.
Verplaats elke andere rij naar kolom met formule
Verplaats elke andere rij naar kolom met VBA
Verplaats elke andere rij naar kolom met Kutools voor Excel
Verplaats elke andere rij naar kolom met formule
Voor de meeste Excel-gebruikers is het gebruik van een formule om een probleem in Excel op te lossen de gemakkelijkste manier.
1. Selecteer een cel naast uw gegevens en typ deze formule = ALS (ISEVEN (RIJ (B2)), B2, "") (B2 geeft de gegevens aan die u wilt ophalen) en druk op Enter -toets en sleep vervolgens de automatische vulling om het bereik te vullen dat u met deze formule wilt gebruiken. Nu zijn elke tweede rij gegevens in deze kolom opgehaald.
2. Selecteer vervolgens de andere cel naast de bovenstaande kolom en typ deze formule = ALS (ISODD (RIJ (B3)), B3, "") (B3 zijn de gegevens die u wilt krijgen) erin en druk op Enter -toets en sleep vervolgens de automatische vulling om het bereik te vullen dat u met deze formule wilt gebruiken. Nu zijn elke derde rij gegevens in deze kolom ontvangen.
Verplaats elke andere rij naar kolom met VBA
De volgende VBA kan ook om de andere rij naar kolom worden verplaatst.
1. druk op F11 + Alt toetsen samen op het toetsenbord om de M te openenicrosoft Visual Basic voor toepassingen venster.
2. Dan klikken Invoegen > Module om een nieuw modulevenster in te voegen. En kopieer vervolgens de volgende VBA-code naar het venster.
VBA: verplaats elke andere rij naar kolom.
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. klikken lopen knop of F5 toets op het toetsenbord en er verschijnt een dialoogvenster waarin u een bereik kunt selecteren dat u wilt verplaatsen. Zie screenshot:
4. Dan klikken OK om het andere dialoogvenster weer te geven om een cel te selecteren om het resultaat uit te voeren. Zie screenshot:
5. klikken OK, en u kunt het resultaat zien zoals hieronder:
Verplaats elke andere rij naar kolom met Kutools voor Excel
Naast formules en VBA, als je die hebt geïnstalleerd Kutools for Excel, je kunt zijn Transformeer bereik functie om snel om de andere rij naar kolom te gaan.
Kutools for Excel bevat meer dan 300 handige Excel-tools. Gratis te proberen zonder beperking binnen 30 dagen. Get it Now
1. Selecteer het bereik dat u om de rij wilt verplaatsen en klik op Kutools > Bereikomvormer > Transformeer bereik. Zie screenshot:
2. In de Transformeer bereik dialoogvenster, vink aan Enkele kolom om te bereiken in Transformatietype sectie en controleer Vaste waarde selecteer vervolgens of voer in 2 in de lijst in Rijen per record sectie. Zie screenshot:
3. klikken Ok om een dialoogvenster te openen om een enkele cel te selecteren om het resultaat te tonen, zie screenshot:
4. Dan klikken OK. U kunt het resultaat zien zoals hieronder weergegeven:
Voor meer informatie over Transform Range.
Relatieve artikelen:
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar efficiëntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker
- Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
- Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
- Verhoogt uw productiviteit met 50% en vermindert honderden muisklikken voor u elke dag!