Tek bir satırı sütuna çevirmek

[Hardrada]

merhabalar. bir editör aracılığıyla .dat uzantılı veritabanı dosyasından çeşitli veriler alıyorum fakat bunları excel'e yapıştırmaya çalıştığımda kaynak plain text olduğundan milyonlarca 17 haneli seri numarasını tek bir satıra yan yana yapıştırıyor ve bunları tek bir sütun yapmak istediğimde hiçbir şekilde sütunlara dönüştüremiyorum. yardım edenlere teşekkürler şimdiden.

 

[Milady Meriç]

Selam Dostum,

yazıyı sütuna çevirme mümkün. Text to columns adlı araç ile. Türkçesini bilmiyorum.
DATA / DATA TOOLS / TEXT TO COLUMS

Dosya gönderirsen çok daha iyi olur.

 

[uyrdkl]

Boş bir modüle kopyalayınız.
A sütunundakileri kopyalar b1 hücreden itibaren her bir sütuna tek tek yazar. a sütununu siler

Sub Makro1()

Columns("A:A").Select
Selection.Copy
Range("B1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Columns("A:A").Select
Selection.Delete Shift:=xlToLeft
End Sub

 

[Hardrada]

çözüldü, teşekkürler
bir problem daha var yalnız, veri çok fazla olduğundan bir sürü sütuna ayırdı. şu anda yüzlerce sütunum var yan yana. bunları alt alta almanın kolay bir yolu var mıdır yoksa elle mi yapmak zorundayım?

 

[hb1201]

a satırını dolu kabul ederek herhangi bir hücreye aşağıdaki formülü uygulayıp aşağı doğru kopyalayın.

=DOLAYLI(ADRES(1;SATIR(A1)))

 

[Necdet]

Örnek bir dosya olsaydı bu kadar mesaja gerek olur muydu bilemiyorum