セル範囲を配列に代入

Sub Macro0503()
Dim MyArray() As Variant
MyArray = Range(“A1:C3”).Formula
MsgBox MyArray(2, 2)
End Sub