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.
Kutools pentru Excel, cu mai mult de 300 funcții la îndemână, vă face munca mai ușoară. |
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 de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!