1、首先打开excle表格，进入VBA的编程界面，新建一个子程序loopcolor。2、然后是定义几个变量，都是整数型。3、为mycolor赋值。4、对myrow进行循环。5、在myrow的循环里面再嵌套另外一个循环mycol。6、再循环里面，分别选中单元格，并为这些单元格填充颜色。7、最后运行这个程序，然后回到excle的界面，...

1.for……next结构 这个结构一般是这样的：for i=初始值 to 结束值 step 步长值 ……next 具体解释一下，初始值指的是循环开始的值，结束值指的是循环结束的值，实质上就是i值得一个判断，如果i值在起始值和结束值之间，那么进入循环语句，然后i值每运行到next语句后会自动加一个步长值，直至i值...

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 这个两维数组，每行是一产品的信息，列表头分别是类别、品牌、型号。。。等 赋 值给表时，可以这样 range("a1...

根据代码程序结构判断是没有问题，可以运行。但是if语句里包含了EXIT FOR语句，说明这个条件一成立，只运行一次就退出i循环，然后继续下一x循环。你说的无法运行是指有错，还是程序没有反应提示呢？具体要根据你的需求以及里边的2个表格的内容才能判断你说的是什么问题了。

一般情况下，我们只使用到一个For语句，如果你使用多个For语句，那么就是For语句的嵌套或多重使用了。 简单的For语句举例如下： For k = 1 To 6MsgBox ("现在的N值为：" & k)For n = 1 To 6For n = 1 To 6 '第二个循环For k = 1 To 6 '第三个循环If (k = 3) ThenExit ForE...

Private Sub CommandButton1_Click()Dim iarr(5) As StringDim jarr(10) As StringDim arr() As StringReDim Preserve arr(0)Dim i, j As IntegerDim m As Integer: m = 0For i = 0 To UBound(iarr) ReDim Preserve arr(UBound(arr) + 1) arr(m) = iarr(i) m = m...

既然两个FOR之间没有联系，为何不直接做两个循环呢 FOR X=1 TO 20 IF X>15 THEN EXIT FOR NEXT FOR Y=1 TO 20 IF Y>x THEN EXIT FOR NEXT

假如设定循环变量为k，循环语句如下：for k=3 to 9 Cells(k, j) = WorksheetFunction.SumIfs(.Range("j" & 2, "j" & hh - 1), .Range("f" & 2, "f" & hh - 1), Cells(k, 1), .Range("g" & 2, "g" & hh - 1), p)next k 其实你先前的代码也写得复杂，"g" & ...

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

想同时变就不能放在两个For循环中，For循环嵌套始终都是不同步的，外循环每执行一次，内循环都要完整地循环一下。你只能是找到d与e变化的联系，用同一个变量将它们关联起来。就如楼上给的方法，e的步进值是1，而d的步进值是3，所以只要把e和d各自的初始值定好，就可以用一个变量i关联，并且只用...