üç ayrı sütundaki belirsiz sayıdaki veriyi başka bir sütunda belirli bir kuralla alma

[ardabe]

herkese merhaba

ben bu forma daha yeni üye oldum. bir konuda yardımlarınızı istiyorum.

elimde ayın beliri zamanlarında toplanmış üç grup veri var. başka bir program tarafından okuna bilmesi için bir formata sokulması gerekmekte. konuyu daha fazla uzatmamak için yardım istediğim soruyu yazıyorum...

elimizde üç adet sütun var.

A,B,C, sütunlarında verilerimiz var. bu verilerin başka bir tek sütuna sıralanmasını gerekiyor. yanlız bir formatı olacak. verileri sıraladığımız sütunda.

A1
B1
C1
A2
B2
C2
A3
B3
C3
......

A2230
B2230
C2230

gibi sıralanması lazım bunun yapılabilmesi için bir macro yada formül var mıdır????

şimdiden teşekkür ederim.

 

[Orion1]

Buyurun.

Option Base 1
Sub sırala59()
Dim liste(), sat As Long, i As Long, k As Byte
sat = Cells(Rows.Count, "A").End(xlUp).Row
ReDim liste(1 To sat * 3, 1 To 1)
For i = 1 To sat
    For k = 1 To 3
        a = a + 1
        liste(a, 1) = Cells(i, k).Value
    Next k
Next i
Range("A1:C" & sat).ClearContents
Range("A1").Resize(a, 1) = liste()
MsgBox "İşlem tamamlanmıştır." & vbLf & "evrengizlen@hotmail.com", _
vbOKOnly + vbInfomation, Application.UserName

End Sub

 

[ardabe]

aynen formata uygun olmuş.. çok teşşekkür ettim. ellerinize sağlık. beni büyük bir dertten kurtardınız.