标题：excel vba单元格赋值给数组方法 一维 二维

-------------------------------------------------------------------------------------------------------------------------------

时间：2011/11/2 18:19:54

-------------------------------------------------------------------------------------------------------------------------------

内容：

    Dim arr() '声明一个动态数组（动态指不固定大小）
    Dim tem

   arr = Application.Transpose(Range("a1:a2"))    这是把a1 到a3的单元格的值赋值给一个一维数组

arr = Range("a1:c7")   '把单元格区域A1：C7的值装入数组arr

数组的使用

tem = Join(arr, "")
Sheets(1).Cells(3, 4) = 5

    Dim arr() '声明一个动态数组（动态指不固定大小）
    Dim tem

   arr = Application.Transpose(Range("a1:a2"))    这是把a1 到a3的单元格的值赋值给一个一维数组

arr = Range("a1:c7")   '把单元格区域A1：C7的值装入数组arr

数组的使用

tem = Join(arr, "")
Sheets(1).Cells(3, 4) = 5