Soru Sayıya çevir makrosu hızlandırma

[NADİR YILDIZ]

Günaydın arkadaşlar metin şeklinde ki sayıları aşağıdaki makro ile sayıya çeviriyorum
ancak çok uzun satırlarda çevirme zamanı uzuyor..
bu kodu daha hızlandırmak için başka çözüm öneriniz olurmu

teşekkürler


Private Sub CommandButton4_Click()
For Each Alan In Range("AA9:AF5000")
Alan.NumberFormat = "General"
If Alan.Value <> "" Then Alan.Value = CDbl(Alan)
Next
End Sub

 

[Trilenium]

Range("AA9:AF5000 ").Select
Selection.TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True

 

[Ziynettin]

Alternatif,

Application.ScreenUpdating = False
    Dim alan As Range
    Set alan = Range("AA9:AF5000")
    a = alan.Value
       For i = 1 To UBound(a)
          For j = 1 To UBound(a, 2)
            If a(i, j) <> "" Then
                a(i, j) = a(i, j) * 1
            End If
          Next j
       Next i
    alan.NumberFormat = "General"
    alan.NumberFormat = "#,##0.00"
    alan = a
Application.ScreenUpdating = True

 

[NADİR YILDIZ]

Teşekkür ederim Sayın Trilenium..
Teşekkür ederim Sayın Ziynettin..


iyi çalışmalar