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?

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 vrednostmi

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.

4. klik OK, v drugem pogovornem oknu izberite celico, v katero želite postaviti rezultat.

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.

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.

2. V Ljubljani Transform Range pogovorno okno, preverite Range to single column in kliknite Ok.

3. Izberite celico, da boste rezultat postavili v pogovorno okno. Kliknite OK.

Zdaj so stolpci združeni v enega in vrednosti so v drugačnem vrstnem redu.

  Obseg prenosa

---

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.

Preberite več ... Brezplačen prenos... Nakup ... 

---

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!

Preberite več ... Brezplačen prenos... Nakup ...