Birden fazla sütunu sütunda birleştirme gereksiniminiz varsa ve bir ipucunuz yoksa, bu makalenin tamamı tam size göre. Bu yazıda, vba kodunu kullanarak birden çok sütunu tek bir sütunda nasıl birleştireceğimizi öğreneceğiz.
Aşağıdaki anlık görüntüden: -
Gereken çıktının anlık görüntüsü aşağıdadır: -
Aşağıdaki adımları izlememiz gerekiyor:
- Geliştirici sekmesine tıklayın
- Kod grubundan Visual Basic'i seçin
Standart modüle aşağıdaki kodu girin
Sub MultipleColumns2SingleColumn()
Const shName1 As String = "Sayfa1" 'Sayfa adını buradan değiştirin
Const shName2 As String = "Sayfa2"
Dim arr, arrNames
Çalışma Sayfaları ile(shName1)
arrNames = .Range("F1", .Cells(1, Columns.Count).End(xlToLeft))
i = 2 için .Cells(Rows.Count, 1).End(xlUp).Row
dizi = .Cells(i, 1).Resize(, 4)
Çalışma Sayfaları ile(shName2)
.Cells(Rows.Count, 1).End(xlUp) ile
.Offset(1).Resize(UBound(arrNames, 2), 4) = dizi
.Offset(1, 5).Resize(UBound(arrNames, 2)) = Application.Transpose(arrNames)
İle bitmek
İle bitmek
Sonraki
İle bitmek
Alt Bitiş
Makroyu yürütürken; makro, verileri birden çok sütundan tek bir sütuna aktarır.
Bu şekilde birden çok sütun verisini tek bir sütunda birleştirebiliriz.
