把单元格数值存到数值，数值又写入VBA

nnsea

Sub rngarr()
Dim arr As Variant '定义变量
arr = Range("a2:b3").Value '将a2:b3单元格的内容存储到数值arr里
Range("e2:f3").Value = arr '将数值arr里写入e2:f3
End Sub