43.000 kelimeyi uzunluklarına göre gruplandırmak.

[Muhammet Okumuş]

Arkadaşlar merhaba
ekteki dosyada a sütununda 43.000'e yakın kelime b sütununda ise bu kelimeleri uzunlukları yer alıyor.Benim istediğim bu kelimeleri uzunluklarına göre gruplandırmak.
For-Next döngüsüyle yapabiliyorum ancak çok zaman alıyor.Bunu çok kısa sürede yapacak çözüm var mı?

 

[Korhan Ayhan]

Selamlar,

Aşağıdaki kodu denermisiniz.

Option Explicit
 
Sub KELİMELERİ_GRUPLANDIR()
    Dim X As Byte
    
    Range("D2:K65536").Clear
    
    Application.Calculation = xlCalculationManual
    Application.ScreenUpdating = False
    
    For X = 4 To Range("IV1").End(xlToLeft).Column
        Columns("B:B").AutoFilter Field:=1, Criteria1:=Cells(1, X)
        If Range("A65536").End(3).Row >= 2 Then
        Range("A2:A" & Range("A65536").End(3).Row).Copy Cells(2, X)
        End If
    Next
    
    Columns("B:B").AutoFilter
    Columns("D:K").CurrentRegion.Borders.LineStyle = 1
    Columns("D:K").EntireColumn.AutoFit
    
    Application.ScreenUpdating = True
    Application.Calculation = xlCalculationAutomatic
    
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[Muhammet Okumuş]

Sn Korhan Hocam teşekkür ederim.Ama bu kodlarda yeterince hızlı değil.Yaklaşık 2 dk. sürüyor.Acaba 20 saniyeye gibi bir hıza indirebilmemiz mümkün mü?

 

[Korhan Ayhan]

Selamlar,

Sanıyorum düşük performanslı bir bilgisayarda kodları denediniz. Çünkü bende kodun çalışması yaklaşık 5 saniye sürüyor.

 

[desk]

Bende 2 saniye sürdü.

 

[Muhammet Okumuş]

özellikleri Pentium(R) CPU 2.80 GHz 1 GB RAM. Bir de diz üstünde dededim yine uzun zaman alıyor.Özellikler çok ta kötü sayılmaz.İkisi de XP.

 

[Korhan Ayhan]

Selamlar,

Üstteki mesajımdaki koda hesaplamayı manuele alan bir kod satırı ekledim. Birde bu şekilde denermisiniz. Belki hız açısından faydası olabilir.

 

[Muhammet Okumuş]

Sanırım sorun benim bilgisayarda.Belki Excel 2007'de yavaş olabilir.Kodları çalıştırınca excel kitleniyor gibi oluyor.Yaklaşık 2 dk sonra işlem bitti diyor.