.Value2 ( vables ). .Value2, , Range, .
Dim r as Range
Set r = Range("A1")
Dim x as Double, i as Integer
x = r.Offset(1,0).Value2
Dim vals() as Variant
vals = r.Offset(1,0).Resize(10,1).Value2
For i=1 to 10
vals(i,1) = CDbl(i)/10
Next i
r.Offset(1,0).Resize(10,1).Value2 = vals
, Cell(), . .Offset() .Resize() , . , Range("A1"), - Range("my_table") "my_table", , .
[]
Dim x as Double
x = [A2]
// This is the same as x = Range("A2").Value2