VBA基础函数：比较两个字符串——StrComp 函数

最新推荐文章于 2025-08-16 22:00:00 发布

翻译最新推荐文章于 2025-08-16 22:00:00 发布 · 2.2w 阅读

VBA 专栏收录该内容

36 篇文章

订阅专栏

本文详细介绍了VBA中用于字符串比较的StrComp函数。解释了函数的语法、参数及返回值，通过示例展示了如何使用该函数进行文本和二进制比较。

StrComp 函数

返回 Variant (Integer)，为字符串比较的结果。

语法

StrComp(string1, string2[, compare])

StrComp 函数的语法有下面的命名参数：

部分	说明
*string1*	必要参数。任何有效的字符串表达式。
*string2*	必要参数。任何有效的字符串表达式。
*Compare*	可选参数。指定字符串比较的类型。如果 *compare* 参数是 Null，将发生错误。如果省略 *compare，Option* Compare 的设置将决定比较的类型。

设置

compare 参数设置为：

常数	值	描述
vbUseCompareOption	-1	使用Option Compare语句设置执行一个比较。
vbBinaryCompare	0	执行一个二进制比较。
vbTextCompare	1	执行一个按照原文的比较。
vbDatabaseCompare	2	仅适用于Microsoft Access，执行一个基于数据库信息的比较。

返回值

StrComp 函数有下列返回值：

如果	StrComp 返回
*string1* 小于 *string2*	-1
*string1* 等于 *string2*	0
*string1* 大于 *string2*	1
*string1* 或 *string 2为 Null*	Null

StrComp 函数示例

本示例使用 StrComp 函数来比较两个字符串。如果第三个参数值为 1，字符串是以文本比较的方式进行比较；如果第三个参数值为 0 或是缺省，则以二进制比较的方式进行比较。

文本比较方式会将大小写字母视为一样，但二进制比较方式则视为不同。

Dim MyStr1, MyStr2, MyComp
MyStr1 = "ABCD": MyStr2 = "abcd"    ' 定义变量。
MyComp = StrComp(MyStr1, MyStr2, 1)    ' 返回 0。
MyComp = StrComp(MyStr1, MyStr2, 0)    ' 返回 -1。
MyComp = StrComp(MyStr2, MyStr1)    ' 返回 1。

source:VBA Help