作者:乔山办公网日期:
返回目录:excel表格制作
数组的长度可以用变百量表示,比如下面代码度,就可以先定义一个动态数组问,然后根据一个算式来确定数组的大小,再答给它赋值
Sub abc()
Dim a() As Integer
n = 0
'写入动态数组专
x = 3 * 4
ReDim a(0 To x) '根据表达式计算X的值来确属定数组大小
For i = 1 To 3
For j = 2 To 5
a(n) = i + j: n = n + 1
Next
Next
'从动态数组取数
For i = 0 To n
Cells(i + 1, 1) = a(i)
Next
End Sub
怎么获得vba的2维字copy符串数组的长度
www.MyException.Cn 网友分享于:2013-03-27 浏览:39次
如何获得vba的2维字符百串数组的长度
一个二维字符串数组a(,)
如何获得它的第一维度的长度。
VB中是a.Length,vba中怎么写。
------解决方案--------------------
可以结合UBound和LBound来取得指定知维数的最大下标和最小下标 (我不知道中文怎么说,暂且道用下标代替吧,知道的告诉我啊)
Dim A(1 To 100, 0 To 3, -3 To 4)
LBound(A, 1) = 1 一维最小下标
UBound(A, 1) = 100 一维最大下标
然后UBound - LBound + 1就是一维的维数
Sub dd()
Dim arr
arr = Array(1, 2, 3, 4, 5, 6)
[A2] = Application.WorksheetFunction.Max(arr)
End Sub
如图,zd用工作表函回数MAX就可以答了。
Sub sof()Dim sso()Dim sarsar = Sheets("sheet1").[A65536].End(3).RowReDim sso(1 To sar)For i = 1 To sar sso(i) = Cells(i, 1)NextDim assd, xoxo = 1assd = InputBox("请输百入度要分几问列答输出版:权")For y = 1 To UBound(sso()) For x = 1 To assd Cells(y, x + 2) = sso(xo) xo = xo + 1 If xo > UBound(sso()) Then Exit Sub NextNextEnd Sub