Option Explicit Sub 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

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

有区别吗? 模块中也可以使用dim a()来建立数组呀..你是说让模块的结果是返回成数组吗?呵呵..你可以变一种思路呵 在command1中,通过函数ss得到一个数组合并的字符串,然后再使用split来分隔,得到需要的数组b Private Sub Command1_Click() b = Split(SS(10), ＂ ＂) End Sub Function SS(n As Integer) As String Dim a(), i% ReDim a(1 To n) For i = 1 To n a(i) = i Next SS = Join(a) End Function

你这个要求不能实现啊,我用了ParamArray 关键字,用来指定一个 任意元素个数 的数组共参考:---------Function shuzu(ParamArray x()) Application.Volatile Dim i, n, m, .

sub bijiao()dim a()dim i as longdim b'定义数组redim a(0 to 10)'数组赋值for i=0 to ubound(a)a(i)=inext'b赋值b=6'循环比较for i=0 to ubound(a)if b=a(i) then exit fornext'判断是否找到if i>ubound(a) thenmsgbox ＂没有找到＂elseredim preserve a(0 to ubound(a)+1)a(ubound(a))=bend ifend sub

我有一个办法:用array函数,一个array可以代表一个一维数组,相互嵌套就可以表示多维,如下面创建一个两维数组.Dim hz hz = Array(Array(1, 6, 37, 38, 39, 40), Array(1, 6, 37, 38, 39, 40)) 特别注意:引用时不能用一般的二维数组比如 hz(1,2) 的方式去引用,而是用 hz(1)(2)的方式.而且数组下标都是默认从0开始的.如果要方便从1开始,我感觉也只能用循环逐个赋值的方法,如楼下的做法.

dim a(100) as integerdim a(n) as integer

你的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)

sub 方法一()dim sz()redim sz(10)for i= 1 to 10sz(i-1)=inextend subsub 方法二()dim sz()redim sz(10)i=0while i 评论0 0 0

不用vba.假设你想在有算式的单元格的右边一格显示结果,方法如下:选中单元格b1,同时按ctrl和f3键进入名称编辑器,新建,名称处输入比如 abc,下面引用位置处输入=evaluate(a1)确定.然后在任意有算式的单元格的右边一格输入=abc即可.公式可复制到其他地方.