Note: The other languages of the website are Google-translated. Back to English

Kako prenesti vsakih 5 ali n vrstic iz enega stolpca v več stolpcev?

doc transponiraj vsakih 5 vrstic 1

Recimo, da imate dolge podatke v stolpcu A, zdaj pa želite prenesti vsakih 5 vrstic iz stolpca A v več stolpcev, na primer prenesite A1: A5 v C6: G6, A6: A10 do C7: G7 itd. prikazan naslednji posnetek zaslona. Kako bi se lahko spopadli s to nalogo, ne da bi večkrat kopirali in prilepili v Excel?

Prenesite vsakih 5 ali n vrstic iz enega stolpca v več stolpcev s formulo

Prenesite vsakih 5 ali n vrstic iz enega stolpca v več stolpcev s kodo VBA

Prenesite vsakih 5 ali n vrstic iz enega stolpca v več stolpcev s programom Kutools za Excel


V Excelu lahko uporabite naslednjo formulo za prenos vsakih n vrstic iz enega stolpca v več stolpcev, naredite naslednje:

1. V prazno celico vnesite naslednjo formulo, kamor želite dati rezultat, na primer C1 = INDEKS ($ A: $ A, RED (A1) * 5-5 + STOLPEC (A1)), glej posnetek zaslona:

doc transponiraj vsakih 5 vrstic 2

Opombe: V zgornji formuli, A: A je referenca stolpca, ki jo želite prenesti, in A1 je prva celica uporabljenega stolpca, število 5 označuje število stolpcev, ki jih bodo našli vaši podatki, jih lahko spremenite po svoji potrebi. Prva celica na seznamu mora biti v prvi vrstici delovnega lista.

2. Nato povlecite ročico za polnjenje desno na pet celic in nadaljujte s povlečenjem ročice za polnjenje do obsega celic, dokler se ne prikaže 0, glejte posnetek zaslona:

doc transponiraj vsakih 5 vrstic 3


Vsakih 5 ali n vrstic pretvorite iz enega stolpca v več stolpcev:

Če želite pretvoriti vsakih 5 ali n vrstic iz enega stolpca v več stolpcev, Kutools za Excel's Območje preoblikovanja pripomoček vam lahko pomaga, da to nalogo rešite čim hitreje. Pomaga vam lahko tudi pri prenosu obsega podatkov v eno vrstico ali stolpec. Kliknite za prenos Kutools za Excel!

doc transponiraj vsakih 5 vrstic 10

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!


Če formule ne morete pravilno uporabiti, vam lahko pomaga tudi naslednja koda VBA.

1. Držite tipko ALT + F11 tipke za odpiranje Microsoft Visual Basic za aplikacije okno.

2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.

Koda VBA: Prenesite vsakih 5 ali n vrstic iz enega stolpca v več stolpcev:

Public Sub TransposeData()
'updateby Extendoffice
    Dim xLRow As Long
    Dim xNRow As Long
    Dim i As Long
    Dim xUpdate As Boolean
    Dim xRg As Range
    Dim xOutRg As Range
    Dim xTxt As String
    On Error Resume Next
    xTxt = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select data range(only one column):", "Kutools for Excel", xTxt, , , , , 8)
    Set xRg = Application.Intersect(xRg, xRg.Worksheet.UsedRange)
    If xRg Is Nothing Then Exit Sub
    If (xRg.Columns.Count > 1) Or _
       (xRg.Areas.Count > 1) Then
        MsgBox "the used range only contain one column", , "Kutools for Excel"
        Exit Sub
    End If
    Set xOutRg = Application.InputBox("please select output range(specify one cell):", "Kutools for Excel", xTxt, , , , , 8)
    If xOutRg Is Nothing Then Exit Sub
    Set xOutRg = xOutRg.Range(1)
    xUpdate = Application.ScreenUpdating
    Application.ScreenUpdating = False
    xLRow = xRg.Rows.Count
    For i = 1 To xLRow Step 5
        xRg.Cells(i).Resize(5).Copy
        xOutRg.Offset(xNRow, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
        xNRow = xNRow + 1
    Next
    Application.ScreenUpdating = xUpdate
End Sub

3. Po lepljenju kode pritisnite F5 tipko, da jo zaženete, in pojavilo se bo pozivno polje, ki vas bo opomnilo, da izberete stolpec, ki ga želite prenesti, glejte posnetek zaslona:

doc transponiraj vsakih 5 vrstic 4

4. Nato kliknite OKin izberite eno celico, kamor želite rezultat postaviti v drugo izpustno polje, glejte posnetek zaslona:

doc transponiraj vsakih 5 vrstic 5

5. in kliknite OK, podatki v stolpcu so pretvorjeni v pet stolpcev, ki jih potrebujete, glejte posnetek zaslona:

doc transponiraj vsakih 5 vrstic 6

Opombe: V zgornji kodi lahko spremenite številko 5 na drugo številko, ki jo potrebujete.


Če imate Kutools za Excel, Z njegovim Območje preoblikovanja pripomoček, lahko hitro prenesete en stolpec ali vrstico v več stolpcev in vrstic.

Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. 

Po namestitvi Kutools za Excel, naredite naslednje:

1. Izberite podatke v stolpcu in kliknite Kutools > Območje > Območje preoblikovanja, glej posnetek zaslona:

2. v Območje preoblikovanja pogovorno okno, izberite En stolpec za obseg možnost pod Vrsta preoblikovanjain nato preverite Fiksna vrednost pod Vrstice na zapis, nato določite število stolpcev, ki jih želite prenesti v Fiksna vrednost , glej posnetek zaslona:

doc transponiraj vsakih 5 vrstic 8

3. In nato kliknite Ok gumb, v izpuščenem polju izberite celico za prikaz rezultata, glejte posnetek zaslona:

doc transponiraj vsakih 5 vrstic 9

4. Nato kliknite OK in podatki stolpca so bili preneseni vsakih 5 vrstic, kot je prikazano na sliki spodaj:

doc transponiraj vsakih 5 vrstic 6

Prenesite in brezplačno preizkusite Kutools za Excel zdaj!


Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Najboljša orodja za pisarniško produktivnost

Kutools za Excel rešuje večino vaših težav in poveča vašo produktivnost za 80%

  • Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
  • Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
  • Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
  • Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
  • Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
  • Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
  • Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
  • Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
  • Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2021 in 365. Podpira vse jezike. Enostavna uvedba v vašem podjetju ali organizaciji. 30-dnevna brezplačna preizkusna različica vseh funkcij. 60-dnevna garancija vračila denarja.
zavihek kte 201905

Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo

  • Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
  • Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
  • Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!
dno pisarniške mize
Komentarji (15)
Ocenjeno 5 iz 5 · 1 ocene
Ta komentar je moderator na spletnem mestu minimiziral
Živjo! Naj vas vprašam, kako namesto 5 dodati zapise mejnikov praznih celic, saj podatki, ki jih obdelujem, nimajo določenega števila vrstic. Verjamem, da je del, ki bi ga moral spremeniti, lahko okoli tega dela kode: Za i = 1 do xLRow, korak 5 xRg.Cells(i).Resize(5).Copy xOutRg.Offset(xNRow, 0).PasteSpecial Paste: =xlPasteAll, Transpose:=True xNRow = xNRow + 1 Best
Ta komentar je moderator na spletnem mestu minimiziral
ali ste dobili odgovor za isto, saj imam isto težavo, stolpci niso določeni v številkah, kaj naj storim, ali lahko uporabim določen znak kot ločilo, ki prekine zanko in šteje naslednjo vrstico in nov nabor podatkov?
Ta komentar je moderator na spletnem mestu minimiziral
Imam enako težavo, kjer stolpci niso fiksni in so prazne vrstice, vendar imam enak znak in konec vsakega nabora podatkov, to je "=" ali lahko to uporabim kot ločilo, ki prekine zanko in se naslednja vrstica šteje za nov nabor podatkov?
Ta komentar je moderator na spletnem mestu minimiziral
Kakšno formulo prenesti vsakih 5 vrstic v en sam stolpec?
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala! Res je bilo v pomoč. :)
Ta komentar je moderator na spletnem mestu minimiziral
Bilo je odlično! Hvala vam! Prihranili ste mi ure ročnega dela!
Ta komentar je moderator na spletnem mestu minimiziral
= INDEKS ($ A: $ A, RED (A1) * 5-5 + STOLPEC (A1))
Bilo je zelo preprosto in res uporabno. Najlepša hvala
Ta komentar je moderator na spletnem mestu minimiziral
To je prekleto ODLIČNO!!! Najlepša hvala. Vaš primer je bil točno tisto, kar sem potreboval in je deloval lepo.
Ta komentar je moderator na spletnem mestu minimiziral
Preizkusil sem samo možnost formule in je delovala odlično. Do zdaj smo uporabljali (Transpose formulo s ctrl+shift+enter), vendar je tu pomanjkljivost, ker smo izbrisali veliko dodatnih vrstic. ko je treba vrstice prenesti za velike v vrstnem redu lakhov, je njihovo brisanje v excelu nemogoče ali pa vzame veliko časa.
ta pristop je olajšal življenje s kopiranjem samo zahtevanih vrstic... Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Najlepša hvala _/\_ Odlično delo z =INDEX($A:$A,ROW(B1)*5-5+COLUMN(B1))
delal odlično
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, kako to narediti za Colms v vrstice. Hvala vam
Ta komentar je moderator na spletnem mestu minimiziral
Ukaz sem prepisal na tole:
=INDEX($A:$A,VRSTICA(A1)+((STOLPEC(A1)-2)*5))
S tem se izvede obrnjeno.
Torej:
1
2
3
4
5
6
7
8
9
...
postane
1, 6
2, 7
3, 8
4, 9
5, ...
Ta komentar je moderator na spletnem mestu minimiziral
Poskušam narediti tako, kot je napisano, in dobim le napako:508
Ta komentar je moderator na spletnem mestu minimiziral
Ti si genij. hvala
Ocenjeno 5 iz 5
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni,

J'ai, dans mon unique colonne de données, des cellules placées aléatoirement toutes les x lignes et qui contiennent une suite de caractères.

Je voudrait que cette cellule soit dans la première colonne de la ligne transposée, avec, dans les colonnes suivantes, la transposition des lignes qui la suivent, jusqu'à la répétition de ma chaine de caractères, qui signifierait le début de la ligne suivante. ..

Bref, Heeelllp...

Merci d'avance
Stéphane
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL