vbaワークシートから値を読み取って2次元配列に格納する方法

Question

これはワークシートの値を2次元配列に格納する有効な方法であるかどうかを確認しようとしています。これまでのところ私が思い付くものを

は、このコードです：

'Generate a random integer from cell A1 to J10 

Sub numrange() 
    Dim r As Range 
    Set r = Range("A1:J10") 
    With r 
     .Formula = "=randbetween(1,100)" 
     .Copy 
     .PasteSpecial (xlPasteValues) 
    End With 

'Turn A1 to J10 into a 2d array of integers 

Dim arr As Variant 
arr = Range("A1:J10") 

arr = Range("A1").Resize(UBound(arr, 1), UBound(arr, 2)) 

はあなたの配列を持っているしたい場合は、この有効な配列

Answer 1

作るために作ることができる任意の明確化や編集をいただければ幸いです純粋integer値は、あなただけの `.Values = .Values`代わりに`協力を行うには、それが高速です

Sub numrange() 
    Dim r As Range 
    Set r = Range("A1:J10") 
    r.Formula = "=randbetween(1,100)" 

    Dim arr As Variant 
    Dim i As Integer, j As Integer 

    arr = Range("A1:J10").Value 
    ReDim arrint(LBound(arr, 1) To UBound(arr, 1), LBound(arr, 2) To UBound(arr, 2)) As Integer 
    For i = LBound(arr, 1) To UBound(arr, 1) 
     For j = LBound(arr, 2) To UBound(arr, 2) 
      arrint(i, j) = arr(i, j) 
     Next 
    Next 
End Sub