• DİKKAT

    DOSYA İndirmek/Yüklemek için ÜCRETLİ ALTIN ÜYELİK Gereklidir!
    Altın Üyelik Hakkında Bilgi

Çoklu Sıralama

  • Konbuyu başlatan Konbuyu başlatan kasims
  • Başlangıç tarihi Başlangıç tarihi
Katılım
6 Ekim 2009
Mesajlar
9
Excel Vers. ve Dili
2003 - 2007 tr /eng
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
 

Ekli dosyalar

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
 

Ekli dosyalar

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
 
Selamlar;

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

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

Kod:
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?
 

Ekli dosyalar

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

Ekli dosyalar

Selamlar;

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

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

Kod:
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.
 
Geri
Üst