Excel VBA Store Array и напишите на лист
'both these declarations will workDim arTesting As Variant Dim arTesting() As Variant arTesting = Range("A1:A12").Value
Fierce Ferret