使用For ... Next循环可以按指定次数,循环执行一段代码。For 循环使用一个数字变量,从初始值开始,每循环一次,变量值增加或减小,直到变量的值等于指定的结束值时,循环结束。 For ... Next循环语法如下: 代码语言:javascript 复制 For[变量]=[初始值]To[结束值]Step[步长]'这里是循环执行的语句 Next 其中: [...
Dim sum As Integer For i = 1 To 10 Step 1 sum = sum + i Next End Sub 可以看到,For 循环使用i变量,循环 10 次,i的值从 1 到 10 变化。 值得注意的是,For 循环的 Step 值如果是 1,则 Step 关键词可省略。上述过程循环部分可写成如下方式: For i = 1 To 10 sum = sum + i Next Do ...
For I = 1 To 5 … Next J 交叉嵌套 For I = 1 To 5 For J = 1 To 5 … Next I Next J 可以将一个 For...Next 循环放置在另一个 For...Next 循环中,组成嵌套循环。 不过在每个循环中的 计数器变量 要使用不同的变量名...
For … Next 循环 使用For ... Next循环可以按指定次数,循环执行一段代码。For 循环使用一个数字变量,从初始值开始,每循环一次,变量值增加或减小,直到变量的值等于指定的结束值时,循环结束。 For ... Next循环语法如下: For [变量] = [初始值] To [结束值] Step [步长] '这里是循环执行的语句 Next 其...
For i = 1 To Sheets.Count Sheets(i).Unprotect "123" Next End Sub 批量重命名工作表: 有时我们建立了很多工作表,工作表名称是 Sheet1、Sheet2 这种,这让我们查看数据时很难分清,需要重新命名工作表。 一个一个工作表来,估计又要忙活一会儿了!
For i = 1 To 100000 With Sheets("A") .Cells(i, 1) = .Cells(i, 1).Row End With Next i End Sub Line1:设定循环变量i,循环的范围是从1开始,到100000结束; Line2:使用Sheets("A")作为同一系列对象的父级隶属关系; Line3:操作Sheets("A")中,从Cells(1, 1)开始的,Cells(2, 1),……,Cel...
Sub 循环5()Dim iAsIntegerFori=1To10Step2Debug.Printi Next End Sub 步长.gif 循环5里step 2 表示步长2,当i=1开始,那么下一次循环时,i=1+2,i=3,跳过了2...依此计算。 【循环可以用来干神马:代替重复性的操作】 例1:批量新建工作表--新建一个XLSM工作簿,然后新建5个工作表,并分别以12345命名。
For…Next是实现重复操作的基本语句,下列代码计算1到100的和,展示了如何高效地使用循环。 Sub SumFrom1To100() Dim sum As Long sum = 0 For i = 1 To 100 sum = sum + i Next i MsgBox "1到100的累加和为:" & sum End Sub For Each...Next遍历 ...
VBA提供了多个循环结构控制语句:DoLoopwhile结构、do Whileloop结构、ForNext结构、For EachNext结构。1.3.1密码验证(Do .Loop while循环介绍)在VBA中,循环语句:DoLoop whiel循环的语法格式如下:Do 语句序列1 Exit Do 循环体Loop while 条件成立循环(1)新建Excel工作簿,按快捷键“Alt+F11”进入VBE开发环境。(2)...