Hur slår man samman två kolumner i en med alternerande värden i Excel?

Här är två kolumner i ett kalkylblad. Uppgiften är att slå samman dessa två kolumner till en, med alternerande värden, som visas i skärmdumpen nedan. Hur kan du snabbt hantera den här uppgiften utan att ordna om dem en efter en?

Slå samman två kolumner i en med alternerande värden med VBA-kod

Slå samman två kolumner i en med alternerande värden av Kutools för Excel

Slå samman två kolumner i en med alternerande värden med VBA-kod

För att slå samman två kolumner i en med alternerande värden finns det ingen inbyggd funktion förutom VBA-kod i Excel.

1. Tryck Alt + F11 för att aktivera Microsoft Visual Basic för applikationer fönster. Klick Insert > Modulerna för att skapa en ny tom modul.

2. Kopiera och klistra in koden nedan till modulen.

VBA: Slå samman två kolumner i en med värdealternativ

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. Tryck F5 och välj två kolumner som du vill slå samman till poppdialogen.

4. klick OK, i den andra dialogen, välj en cell för att placera resultatet.

5. klick OK. Nu har de valda två kolumnerna slagits samman till en med alternerande värden.

Slå samman två kolumner i en med alternerande värden av Kutools för Excel

Om du Kutools för Excel installerad i Excel, dess Transform Range verktyget kan utföra denna uppgift i bara tre enkla steg.

1. Markera de kolumner (två eller fler) du vill slå samman, klicka Kutools > Transform Range.

2. I Transform Range dialogrutan, kontrollera Range to single column alternativet och klicka på Ok.

3. Välj en cell för att placera resultatet i poppdialogen. Klick OK.

Nu har kolumnerna slagits samman till en och värdena växlar mellan de två.

Demo: Transponera intervall med Kutools för Excel