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

Kako zložiti stolpce od leve proti desni v en stolpec v Excelu?

Če obstaja več stolpcev, je naloga, da stolpce zložite od leve proti desni v en sam stolpec, kot je prikazano spodaj. Ali obstajajo kakšni triki za reševanje tega v Excelu, razen ročnega premikanja stolpcev enega za drugim?
stolpci sklada dokumentov od leve proti desni 1

Stolpce zložite od leve proti desni v en stolpec z VBA

Stolpce zložite od leve proti desni v en stolpec z Kutools za Excel


Stolpce zložite od leve proti desni v en stolpec z VBA

V Excelu ni vgrajene funkcije, ki bi lahko opravila to nalogo, vendar vam lahko pomaga koda VBA.

1. Pritisnite Alt + F11 tipke, nato v Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli da ustvarite nov prazen modul.

2. Kopirajte in prilepite spodnjo kodo v Moduli.

VBA: Stolpce zložite v enega

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select Columns:", "Kutools for Excel", xTxt, , , , , 8)
If xSRg Is Nothing Then
Err1:
    Application.ScreenUpdating = True
    Exit Sub
End If
Set xDRg = Application.InputBox("Select a cell to place result:", "Kutools for Excel", xTxt, , , , , 8)
If xDRg Is Nothing Then
    Exit Sub
End If
Application.ScreenUpdating = False
Set xDWS = xDRg.Worksheet
xIntDR = xDRg.Row
xIntDC = xDRg.Column
xI = 0
    For xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

stolpci sklada dokumentov od leve proti desni 2

3. Pritisnite F5 tipko za zagon kode, odpre se pogovorno okno za izbiro stolpcev, v katere boste zložili enega.
stolpci sklada dokumentov od leve proti desni 3

4. klik OK, izberite celico, v katero želite postaviti rezultat.
stolpci sklada dokumentov od leve proti desni 4

5. klik OK končati. Zdaj so izbrani stolpci zloženi v en stolpec.
stolpci sklada dokumentov od leve proti desni 5


Stolpce zložite od leve proti desni v en stolpec z Kutools za Excel

Če imate Kutools za Excel nameščen v Excelu, lahko uporabite Transform Range pripomoček za to opravilo.

Kutools za Excel, z več kot 300 priročne funkcije, vam olajša delo. 

Po namestitvi Kutools za Excel, naredite spodaj:(Brezplačno prenesite Kutools za Excel zdaj!)

1. Izberite stolpce, ki jih želite zložiti, kliknite Kutools > Območje > Transform Range.
stolpci sklada dokumentov od leve proti desni 6

2. V Ljubljani Transform Range pogovorno okno, preverite Range to single row potrdite polje, kliknite Ok.
stolpci sklada dokumentov od leve proti desni 7

3. V pogovornem oknu izberite celico, v katero želite postaviti rezultat, kliknite OK.
stolpci sklada dokumentov od leve proti desni 8

Zdaj so stolpci preoblikovani v eno vrstico.
stolpci sklada dokumentov od leve proti desni 9

4. Izberite eno vrstico in pritisnite Ctrl + C da ga kopirate in izberete drugo celico, ki bo postavila stolpec sklada, z desno miškino tipko izberite Transpose(T) v kontekstnem meniju.
stolpci sklada dokumentov od leve proti desni 10

Zdaj je bila posamezna vrstica prenesena v stolpec skladov.
stolpec skladov dokumentov od leve proti desni 11


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 (3)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Word goljufa za enako:
- kopirajte vse svoje vrstice in vrstice v Excelu
- prilepite brez v Wordov dokument
- ctrl + h (poišči in zamenjaj)
- kopirajte tabelarni prostor med dvema vrsticama
- prilepi v iskalno vrstico
- zamenjaj z zavihki s prelomi vrstic "^l"

Vse vaše celice so zdaj v stolpcu v vašem Wordovem dokumentu.
Kopiraj, prilepi jih v Excel: končano!
Ta komentar je moderator na spletnem mestu minimiziral
Večno ti bom hvaležen. Najlepša hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Ali kdo ve, kako zamenjati/trdo kodirati stolpce (ne priklicati sporočilnega polja za izbiro)? Torej, nastavite XSRg na nekaj takega: Set xSRg = Range("A1").CurrentRegion.Select(kar ne deluje, ker neujemanja vrste) hvala
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