方法一：myarr = Application.Transpose(range(“a1:a5”))
    结果：可循环
    方法二：首先声明数组变量类型Dim myarr as Variant
    然后myarr = range(“a1:a5”)
    结果：可循环打印，但索引时下标越界