Excel'de sırayla değişen değerlerle iki sütunu nasıl birleştirirsiniz?

Çalışma sayfasında iki sütun bulunmaktadır. Görev, bu iki sütunu, aşağıdaki ekran görüntüsünde gösterildiği gibi, sırayla değişen değerlerle tek bir sütunda birleştirmektir. Bu görevi, değerleri tek tek yeniden sıralamadan hızlıca nasıl halledebilirsiniz?

VBA kodu ile sırayla değişen değerlerle iki sütunu birleştirme

Kutools for Excel ile sırayla değişen değerlerle iki sütunu birleştirme

VBA kodu ile sırayla değişen değerlerle iki sütunu birleştirme

Sırayla değişen değerlerle iki sütunu birleştirmek için Excel'de yerleşik bir işlev bulunmamaktadır, VBA kodu dışında.

1. Microsoft Visual Basic for Applications penceresini etkinleştirmek için Alt + F11 tuşlarına basın. Yeni boş bir modül oluşturmak için Ekle > Modül'e tıklayın.

2. Aşağıdaki kodu modüle kopyalayıp yapıştırın.

VBA: Sırasıyla değerleri değiştirerek iki sütunu birleştirme

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. Tuşa basın F5 ve açılır diyalogda birleştirmek istediğiniz iki sütunu seçin.

4. Tıklayın TAMAM, ikinci diyalogda sonucu yerleştirmek için bir hücre seçin.

5. TAMAM'a tıklayın. Şimdi, seçilen iki sütun, sırayla değişen değerlerle birleştirilmiştir.

Kutools for Excel ile sırayla değişen değerlerle iki sütunu birleştirme

Excel'de Kutools for Excel yüklüyse, Aralığı Dönüştür yardımcı programı bu görevi yalnızca üç kolay adımda gerçekleştirebilir.

1. Birleştirmek istediğiniz sütunları (iki veya daha fazla) seçin ve tıklayın Kutools > Aralığı Dönüştür.

2. İçinde Aralığı Dönüştür diyalogunda işaretleyin Aralığı Tek Sütuna Dönüştür seçeneğini işaretleyin ve tıklayın Tamam.

3. Sonucu yerleştirmek için açılır diyalogda bir hücre seçin. Tıklayın TAMAM.

Şimdi, sütunlar tek bir sütunda birleştirilmiş ve değerler iki sütun arasında sırayla değişmektedir.

Demo: Kutools for Excel kullanarak Aralık Dönüştürme