可以用Resize来实现,示例如下:arr=range("A1:Z1")'将第一行,A到Z列,赋值给数组arrrange("A2").resize(ubound(arr),1)=application.transpose(arr)'将数组Arr转置.

答:二维数组赋值有两种方法,第一种方法是单元格区域装入二维数组,如:Arr=range(＂a1:b19＂)就可以把单元格区域的值装入数组arr 第二种就是通过循环装入,一个个数值装入.例:向二维数组写入数据和读取 Dim x As Integer, y As Integer Dim arr(1 To 5, 1 To 4) For x = 1 To 5

假定数组为arr,如果是一维数组,直接用application.transpose函数即可,如果arr是二维数组.如下即可:range(＂a1:a10000＂) = application.transpose(application.index(arr, 1))

'向VBA数组中写入数据'1、按编号(标)写入和读取 Sub t1() '写入一维数组 Dim x As Integer Dim arr(1 To 10) arr(2) = 190 arr(10) = 5End Sub Sub t2() '向二维数组写.

一维给二维赋值,参考实例如下:for (i = 0; i { for (j = 0; j { scanf(＂%d＂, &a[j]); } strncpy(b[i], a, max); //memcpy(b[i], a, max); } 二维数组赋值有两种方法,第一种方法是单元格区域装入二维数组,如:arr=range(＂a1:b19＂)就可以把单元格区域的值装入数组arr 第二种就是通过循环装入,一个个数值装入.例:向二维数组写入数据和读取;dim x as integer, y as integer dim arr(1 to 5, 1 to 4) for x = 1 to 5

公式一般比vba快,因为vba是解释执行的.你公式慢的因为是有些写法不合适,建议: 1.增加辅助列,第一列写c1=d1,,,c:c=c1,,,实际上应该怎么写,你调整下 2.不要整列的用数组公式,你这个c:c=c1,有效数有多长就写多长,适当多一点没关系,但整列,当然就慢的厉害了,改为c1:c1000=c1会极大的改改善公式速度.c:c=c1在数组公式中,大约是从c1.c65536单元格,逐一跟c:c比较,在2003下是65536*65536次运算,在07下去运算一次,1048576*1048576次计算比较,10分钟才算完,不慢了,呵呵 完善下公式就ok,不用写什么vba

Private Sub Command1_Click() Dim a(1, 2) As Integer Dim b(2, 1) As Integer Dim i As Integer Dim j As Integer For i = 0 To 1 For j = 0 To 2 a(i, j) = i * 3 + j Print a(i, j); .

你写代码时最好写全,这样便于分析1、你开始应该先声明dim arr()2、ReDim的位置不对,并且后面应该加Preserve;如果想在循环外应该是ReDim arr(max, max).3、max没有赋值4、数组是下标通常是0开始5、单元格如果要记录每个数据,就需要放到循环最里层.Dim arr()Dim max, x, ymax = 10ReDim arr(max, max)For x = 0 To maxFor y = 0 To maxReDim Preserve arr(max, y)arr(x, y) = x & yCells(1 + y, 1 + x) = arr(x, y)Next yNext x

:一维转二维.MsgBox arr1(2, 1) '转换后的数组是1列多行的二维数组 End Sub 2、二维数组转一维.arr3 = Application.transpose(Application.Index(arr2, , 2)) '取得arr2第2列数据并转置成1维数组 MsgBox arr3(2,)

简单一点,自己根据表格实际录制一遍即可.举例语句:range(＂d2:e18＂).copy range(＂k7＂).pastespecial paste:=xlpastevalues, operation:=xlnone, skipblanks:=false, transpose:=true即对d2:e18区域进行选择性数值+转置粘贴