Jak sloučit dva sloupce do jednoho se střídavými hodnotami v aplikaci Excel?

Zde jsou dva sloupce v listu, co je úkolem sloučit tyto dva sloupce do jednoho sloupce s alternativou hodnot, jak je uvedeno níže. Jak můžete rychle zvládnout úlohu, aniž byste je postupně objednávali?

Sloučte dva sloupce do jednoho se střídáním hodnot podle kódu VBA

Sloučit dva sloupce do jednoho se střídajícími se hodnotami pomocí Kutools pro Excel

Sloučte dva sloupce do jednoho se střídáním hodnot podle kódu VBA

Chcete-li sloučit dva sloupce do jednoho se střídavými hodnotami, neexistuje žádná vestavěná funkce kromě kódu VBA v aplikaci Excel.

1. lis Alt + F11 klíče k povolení Microsoft Visual Basic pro aplikace okno. Klikněte na tlačítko Vložit > Modul k vytvoření nového prázdného modulu.

2. Zkopírujte a vložte níže uvedený kód do modulu.

VBA: Sloučit dva sloupce do jednoho s alternativou hodnoty

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. lis F5 a vyberte dva sloupce, které chcete sloučit do rozbalovacího dialogu.

4. cvaknutí OK, ve druhém dialogu vyberte buňku, do které chcete umístit výsledek.

5. cvaknutí OK. Nyní byly vybrané dva sloupce sloučeny do jednoho a s alternativou hodnot.

Sloučit dva sloupce do jednoho se střídajícími se hodnotami pomocí Kutools pro Excel

Pokud máte Kutools pro Excel nainstalován v aplikaci Excel, jeho Transform Range obslužný program může vyřešit tuto práci pouze se 3 snadnými kroky.

Po instalaci Kutools pro Excel, prosím, postupujte takto:（Zdarma ke stažení Kutools pro Excel nyní!)

1. Vyberte sloupce (dva nebo více), které chcete sloučit, klepněte na Kutools > Transform Range.

2. V Transform Range dialog, zkontrolujte Range to single column a klepněte na tlačítko Ok.

3. Vyberte buňku a umístěte výsledek do rozbalovacího dialogu. Klepněte na OK.

Nyní byly sloupce sloučeny do jednoho a hodnoty jsou v alternativním pořadí.

  Rozsah transpozice