Excel'de sütunları soldan sağa tek bir sütuna nasıl yığınlayabilirsiniz?
Diyelim ki birden fazla sütununuz var; amacınız, aşağıdaki ekran görüntüsünde gösterildiği gibi bu sütunları soldan sağa doğru tek bir sütunda üst üste yığmak. Sütunları tek tek elle taşımak dışında, Excel’de bunu gerçekleştirmek için başka pratik yöntemler var mı?
VBA ile sütunları Soldan Sağa tek bir sütuna yığınlayın
Kutools for Excel ile sütunları Soldan Sağa tek bir sütuna yığınlayın
VBA ile sütunları Soldan Sağa tek bir sütuna yığınlayın
Excel'de bu işi yapabilecek yerleşik bir işlev bulunmamaktadır; ancak VBA kodu size yardımcı olabilir.
1. Alt + F11 tuşlarına basın, ardından açılan Microsoft Visual Basic for Applications penceresinde Ekle > Modül seçeneğine tıklayarak yeni boş bir modül oluşturun.
2. Aşağıdaki kodu kopyalayıp Modül kısmına yapıştırın.
VBA: Sütunları tek bir sütuna yığınla
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; sizden yığınlanacak sütunları seçmenizi isteyen bir iletişim kutusu açılacaktır.
4. Tamam'a tıklayın ve sonucun yerleştirileceği hücreyi seçin.
5. İşlemi tamamlamak için Tamam'a tıklayın. Artık seçili sütunlar tek bir sütunda yığınlanmış durumda!
Kutools for Excel ile sütunları Soldan Sağa tek bir sütuna yığınlayın
Excel'e Kutools for Excel eklentisi kuruluysa, bu işi halletmek için Transform Range yardımcısını kullanabilirsiniz.
Kutools for Excel yüklendikten sonra lütfen aşağıdaki adımları izleyin:Kutools for Excel
1. Yığınlamak istediğiniz sütunları seçin, ardından Kutools > Aralık > Transform Range seçeneğine tıklayın.
2. Transform Range iletişim kutusunda, Range to single row onay kutusunu işaretleyin ve Tamam'a tıklayın.
3. Açılan iletişim kutusunda sonucun yerleştirileceği hücreyi seçin ve Tamam'a tıklayın.
Artık sütunlar tek bir satıra dönüştürüldü.
4. Tek satırı seçin, kopyalamak için Ctrl + C tuşlarına basın; ardından yığın sütununun yerleştirileceği başka bir hücreye tıklayın, sağ tıklayıp bağlam menüsünden Transpose (T) seçeneğini seçin.
Artık tek satır, yığın sütununa dönüştürüldü.
En İyi Office Verimlilik Araçları
Excel becerilerinizi Kutools for Excel ile güçlendirin ve hiç yaşanmamış bir verimlilik deneyimi yaşayın.Kutools for Excel, verimliliği artırmak ve Zamanı Kaydet için 300’den fazla gelişmiş özelliğe sahiptir.İhtiyacınız olan özelliği hemen edinmek için buraya tıklayın…
Office Tab, Office’e sekmeli arayüz getirir ve işlerinizi çok daha kolay hale getirir
- Word, Excel, PowerPoint, Publisher, Access, Visio ve Project’te sekmeli düzenleme ve okuma özelliğini etkinleştirin.
- Birden fazla belgeyi yeni pencerelerde değil, aynı pencerenin yeni sekmelerinde açın ve oluşturun.
- Günlük verimliliğinizi %50 artırır ve her gün yüzlerce fare tıklamasından tasarruf etmenizi sağlar!
Tüm Kutools eklentileri — tek bir yükleyiciyle!
Kutools for Office paketi; Excel, Word, Outlook ve PowerPoint için eklentilerin yanı sıra Office Tab Pro’yu da içerir ve Office uygulamalarında çalışan ekipler için idealdir.
- Hepsi bir arada paket— Excel, Word, Outlook ve PowerPoint eklentileri + Office Tab Pro
- Tek yükleyici, tek lisans— birkaç dakikada kurulum (MSI uyumlu)
- Birlikte daha iyi çalışır— Office uygulamalarında akıcı verimlilik
- 30 günlük tam özellikli deneme— kayıt gerekmez, kredi kartı gerekmez
- En iyi fiyat performans— tek tek eklenti satın almaya göre tasarruf edin