数据和要求
提取“wx”“zfb”“yhk”“wx补”“zfb补”“yhk补”这些字母后面的数字，字母不区分大小写。
Option Compare Text '字母不区分大小写
Sub Cat()
Dim a
'//将特定字符装入数组
a = Array("wx", "zfb", "yhk", "wx补", "zfb补", "yhk补")
For i = 1 To Cells(Rows.Count, 1).End(3).Row '遍历数据
For Each aa In a '遍历字符
k = InStr(Cells(i, 1), aa) '如果包含字符，那么k的值大于0，否则等于0
If k > 0 Then
kk = Len(aa) + k '//返回第一个数字的位置
Cells(i, 2) = Val(Mid(Cells(i, 1), kk, 99)) '读取数字
End If
Next
Next
End Sub
1、Option Explicit。当使用Option Explicit时，必须在模块中的所有过程声明每一个变量，否则会出现语法错误并不能被编译。这样做的好处是，它能消除程序中因为错拼变量名而导致程序 错误，所以见意使用此选项。自动设定的方法：在VBA编辑器工具菜单中选项里的编辑器选卡中的要求声明变量选项选上即可。这个每次插入新模块时会自动插入 此声明。
2、Option Private Module。当使用此设定时，模块中的代码将标记为私有，这样在宏对话框中就不能看到这些代码，也就是在Excel主界面的工具/宏/宏的对话框中不会 显示私有的子程序名称，这也防止了模块的内容被其它工程引用，不过在同一工程中的其它模块仍然是可用的。
3、Option Compare {Binary | Text | Database}。用于声明字符串比较时所用的缺省比较方法。如果模块中没有 Option Compare 语句，则缺省的文本比较方法是 Binary。
Option Compare Binary 是根据字符的内部二进制表示而导出的一种排序顺序来进行字符串比较。在 Microsoft Windows 中，排序顺序由代码页确定。典型的二进制排序顺序如下例所示：
A < B < E < Z < a < b < e < z < _ < _ < _ < _ < _ < ?
Option Compare Text 根据由系统区域确定的一种不区分大小写的文本排序级别来进行字符串比较。当使用 Option Compare Text 对相同字符排序时，会产生下述文本排序级别：
(A=a) < ( =) < (B=b) < (E=e) < (=) < (Z=z) < (=)
'
' Option Compare Database 只能在 Microsoft Access 中使用。当需要字符串比较时，将根据数据库的区域 ID 确定的排序级别进行比较。
4、Option Base {0 | 1}。用来声明数组下标的缺省下界。
注意 Dim、Private、Public、ReDim 以及 Static 语句中的 To 子句提供了一种更灵活的方式来控制数组的下标。不过，如果没有使用 To 子句显式地指定下界，则可以使用 Option Base 将缺省下界设为 1。使用 Array 函数或 ParamArray 关键字创建的数组的下界为 0；Option Base 对 Array 或 ParamArray 不起作用。
Option Base 语句只影响位于包含该语句的模块中的数组下界
示例文件下载：
链接: http://pan.baidu.com/s/1o8I7CKU 密码: ydyr
网友评论