方式一:使用for循环 Sub 遍历数组1() '声明一个变量 Dim Arr As Variant '声明一个数字变量 Dim i As Integer '变量类型指定为数组并赋值 Arr = Array(1, 2, 3, 4, 5) '使用For...To...进行遍历 For i = 0 To UBound(Arr) Debug.Print Arr(i) '可以修改数组 Arr(i) = Rnd Next i End S...
2、Dim t, i&, a :声明变量t,a 均为可变型变量,i为长整型变量。 3、t = Timer :把系统的时间赋给变量t。 4、For i = 1 To 1000000 :从1 到 1000000循环。 5、a = a + i :把a+i的值赋给变量a,实际上是一个累加的过程。 6、MsgBox Timer - t & "秒" :利用消息框显示现在的时间减去前...
方式一:使用for循环 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 Sub遍历数组1() '声明一个变量 DimArrAsVariant '声明一个数字变量 DimiAsInteger '变量类型指定为数组并赋值 Arr = Array(1, 2, 3, 4, 5) '使用For...To...进行遍历 Fori = 0ToUBound(Arr) Debug.Print Arr(i) '可以修改数...
br(d1.Count + 2, j) = br(d1.Count + 2, j) + br(i, j) Next j Next i [m7].Resize(UBound(br), UBound(br, 2)) = br End Sub Sub test() '一把小刀闯天下 Dim arr(1), i, j, m, n, dic(1) For i = 0 To UBound(dic) Set dic(i) = CreateObject("scripting.dictionary...
For i = 0 To UBound(kr) If d(kr(i)) = "不存在" Then '如果A有B没有 n2 = n2 + 1 brr(n2, 2) = kr(i) End If Next Err.Clear Set rng = Application.InputBox("请选择放置查询结果的单元格,例如C1", Type:=8) rng.Parent.Select ...
Fori = 0 ToUBound(Arr) Debug.Print Arr(i) Arr(i) = Rnd'修改数组 Nexti EndSub 2、For Each...In遍历数组,代码如下: SubRunB() DimArr AsVariant Dimi AsVariant Arr = Array(1, 2, 3, 4, 5) ForEachi InArr Debug.Print i i = Rnd'注意,其实这句代码毫无意义 Next EndSub 注意,采用...
Next i '在数据2中去掉数据1的值,结果赋值给tem2 tem2 =Filter(temvarArr2, temvarArr1(1), False) '给TEM2赋初始值 For i = 2 ToUBound(varArr1) tem2 = Filter(tem2,temvarArr1(i), False) Next i ReDim tem(0 ToUBound(tem1) + UBound(tem2) + 1) ...
For i = 1 To 3 arr(i) = i * 10 Next i Sheets(1).Range("a10").Resize(3, 1) = Application.Transpose(arr) End Sub 1. 2. 3. 4. 5. 6. 7. 只要是单元格区域赋值到变量,那么这个变量指向的就是一个二维的数组,哪怕单元格的区域就是一行或者一列 ...
然后在写入单元格的代码里用一个循环依次写入 假定我的句子存在a1 现在要从A2往下换行写入 代码如下 Public Sub asd()st = Cells(1, 1)a = Split(st, Chr(10))For i = 0 To UBound(a)Cells(i + 2, 1) = a(i)Next End Sub 效果如下图 ...
For i = 0 To UBound(item_array) .Cells(i + 1, 1).Value = item_array(i) Next i .Activate .Cells(1, 1).Select End With End If Exit Sub 处理出错: MsgBox Err.Description End Sub Function checkrepeatarrayfun(ByVal checkarray, ByVal checkdata) As Boolean '检查数组是否有指定值 ...