Sub 循环工作表() Dim ws As Worksheet For Each ws In Sheets i = i + 1 Debug.Print "这是第" & i & "张表，名称为：" & ws.Name NextEnd Sub 2、循环单元格：Sub 循环单元格() Dim ws As Worksheet Dim rng As Range Dim cell As Range Set ws = ThisWorkbook...
Range("A" & i).Value = i i = i + 1 Loop End Sub 5. 循环遍历每一个单元格 我们用currentregion获取不间断的非空单元格，然后赋值给Range对象，再遍历这个对象来取值，代码如下：Sub test1()Dim cell As Range Dim rg As Range Set rg = ActiveSheet.Range("A1").CurrentRegion For Each cell In ...
for each 语句是遍历数组的一种方式,通常对于一些数组元素个数不确定的数组用for each语句,比如: dim Range()as ingeger 定义一个动态整形数组 dim n as ingeger ,s as ingteger n为数组元素个数,s计算数组元素的和 n=inputbox("输入数组的个数") 给n赋值 redim Range(n) 重新定义数组为n个元素 for ...
通过判断Range对象中的Value属性的返回结果是否为错误值,可得知公式是否存在错误。 Sub FormulaIsError() If VBA.IsError(Range("A1").Value) = True Then MsgBox "A1单元格错误类型为:" & Range("A1").Text Else MsgBox "A1单元格公式结果为:" & Range("A1").Value End If End Sub 1 2 3 4 5 6 ...
For Each rang2 In range1 With range2.interior .colorindex=6.pattern=xlSolid End with Next (3)Do…loop语句 在条件为true时,重复执行区块命令 Do {while|until} condition'while 为当型循环,until为直到型循环,顾名思义,不多说啦Statements
这里简单介绍一下for each,看一下和for有什么不一样的地方。 1. 打开Visual Basic,添加一个新模块和过程。 Sub 测试() End Sub 2. 如果要在当前工作表中A1到A10单元格都输入同一个数字,用for循环如下图。 Sub 测试() Dim i As Integer For i = 1 To 10Range("A" & i) = 1 ...
基于空单元格由Chr(7)跟随的段落标记组成,可以使用Range对象检测空单元格,代码如下: 代码语言:javascript 代码运行次数:0 复制 代码运行 SubCheckTableCells()Dim rngCell As Cell Dim rngRow As Row For Each rngRow In Selection.Tables(1).Rows For Each rngCell In rngRow.Cells ...
中途退出For Each...next循环 可以使用Exit For 或 goto 语句退出 例子: Sub findN() Dim X As Range,a as string For Each X In Range("B2:E11") If X.value = "李珊" Then X.Font.Bold = True X.Font.Color = RGB(255, 0, 0) a=x...
objRegEx.Pattern="([a-z])(?!\1|$)"'1清除旧的数据Range("B:AA").ClearContents '2遍历单元格 For Each c InRange([A1],Cells(Rows.Count,"A").End(xlUp))strTxt=c.Value2 tempStr=objRegEx.Replace(strTxt,"$1 ")arrRes=Split(tempStr)Cells(c.Row,2).Resize(1,UBound(arrRes)+1).Value...
Range("A1").Font.Color = RGB(0, 255, 0) ' 访问单元格边框 Range("A1").Borders(xlEdgeBottom).LineStyle = xlContinuous 遍历单元格范围 可以使用 For Each 循环来遍历一个单元格范围: Dim rng As Range, cell As Range Set rng = Range("A1:C3") ...