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

Kako združiti dva stolpca v enega z izmeničnimi vrednostmi v Excelu?

Tukaj sta dva stolpca na delovnem listu, naloga pa je združiti ta dva stolpca v en stolpec z alternativnimi vrednostmi, kot je prikazano spodaj. Kako lahko hitro opravite delo, ne da bi jih preuredili enega po enega?
doc združi dva stolpca v enega z izmenično vrednostjo 1

Združite dva stolpca v enega z izmeničnimi vrednostmi s kodo VBA

Kutools za Excel združite dva stolpca v enega z izmeničnimi vrednostmidobra ideja3


Združite dva stolpca v enega z izmeničnimi vrednostmi s kodo VBA

Če želite združiti dva stolpca v enega z izmeničnimi vrednostmi, v Excelu ni vgrajene funkcije, razen kode VBA.

1. Pritisnite Alt + F11 tipke za omogočanje Microsoft Visual Basic za aplikacije okno. Kliknite Vstavi > Moduli da ustvarite nov prazen modul.

2. Kopirajte in prilepite spodnjo kodo v modul.

VBA: združite dva stolpca v enega z alternativo vrednosti

Sub MergeColumns()
'UpdatebyExtendoffice20180815
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNum As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select two 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 xFNum = 1 To xSRg.Count
        Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
        xDRg.Value = xSRg.Item(xFNum).Value
        xI = xI + 1
    Next xFNum
Application.ScreenUpdating = True
End Sub

3. Pritisnite F5 in izberite dva stolpca, ki ju želite združiti v pogovorno okno.
doc združi dva stolpca v enega z izmenično vrednostjo 2

4. klik OK, v drugem pogovornem oknu izberite celico, v katero želite postaviti rezultat.
doc združi dva stolpca v enega z izmenično vrednostjo 3

5. klik OK. Zdaj sta izbrana dva stolpca združena v enega in z alternativnimi vrednostmi.


Kutools za Excel združite dva stolpca v enega z izmeničnimi vrednostmi

Če imate Kutools za Excel nameščen v Excelu, njegov Transform Range pripomoček lahko to nalogo reši v samo treh preprostih korakih.

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 (dva ali več), ki jih želite združiti, kliknite Kutools > Transform Range.
doc združi dva stolpca v enega z izmenično vrednostjo 4

2. V Ljubljani Transform Range pogovorno okno, preverite Range to single column in kliknite Ok.
doc združi dva stolpca v enega z izmenično vrednostjo 5

3. Izberite celico, da boste rezultat postavili v pogovorno okno. Kliknite OK.
doc združi dva stolpca v enega z izmenično vrednostjo 6

Zdaj so stolpci združeni v enega in vrednosti so v drugačnem vrstnem redu.
doc združi dva stolpca v enega z izmenično vrednostjo 7


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 (1)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Delovalo je! Hvala vam!!
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