Çoklu Sıralama

[kasims]

Merhaba,

Elimde 50.000 satırlık bir dosya var. bu dosyadaki kelimeleri harf bazında ayrı sütünlara böldüm. Ancak bunları tekrar harf sırasına göre dizerek birleştirmem gerekiyor. Tek tek yapmak epey uğraştırıyor, bunu toplu şekilde yapabileceğim bir yöntem varsa yardımlarınızı rica ediyorum

Örnek dosya ektedir

teşekkürler

 

[Milady Meriç]

Merhaba,

Elimde 50.000 satırlık bir dosya var. bu dosyadaki kelimeleri harf bazında ayrı sütünlara böldüm. Ancak bunları tekrar harf sırasına göre dizerek birleştirmem gerekiyor. Tek tek yapmak epey uğraştırıyor, bunu toplu şekilde yapabileceğim bir yöntem varsa yardımlarınızı rica ediyorum

Örnek dosya ektedir

teşekkürler

Selamlar;

Hücreleri B2&C2&D2..... gibi birleştirip 50.000 satırın sonuna kadar indirin ve daha sonra kopyala / değerleri yapıştır dersiniz.


kolay gelsin

 

[kasims]

Selamlar;

Hücreleri B2&C2&D2..... gibi birleştirip 50.000 satırın sonuna kadar indirin ve daha sonra kopyala / değerleri yapıştır dersiniz.


kolay gelsin

hocam sıralama sonrası sizin verdiğiniz yöntemle birleştirme yapabilirim bu süper. öncelikle teşekkür ederim

ama bunun öncesinde şunu yapmam lazım;
örneğin, abajur kelimesi var elimizde. Bunu ben ayrı sütunlara ayırdım şu şekilde; a b a j u r. Sonra bunu A'dan Z'ye sıralama yapıcam ve şöyle olacak daha sonra; a a b j r u.
En sonunda sizin verdiğiniz yöntemlede tekrar birleştiricem.

yapamadığım diğer kısım; sütunlara ayırdığım bu 50.000 satır için her satırı kendi başına A'dan Z'ye sıralam işi. bunu nasıl yapabilirim?

saygılar

 

[Milady Meriç]

Selamlar;

http://www.excel.web.tr/f50/kelimenin-harflerini-alfabetik-syralatma-t66226.html

adersinde Necdet Bey'in yazdığı bir makro var.

Sub sirala()
Dim kelime As Variant, i As Integer, j As Integer, x As Variant
For Sat = 1 To [A65536].End(3).Row
    kelime = Cells(Sat, "A")
    For i = 1 To Len(kelime) - 1
        For j = i + 1 To Len(kelime)
            If Mid(kelime, i, 1) > Mid(kelime, j, 1) Then
                x = Mid(kelime, i, 1)
                Mid(kelime, i, 1) = Mid(kelime, j, 1)
                Mid(kelime, j, 1) = x
            End If
        Next j
    Next i
    Cells(Sat, "B") = kelime
Next Sat
End Sub

Ben bu kodu dosyanıza işledim. Butona tılkadığınız zaman, kelimeleri harflere ayırmadan direkt olarak harflerini sıralar.

Bu durumda hala kelimeleri harflerine ayırmanız gerekiyor mu?

Eki inceler misiniz?

 

[Erdal]

Merhabalar
Formüllü alternatif de benden olsun. Saygı ve selam ile ...

 

[kasims]

Selamlar;

http://www.excel.web.tr/f50/kelimenin-harflerini-alfabetik-syralatma-t66226.html

adersinde Necdet Bey'in yazdığı bir makro var.

Sub sirala()
Dim kelime As Variant, i As Integer, j As Integer, x As Variant
For Sat = 1 To [A65536].End(3).Row
    kelime = Cells(Sat, "A")
    For i = 1 To Len(kelime) - 1
        For j = i + 1 To Len(kelime)
            If Mid(kelime, i, 1) > Mid(kelime, j, 1) Then
                x = Mid(kelime, i, 1)
                Mid(kelime, i, 1) = Mid(kelime, j, 1)
                Mid(kelime, j, 1) = x
            End If
        Next j
    Next i
    Cells(Sat, "B") = kelime
Next Sat
End Sub

Ben bu kodu dosyanıza işledim. Butona tılkadığınız zaman, kelimeleri harflere ayırmadan direkt olarak harflerini sıralar.

Bu durumda hala kelimeleri harflerine ayırmanız gerekiyor mu?

Eki inceler misiniz?

harflere ayırmaya gerek kalmıyor bu yöntem ile. çok işime yaradı.
Elinize, emeğinize sağlık.

 

[kasims]

Merhabalar
Formüllü alternatif de benden olsun. Saygı ve selam ile ...

emeğine sağlık

teşekkürler