你的arr数组,本是一维数组,不需要转置. 只有arr=range(＂a1:a＂ & m).value 得来的才是二维的,但是转置以后还是二维的. 用循环,用range也是可以的 for j for j =2 to 10 step 2sheets(＂0＂ & aaa).cells(8,i)=brr(i)for j =2 to 10 step 2sheets(＂0＂ & aaa).range(＂b8＂).offset(0,j-2)=arr(j/2)

首先,dim arr(11)定义完成后,数组中没有任何内容,而且这样定义的数组下标为0,既arr(0)才是第一个数据而Set ran = Sheet1.Rows(arr(1))这里直接用到数组arr(1),将会.

数组的是为了记录同类型数据, 定义的时候有可以定义固定大小的数组,也可以定义大小不定的数组. 如dim str(10) as string dim num() as integer

integer arr[100]; 就像向内存申请了100个连续的空间变量,方便查询、修改、更新数据

1,首先看你的fuc1函数有没有返回值.没有就不能这样写.要这样:fuc1 array2.有返回值,返回的数据不能赋给数组

Application.WorksheetFunction.Sum([--A1:A10]) 要这样写.range是直接引用单元格.共公式里的A1:A10是有区别的.用[ ]符号括起来就支持数组用法了.比如下面这样 Application.WorksheetFunction.Sum([a1:a10*b1:b10])

Sub isum()Dim arr, Dic3, Dic4arr = Range(＂A1:d11＂).Value 'arr数组元素按实际设定,这里是用excel中的测试数据Set Dic3 = CreateObject(＂Scripting.Dictionary＂)Set .

从数组i(1 to 6)中查找:1 和27 这两个数值是否存在这个数组中吗?如果是的话:先看楼主的思路:要定义一个函数来执行两次,每次都只找一个数值.这样一来一个数组就要扫描两次了.试下先定义两个 Boolean 变量,用来记录是否遇到1 和27dim b1 as Boolean, b27 as Booleanfor i = 0 to 5 b1 = b1 or (jihe(i)=1) b27 = b27 or (jihe(i) = 27)next最后if b1 and b27 then goto line1 else goto line2

option explicitsub arraytest() dim arr as variant '定义变量 '将1到10十个自然数赋给数组arr arr = array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10) msgbox ＂arr数组的第2个元素为:＂ & arr(1)end sub

m1 = UBound(MyArray) '行数 m2 = UBound(MyArray, 2) '列数