我的目标： 让中国的大学生走出校门的那一刻就已经具备这些Office技能，让职场人士能高效使用Office软件为其服务。支持我，也为自己加油！

今天分享下用VBA处理字符串时常用的函数：

Sub test()

s = "ab-CD-ef-gh"

'1、求字符串的字符长度

Debug.Print Len(s)

'2、求字符串的字节长度

Debug.Print LenB(s)

'3、小写转换为大写

Debug.Print UCase(s)

'4、大写转换为小写

Debug.Print LCase(s)

'5、提取字符串前两位字符

Debug.Print Left(s, 2)

'6、提取字符串后两位字符

Debug.Print Right(s, 2)

'7、提取字符串中第一个横杠后的两位字符

Debug.Print Mid(s, 4, 2)

'8、查找第一个横杠在字符串位置

Debug.Print InStr(s, "-")

'9、从第四个位置开始查找，查找横杠在字符串中的位置

Debug.Print InStr(4, s, "-")

'10、查找最后一个横杠在字符串位置

Debug.Print InStrRev(s, "-")

'11、把字符串中的横杠替换为顿号

Debug.Print Replace(s, "-", "、")

'12、按照横杠拆分字符串

ar = Split(s, "-") 'ar为数组，为拆分后所得的四个字符串元素

'13、删除字符串两端的空格，如果要删除所有的空格可以用replace

Debug.Print Trim("  abc d efg   ")

'14、将数字转为文本

Debug.Print str(123)

比较两个字符串常用LIKE函数：

Sub test1()

MyCheck = "aBBBa" Like "a*a"    ' Returns True.

MyCheck = "F" Like "[A-Z]"    ' Returns True.

MyCheck = "F" Like "[!A-Z]"    ' Returns False.

MyCheck = "a2a" Like "a#a"    ' Returns True.

MyCheck = "aM5b" Like "a[L-P]#[!c-e]"    ' Returns True.

MyCheck = "BAT123khg" Like "B?T*"    ' Returns True.

MyCheck = "CAT123khg" Like "B?T*"    ' Returns False.

MyCheck = "ab" Like "a*b"    ' Returns True.

MyCheck = "a*b" Like "a [*]b"    ' Returns False.

MyCheck = "axxxxxb" Like "a [*]b"    ' Returns False.

MyCheck = "a [xyz" Like "a [[]*"    ' Returns True.

MyCheck = "a [xyz" Like "a [*"    ' Throws Error 93 (invalid pattern string).

End Sub