Dim i As Integer
Dim sKeys() As Variant Dim sFiltered() As String Dim sMatch As String Dim blnSwitch As Boolean Dim oDict As Dictionary Set Dict = New Dictionary
oDict.Add \ oDict.Add \ oDict.Add \
oDict.Add \sKeys = oDict.Keys sMatch = \blnSwitch = True
'寻找包含字符串macro(不区分大小写)的所有键
sFiltered() = Filter(sKeys, sMatch, blnSwitch, vbTextCompare) For i = 1 To UBound(sFiltered)
Debug.Print sFiltered(i) & \ Next i End Sub
2.11.2 Split函数
Split函数返回一个下标从零开始的一维数组，包含指定数目的子字符串。其语法为： Split(expression[,delimiter[,limit[,compare]]])
其中，参数expression必需，表示包含子字符串和分隔符的字符串，若expression是一个长度为零的字符串(“”)，该函数则返回一个没有元素和数据的空数组；参数delimiter用于标识子字符串边界的字符串字符，若忽略则使用空格(““)作为分隔符，若是一个长度为零的字符串则返回仅包含一个元素的数组，该元素是expression所表示的字符串；参数limit表示要返回的子字符串数，-1表示返回所有的子字符串；参数compare表示判别子字符串时使用的比较方式，其值与Filter函数的设置值相同。
2.12连接字符串
Join函数返回连接某数组中的多个子字符串而组成的字符串，即将数组中的字符串连接起来。其语法为：
Join(sourcearray[，delimiter])
其中，参数sourcearray必需，是包含被连接子字符串的一维数组；参数delimiter可选，代表在所返回的字符串中用于分隔子字符串的字符，若忽略则使用空(“”)来分隔，若为零长字符串(“”)，则所有项目都连接在一起，中间没有分隔符。
2.13替换字符串
Replace函数返回一个被替换了的字符串，该字符串中指定的子字符串已被替换成另一个子字符串，并且替换指定次数。其语法为：
Replace(expression,find,replace[,start[,count[,compare]]])
其中，参数expression必需，表示所要替换的子字符串；参数find必需，表示要搜索到的子字符串；参数replace必需，表示用来替换的子字符串；参数start表示开始搜索的位置，若忽略，则从1开始；参数count表示进行替换的次数，缺省值是-1，表示进行所有可能的替换；参数compare表示判别子字符串时所用的比较方式，与Filter函数的设置值相同。 如果expression的长度为零，Replace返回零长度字符串(“”)；如果expression为Null，则返回错误；如果find的长度为零，则返回expression的副本；如果replace的长度为零，则返回删除了所有出现find的字符串的副本；如果start的值大于expression的长度，则返回长度为零的字符串；如果count为0，则返回expression的副本。
Replace函数返回的字符串是从参数start所指定的位置开始到expression结尾已经进行过替换的字符串。 注意：
(1) 如果没有使用参数count，那么当替换较短字符串时就要注意，防止形成一个不相关的字符。
(2) 如果start值大于1，返回的字符串将从start开始，而不是从原有字符串的第一个字符开始。
2.14反向字符串
StrReverse函数返回与指定字符串顺序相反的字符串，其语法为： StrReverse(expression)
其中，参数expression是一个字符串，应用StrReverse函数后将返回与该字符串顺序相反的字符串。如果expression是一个长度为零的字符串(“”)，则返回一个长度为零的字符串；如果expression为Null，则产生一个错误。