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.
En İyi Ofis Verimlilik Araçları
Kutools for Excel ile Excel becerilerinizi güçlendirin ve benzersiz bir verimlilik deneyimi yaşayın. Kutools for Excel, üretkenliği artırmak ve zamandan tasarruf etmek için300'den fazla Gelişmiş Özellik sunuyor. İhtiyacınız olan özelliği almak için buraya tıklayın...
Office Tab, Ofis uygulamalarına sekmeli arayüz kazandırır ve işinizi çok daha kolaylaştırır.
- Word, Excel, PowerPoint'te sekmeli düzenleme ve okuma işlevini etkinleştirin.
- Yeni pencereler yerine aynı pencerede yeni sekmelerde birden fazla belge açıp oluşturun.
- Verimliliğinizi %50 artırır ve her gün yüzlerce mouse tıklaması azaltır!
Tüm Kutools eklentileri. Tek kurulum
Kutools for Office paketi, Excel, Word, Outlook & PowerPoint için eklentileri ve Office Tab Pro'yu bir araya getirir; Office uygulamalarında çalışan ekipler için ideal bir çözümdür.
- Hepsi bir arada paket — Excel, Word, Outlook & PowerPoint eklentileri + Office Tab Pro
- Tek kurulum, tek lisans — dakikalar içinde kurulun (MSI hazır)
- Birlikte daha verimli — Ofis uygulamalarında hızlı üretkenlik
- 30 günlük tam özellikli deneme — kayıt yok, kredi kartı yok
- En iyi değer — tek tek eklenti almak yerine tasarruf edin