Excel'de sütunları soldan sağa tek bir sütuna nasıl yığabiliriz?

Birden fazla sütun olduğunu varsayalım, iş bu sütunları aşağıdaki ekran görüntüsünde gösterildiği gibi soldan sağa tek bir sütuna yığılmaktır. Sütunları tek tek elle taşımaktan başka, bunu Excel'de çözmek için herhangi bir yöntem var mı?

VBA ile sütunları soldan sağa tek bir sütuna yığma

Kutools for Excel ile sütunları soldan sağa tek bir sütuna yığma

VBA ile sütunları soldan sağa tek bir sütuna yığma

Excel'de, bu işi yapabilecek yerleşik bir fonksiyon bulunmamakta, ancak VBA kodu size yardımcı olabilir.

1. Alt +F11 tuşlarına basın, ardından Microsoft Visual Basic for Applications penceresinde Insert > Module'a tıklayarak yeni boş bir modül oluşturun.

2. Aşağıdaki kodu Modül'e kopyalayıp yapıştırın.

VBA: Sütunları tek bir sütuna yığma

Sub StackColumns()
'UpdatebyExtendoffice20180814
Dim xSRg, xDRg As Range
Dim xDWS As Worksheet
Dim xIntDR, xIntDC, xI As Long
Dim xFNumR, xFNumC As Long
On Error GoTo Err1
Set xSRg = Application.InputBox("Select 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 xFNumC = 1 To xSRg.Columns.Count
        For xFNumR = 1 To xSRg.Rows.Count
            Set xDRg = xDWS.Cells(xIntDR + xI, xIntDC)
            xDRg.Value = xSRg.Cells(xFNumR, xFNumC).Value
            xI = xI + 1
        Next xFNumR
    Next xFNumC
Application.ScreenUpdating = True
End Sub

3. Kodu çalıştırmak için F5 tuşuna basın, seçtiğiniz sütunları tek bir sütuna yığmak için bir iletişim kutusu açılır.

4. Tıklayın Tamam, sonucu yerleştireceğiniz bir hücre seçin.

5. Tıklayın Tamam işlemi tamamlamak için. Artık seçilen sütunlar tek bir sütuna yığılmıştır.

Kutools for Excel ile sütunları soldan sağa tek bir sütuna yığma

Excel'de Kutools for Excel yüklüyse, bu işi çözmek için Transform Range aracı'nı kullanabilirsiniz.

Kutools for Excel'i yükledikten sonra lütfen şu adımları izleyin:

1. Yığınlamak istediğiniz sütunları seçin, tıklayın Kutools > Aralık > Aralığı Dönüştür.

2. Aralığı Dönüştür iletişim kutusunda Aralığı Tek Satıra Dönüştür onay kutusunu işaretleyin, tıklayın Tamam.

3. Açılan iletişim kutusunda, sonucu yerleştirmek için bir hücre seçin, tıklayın Tamam.

Şimdi sütunlar tek bir satıra dönüştürülmüştür.

4. Tek satırı seçin, basın Ctrl + C kopyalamak için ve yığın sütununu yerleştireceğiniz başka bir hücreyi seçin, sağ tıklayıp bağlam menüsünden Yer Değiştir (T) seçeneğini seçin.

Şimdi tek satır bir yığın sütuna dönüştürülmüştür.