【分享成果，随喜正能量】活得通透的人 ，没有特别想维持的关系 ，也没有特别想要的东西 ，走近的人不抗拒 ，离开的人不强留 ，就连吃亏也懒得计较。。

《VBA经典应用69例》（10178981），是我推出的第九套教程，教程是专门针对初级、中级学员在学习VBA过程中可能遇到的案例展开，这套教程案例众多，紧贴“实战”，并做“战术总结”，以便大家能很好的应用。教程的目的是要求大家在实际工作中要利用好VBA。本套教程共三册六十九个专题，今日内容：应用3:VBA中字符串值的比较方案

应用3 VBA中字符串值的比较方案

大家好，对于职场中和数据打交道较多的学员，学习、利用VBA本身就是工作中的一件乐事，将大量的手工操作交给计算机自己去完成，收获的是效率的提高，以及工作后大量的宽裕的实间。这讲给大家讲解一个实际的VBA利用场景，并加以总结。在利用VBA处理实际问题中最为常见的一类是值的比较判断。当数据的值满足某种条件时让程序做相应处理，当不满足时做其他处理，这种逻辑是贯穿于整个代码过程的基本逻辑思路，这个专题我们就来讲解一下VBA中有关值的比较判断方案。

1 Instr()函数

Instr函数，返回一个Variant (Long)值，指定一个字符串在另一个字符串中首次出现的位置。

语法：InStr([start], string1, string2, [compare])

参数：

① start 可选。 设置每次搜索的起始位置的数字表达式。 如果忽略，则搜索从第一个字符位置开始。如果start包含Null，则出现错误。如果指定了compare，则start参数是必需的。

② string1 必需。 要搜索的字符串表达式。

③ string2 必需。 搜索到的字符串表达式。

④ compare 可选。 指定字符串比较的类型。如果compare为Null，则将发生错误。如果省略compare，则Option Compare设置将决定比较的类型。指定有效的LCID (LocaleID) 以在比较中使用区域设置特定规则。

compare 参数设置如下：

① vbUseCompareOption -1 使用 Option Compare 语句的设置执行比较。

② vbBinaryCompare 0 执行二进制比较。

③ vbTextCompare 1 执行文本比较。

④ vbDatabaseCompare 2 仅用于 Microsoft Access。根据数据库中的信息执行比较。

返回值：

① string1 是零长度 则返回 0

② string1 为 Null 则返回 NULL

③ string2 是零长度 则返回 start

④ string2 为 Null 则返回 NULL

⑤ 未找到 string2 则返回 0

⑥ 在 string1 中找到 string2 则返回 找到匹配的位置

⑦ start > string2 则返回 0

我20多年的VBA实践经验，全部浓缩在下面的各个教程中：