Cum se îmbină două coloane într-una cu valori alternative în Excel?

Iată două coloane într-o foaie de lucru, care este sarcina de a îmbina aceste două coloane într-o singură coloană cu valorile alternative, așa cum este prezentată mai jos. Cum poți să te descurci rapid fără a le reordona unul câte unul?

Îmbinați două coloane într-una cu valori alternative prin codul VBA

Îmbinați două coloane într-una cu valori alternative de Kutools pentru Excel

Îmbinați două coloane într-una cu valori alternative prin codul VBA

Pentru a îmbina două coloane într-una cu valori alternative, nu există nicio funcție încorporată, cu excepția codului VBA în Excel.

1. presa Alt + F11 taste pentru activare Microsoft Visual Basic pentru aplicații fereastră. Clic Insera > Module pentru a crea un nou modul gol.

2. Copiați și lipiți codul de mai jos în modul.

VBA: îmbinați două coloane într-una cu valoare alternativă

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. presa F5 tasta și selectați două coloane pe care doriți să le îmbinați în caseta de dialog popping.

4. clic OK, în al doilea dialog, selectați o celulă pentru a plasa rezultatul.

5. clic OK. Acum cele două coloane selectate au fost îmbinate într-una singură și cu valorile alternative.

Îmbinați două coloane într-una cu valori alternative de Kutools pentru Excel

Dacă aveţi Kutools pentru Excel instalat în Excel, este Transform Range utilitarul poate rezolva acest job cu doar 3 pași simpli.

După instalare Kutools pentru Excel, faceți următoarele:（Descărcați gratuit Kutools pentru Excel acum!)

1. Selectați coloanele (două sau mai multe) pe care doriți să le îmbinați, faceți clic pe Kutools > Transform Range.

2. În Transform Range dialog, verificați Range to single column și faceți clic pe Ok.

3. Selectați o celulă pentru a plasa rezultatul în dialogul popping. Clic OK.

Acum coloanele au fost îmbinate într-una și valorile sunt în ordine alternativă.

  Transpuneți gama

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...