Çoklu satırları tek sütun yapmak

[AD2008]

Merhaba arkadaşlar sizden bir ricam var.

____A____B____C____D____E____F____G
1___i____ii_____iii____iv___v____vi____vii
2__viii___ix____x_____xi___xii___xiii__xiv
3___...___...____...____...____...____...____...
4___...___...____...____...____...____...____...
5___...___...____...____...____...____...____...

bu tabloyu i, ii, iii, iv, v, vi, vii, viii, ix, x, xi, xii, xiii ........ şekilden sıralamak istiyorum. bunun için bir makro yazabilir misiniz?

Bu konudaki gibi değil burada tek sütuna getirirken A sütununu aşağı doğru sıraladıktan sonra B sütununu sıralıyor. ben 1. satırı alt alta yazdıktan sonra 2. satırı alt alta yazsın istiyorum.

bu konuda bir yardımınız olursa çok mutlu olurum.

 

[AD2008]

Sub ConvertRangeToColumn()
'UpdatebyExtendoffice
Dim Range1 As Range, Range2 As Range, Rng As Range
Dim rowIndex As Integer
xTitleId = "KutoolsforExcel"
Set Range1 = Application.Selection
Set Range1 = Application.InputBox("Source Ranges:", xTitleId, Range1.Address, Type:=8)
Set Range2 = Application.InputBox("Convert to (single cell):", xTitleId, Type:=8)
rowIndex = 0
Application.ScreenUpdating = False
For Each Rng In Range1.Rows
    Rng.Copy
    Range2.Offset(rowIndex, 0).PasteSpecial Paste:=xlPasteAll, Transpose:=True
    rowIndex = rowIndex + Rng.Columns.Count
Next
Application.CutCopyMode = False
Application.ScreenUpdating = True
End Sub

cevap gelmeyince kendim buldum arkadaşlar. buyrun. herkes kullansın