顾夕b = .Parent.Name .Value = \ End With End Sub Sub with嵌套()
Range(\？\ Range(\ Range(\ Range(\End Sub Sub with嵌套2() With Range(\ .Value = \ .Parent.Name = \ With .Font .Size = 20 .Bold = True End With End With End Sub 1-26 VBA与公式
'在VBA中也可以像在工作表中一样录入公式
Sub vba中的做法() Dim i% For i = 1 To 10
Range(\Next End Sub Sub 普通公式()
Sheets(1).Cells(1, 3) = \End Sub Sub 批量计算() Dim i As Integer For i = 1 To 10
Sheets(1).Cells(i, 4) = \Next i End Sub Sub 数组公式()
Range(\End Sub
Sub 带工作表函数的计算() Dim i As Integer For i = 1 To 10
Sheets(1).Cells(i, 3) = \
Next i End Sub
Sub 公式带引号的计算()
Cells(2, 5) = \Cells(3, 5) = \End Sub '借用工作表函数 Sub 运用工作表函数()
MsgBox Application.WorksheetFunction.CountIf(Range(\\钢笔\
MsgBox WorksheetFunction.CountIf(Range(\钢笔\MsgBox Application.CountIf(Range(\钢笔\End Sub 'VBA函数 Sub VBA函数()
MsgBox VBA.Format(Range(\年m月d日\MsgBox Format(Range(\年m月d日\End Sub '自定义函数（） Function sex(rng As Range)
sex = IIf(Mid(rng, 15, 3) Mod 2, \男\女\End Function
'定义：运算符是代表VBA某种运算功能的符号 '⑴赋值运算符：＝
'②数学运算符：&（字符连接符）、＋、－、mod（取余）、\\(整除)、*、/、－（负号）、^(指数)
'③逻辑运算符：not（非）、and（与）、or（或）、xor（异或）、eqv（相等）、imp（隐含）
'④关系运算符：＝（相同）、<>（不等）、>（大于）、<（小于）、>=、<=、like
'like用来比较两个字符串 '?任何单一字符 '*零个或多个字符 '#任何一个数字（0-9）
'[charlist]charlist中的任何单一字符 '[!charlist]不在charlist中的任何单一字符 *### *E* NED#
最后三个是数字 包含E字
以NED开始，然后接一个数字
[A-Z][A-Z]### 两个任意字母开始，再接三个任意数字 ????
编号为四个字符
1-32、综合运用(盘点清单核对) Sub 核对清单()
Dim rng As Range, rngs As Range, k%