Sub test() ' Dim s As Collection '定义s变量为集合对象 ' Set s = New Collection '初始化集合对象s (否则无法使用) Dim s As New Collection '推荐这句代码,直接初始化,可以不用再Set了 '集合s中添加元素的方法 s.Add i '对于集合s,用Add方法可以加入集合元素 '当然事实上你可以添加任意内容来代替本例中的i Next '读取集合中元素的方法 To s.Count '可以用Count属性返回集合中元素…
Visual Basic for Applications 宏语言 打开VB编辑器 首先打开Excel,组合键Alt+F11 加载宏 找到相应的宏,点击"执行" 举例 Sub 评分() Dim i As Integer For i = 3 To 11 t = Sheets(1).Cells(i, 2).Value '取得成绩 If t >= 90 Then j = "A" ElseIf t >= 80 Then j = "B" Els…
1.正则表达式失灵(excel2016) 案列:提取一段字符串中数字并求和 Function sumnum(x) Dim regexp As Object Set reg = CreateObject("VBAScript.RegExp") 'Dim reg As New regexp Dim s, n, m With reg .Global = True .Pattern = "\d*\.?\d*" Set n = .Execute(x) For Each m I…