dxcq.net
相关文档
当前位置:首页 >> vBA双循环 >>

vBA双循环

dim arr,i&,j&,irow%irow=activecell.rowredim arr(1 to 21,1 to 7)for i =1 to 21 for j=1 to 7 arr(i,j)=sheet4.cells(irow,(i-1)*7+9) nextnextarr 这个两维数组,每行是一产品的信息,列表头分别是类别、品牌、型号。。。。等 赋 值给表时,...

B列和C列对比,不是同行对比, 如果是要同行对比,代码改为如下 for i=2 to 5 if cells(i,2)=cells(i,3) then cells(i,3)=cells(i,2)*cells(i,3) next i Sub jing() For i = 4 To 9 For j = 2 To 5 If Worksheets("sheet2").Cells(i, 6).Value =...

循环里面还套了一层循环吧

Sub cfkj() Dim i As Integer, j As Integer Dim sz(1 To 9, 1 To 9) For i = 1 To 9 For j = 1 To i sz(i, j) = j & "*" & i & "=" & i * j Next j Next i Range("A1:i9") = sz() End Sub

Sub 只控制一列自动循环粘贴() For i = 1 To 11 Step 2 [b15] = Cells(17 + i, "n") [b16] = Cells(17 + i, "m") Cells(17 + i, "o").Resize(2, 1).Value = [j9:J10].Value Next End Sub

n=n=1应该是n=n+1吧?! 外层循环从1到4,那么次数是4次,内层循环从3到-1,次数是5,因此总次数就是4*5=20 这种双循环结构,可以用电影院的座位来做比喻,外层循环是排(或者说行),内层循环是座(或者说列),那么座位总数就是行乘以列。

MyName = "A" & i & j

代码及注释如下: Private Sub CommandButton1_Click() For i = 1 To 3'循环 arr(i)=UserForm1("TB" & i).Text '将文本框内容赋予数据arr,假定文本框所属的窗体名为userform1 Next i End Sub

只有这两个条件么?如果是这样,直接设置两个变量,用来记录两组条件即可。 如果条件很多,那就要看具体情况, 可以设置数组变量及条件,用双循环, 也可以用多循环。

以积分为主关键字,总净胜球为次关键字排序,排好后手动微调

网站首页 | 网站地图
All rights reserved Powered by www.dxcq.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com