如何提高將textnumber轉換爲數字的vba代碼的性能

Question

如何提高將textnumber轉換爲位於範圍內的數據數量（X76：BE100000）的以下代碼的性能（運行時效率）？

Sub ConvertTextNumberToNumber() 
    For Each r In  
     Worksheets("Sheet1").Range("X76:BE100000").SpecialCells(xlCellTypeConstants) 
     If IsNumeric(r) Then r.Value = Val(r.Value) 
    Next 

End Sub 

Answer 1

Range("a1:zz100000").SpecialCells(xlCellTypeConstants, xlNumbers)

Answer 2

使用數組

Option Explicit 

Sub ConvertTextNumberToNumber() 
    Dim dataArr As Variant 
    Dim myRng As Range 
    Dim i As Long, j As Long 

    Set myRng = Worksheets("Sheet1").Range("X76:BE10000") 

    dataArr = myRng.Value2 

    For i = 1 To UBound(dataArr, 1) 
     For j = 1 To UBound(dataArr, 2) 
      If IsNumeric(dataArr(i, j)) And dataArr(i, j) <> "" Then dataArr(i, j) = CDbl(dataArr(i, j)) 
     Next j 
    Next i 

    myRng.Value2 = dataArr 
End Sub