VBA二维数组如何转一维数组？一维如何转二维？

：一维转二维。

                 Sub t9()
                      arr = Array(1, 35, "a", 4, 13, "b")
                      arr1 = Application.Transpose(arr)
                      MsgBox arr1(2, 1) ‘转换后的数组是1列多行的二维数组
                 End Sub

            2、二维数组转一维。

                  Sub t2()
                       arr2 = Range("A1:B4")
                       arr3 = Application.transpose(Application.Index(arr2, , 2)) '取得arr2第2列数据并转置成1维数组
                      MsgBox arr3(2,)
                  End Sub     

               注：在转置时只有1列N行的数组才能直接转置成一维数组