求教VBA中for循环语句用法？？？

vba里的for循环语句~

while-Wend循环语句的语法格式为
　　While
　　
　　Wend

　　在VBA中执行WhiIe-Wend循环语句的过程是先判断逻辑表达式的值是否为True，如果为True则执行循环体并执行Wend语句，再返回While语句对逻辑表达式进行判断。直到逻辑表达式的值
为False时，不执行循环体，直接执行Wend后面的语句。

　　While-Wend循环语句没有自动修改循环条件的功能，因此在循环体内必须有设置修改循环条件的语句，否则会出现“死循环”。例如我在VBA代码窗口输入以下代码。

　　
Sub求和()
　　
Dim i As Long
　
　Dim s As Integer
　
　While s<=100
　
　i=i+s
　
　s=S+1
　　
Wend
　
　Debug.Print”
1至100的整数之和为：”＆i

　　在上述程序中的“S=S+1”语句即为修改循环条件的语句。运行这段程序后，选择“视图”→“立即菜单”，即可在立即窗口中显示运行结果。

　　如果在程序运行时出现“死循环”现象，或想要提前结束程序的运行，则按“Ctd+Break”组合键，即可弹出提示对话框，单击“结束”按钮或“调试”按钮结束程序的运行即可结束“死循环”现象。

For 循环变量＝初值 to 终值 step 步长。
for next循环语句指的循环是指重复地执行某项动作（语句块）。
来看一下For—next 的句式：
For 循环变量＝初值 to 终值 step 步长
循环体1
[exit for]
循环体2
next 循环变量
解释：从开始到结束，反复执行For和Next之间的指令块，除非遇到Exit For语句，将提前跳出循环。其中，步长和Exit For语句以及Next后的循环变量均可省略，步长省略的时候默认为1。Exit for 语句是强制终止循环的语句，执行它后将退出循环，执行next后面的语句。
循环变量是一个变量，可以在循环体中对其进行修改，但一般就避免在循环体中对其修改。

明明只有一行数据，为什么要for i=0 to 5添加6行呢？

如果是考虑可能有最多有6行数据，那么for循环里面应该有一个if判定，判定A列i行是否为空，也就是代码为：

For i = 0 To 5
    If Cells(i + 5, 1)<>"" Then
        .Cells(x + i, 1).ReSize(1, 2) = Array([c3], [k3])
        .Cells(x + i, 3).ReSize(1, 10) = .Cells(i + 5, 1).ReSize(1, 10)
    End If
Next i

另外，你的一块赋值语句我合并为两行了，希望你能理解。

重新代码呗
你的代码写得不对喽

---

求教VBA中for循环语句用法？？？视频