【VBA】字符串处理函数
Trim(string)
去掉string左右两端空白
Ltrim(string)&
去掉string左端空白
Rtrim(string)
Len(string)
Left(string, x)
取string左段x个字符组成的字符串
Right(string, x)
Mid(string, start,x)
stringstartx
Ucase(string)
Lcase(string)
转换为小写
StrComp(string1,string2[,compare])
StrConv(string,conversion,LCID)
CStrstring
CStrString
String(number,character)
Format(expression[,format[,
firstdayofweek[,firstweekofyear]]])
InStr([Start,]string1,string2[,compare])
InStrRev(String1,String2[,[Start[,compare])
ASC(string)
Chr(charcode)
Filter(sourcearray,match[,include[,compare]])
Split(expression[,delimiter[,limit[,compare]]])
Join(sourcearray[delimiter])
Replace(expression,find,replace[,start[,count[,compare]]])
Replace(des, "/", " ")
StrReverse
已投稿到：
以上网友发言只代表其个人观点，不代表新浪网的观点或立场。VBA字符串处理 (2). Filter, Split ,Replace
VBA字符串处理 (2). Filter, Split ,Replace
VBA字符串处理 (2)., &,Replace&&
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 1 VBA中的字符串&&&&&&& VBA不仅可以处理数字，也可以处理文本(字符串)。VBA提供了两类字符串：一类为固定长度的字符串，声明时包含指字的字符数。例如，下面的语句Dim strFixedLong As String*100&&&&&&& 声明字符串变量后，无论赋予该变量多少个字符，总是只包含100个字符，但字符串最长不超过65526个字符，且需要使用Trim函数去掉字符串中多余的空格。定长字符串只有在必要时才使用。&&&&&&& 另一类为动态字符串。例如，声明字符串变量Dim strDynamic As String后，可以给该变量任意赋值，最多可包含20亿个字符。
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -2 VBA中处理字符串的函数&&& 2.1 StrComp&& &&& 2.2 ,,&&& &&& 2.3 ,&&& &&& 2.4 Len&&& &&& 2.5 Format&&& &&& 2.6 ，&&& &&& 2.7 ,, &&& &&& 2.8 Trim, LTrim, RTrim&&& &&& 2.9& Asc&&& &&& 2.10 Chr&&& &&& 2.11&& 使用字节的函数&&& 2.12 , &&& &&& 2.13 Join&&& &&& 2.14 Replace&&& &&& 2.15&StrReverse&&&
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - -2 VBA中处理字符串的函数
&&&&&&& VBA中返回字符串的函数有两种格式，一种以$结尾，返回字符串，不需要进行类型转换，所以速度较快，但如果输入值是包含Null的Viarant，则会发生运行错误；一种没有$，返回Viarant数据类型，如果输入值是包含Null的Viarant，则返回Null。因而，如果要使得程序运行速度快，则使用带有$的函数且要避免向这些函数传递空值。&&&&&&& - - - - - - - - - - - - - - - - - - - - - - -
&&&&&&& Filter函数返回一个下标从零开始的数组，该数组包含基于指定筛选条件的一个字符串数组的子集。其语法为：&&& Filter(sourcearray,match[,include[,compare]])&&&&&&& 其中，参数sourcearray必需，是要执行搜索的一维字符串数组；&&&&&&&&&&&&& 参数match必需，是要搜索的字符串；&&&&&&&&&&&&& 参数include可选，Boolean值，表示返回子串包含还是不包含match字符串，&&&&&&&&&&&&&&&&&&& 如果include为True，返回包含match子字符串的数组子集，&&&&&&&&&&&&&&&&&&& 如果include为False，返回不包含match子字符串的数组子集；&&&&&&&&&&&&& 参数compare可选，表示所使用的字符串比较类型，其设置值为：&&&&&&&&&&&&&&& -1(常数为vbUseCompareOption)表示使用Option Compare语句的设置值来执行比较；&&&&&&&&&&&&&&& 0(常数为vbBinaryCompare)表示执行二进制比较；&&&&&&&&&&&&&&& 1(常数为vbTextCompare)表示执行文字比较；&&&&&&&&&&&&&&& 2(常数为vbDatabaseCompare)只用于Microsoft Access，表示基于数据库信息来执行比较。&&&&&&& 如果在sourcearray中没有发现与match相匹配的值，Filter函数返回一个空数组；&&&&&&& 如果sourcearray是Null或不是一个一维数组，则产生错误。&&&&&&& Filter函数所返回的数组，其元素数是所找到的匹配项目数。&&&&&&& [编程方法和技巧]&&&&&&& (1) Filter函数也可以过滤数字值。此时，应指定Variant类型的字符串sourcearray，并用数字值给数组赋值。同时，也可以将字符串、Variant、Long或Integer数据传递给match。但应注意，返回的字符串表现为被过滤数字的字符串的形式。例如：&&& Sub test()&&&&&&&&& Dim varSource As Variant, varResult As Variant&&&&&&&&& Dim strMatch As String, i&&&&&&&&& strMatch = CStr(2)&&&&&&&&& varSource = Array(10, 20, 30, 21, 22, 32)&&&&&&&&& varResult = Filter(varSource, strMatch, True, vbBinaryCompare)&&&&&&&&& For Each i In varResult&&&&&&&&&&& Debug.Print i&&&&&&&&& Next&&& End Sub&&&&&&& 将返回20，21，22，32&&&&&&& (2) Filter函数可以和Dictionary对象很好地配合使用。可以把Dictionary对象产生的Key值作为一种过滤Dictionary对象成员的快速方法传递给Filter函数，如：&&& Sub test()&&&&&&&&& 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 oDict = New Dictionary&&&&&&&&& oDict.Add "Microsoft", "One Microsoft Way"&&&&&&&&& oDict.Add "AnyMicro Inc", "31 Harbour Drive"&&&&&&&&& oDict.Add "Landbor Data", "The Plaza"&&&&&&&&& oDict.Add "Micron Co.", "999 Pleasant View"&&&&&&&&& sKeys = oDict.Keys&&&&&&&&& sMatch = "micro"&&&&&&&&& blnSwitch = True&&&&&&&&&&& '寻找包含字符串macro(不区分大小写)的所有键&&&&&&&&& sFiltered() = Filter(sKeys, sMatch, blnSwitch, vbTextCompare)&&&&&&&&& For i = 1 To UBound(sFiltered)&&&&&&&&&&&&& Debug.Print sFiltered(i) & "," & oDict.Item(sFiltered(i))&&&&&&&&& Next iEnd Sub
&&&&&&& Split函数返回一个下标从零开始的一维数组，包含指定数目的子字符串。其语法为：&&& Split(expression[,delimiter[,limit[,compare]]])&&&&&&& Split函数语法有如下命名参数：
expression
必需的。包含子字符串和分隔符的 。如果expression是一个长度为零的字符串("")，Split则返回一个空数组，即没有元素和数据的数组。
可选的。用于标识子字符串边界的字符串字符。如果忽略，则使用空格字符(" ")作为分隔符。如果delimiter是一个长度为零的字符串，则返回的数组仅包含一个元素，即完整的 expression字符串。
可选的。要返回的子字符串数，–1表示返回所有的子字符串。
可选的。数字值，表示判别子字符串时使用的比较方式。关于其值，请参阅“设置值”部分。
compare参数的设置值如下：
vbUseCompareOption
用Option Compare语句中的设置值执行比较。
vbBinaryCompare
执行二进制比较。
vbTextCompare
执行文字比较。
vbDatabaseCompare
仅用于Microsoft Access。基于您的数据库的信息执行比较。
&&&&&&&&连段示例代码都没有，看来对这个函数应该是比较好掌握，返回一个下标从0开始的一维数组（顺便解决一个，水平方向的一维数组！！），言外之意就是不受Option Base 1的约束。
&&&&&&& 利用Lbound函数及Ubound函数可以分别得到指定数组的下标及上标，但要注意，这仅是说明了该数组的第1个元素及最后1个元素所对应的索引号，而上标并不一定是该数组的长度，如果数组从0开始计数，例如Split函数返回的数组，那上标只是最后1个元素对应的索引号，并不是数组的长度了。那不管是下标是不是从0开始，应该如何计算数组的长度呢？或者说有没有一个通用的方法来计算数组的长度？当然有啊，就是Ubound(arr)-Lbound(arr)+1，这就是标准的计算数组长度的公式，而不用考虑下标是否从0开始了。
下面是关于以上方法的一个验证：Sub split函数赋值给单元格()&&&&&&& Dim y&&&&&&& Dim i As Integer&&&&&&& Dim str As String&&&&&&&&Dim arraycom() As String& && && && &&&'只能是字符串类型&&&&&&& str = "1,12,24,51,21,10"&&&&&&&&&&& 'arraycom= Array("11", "22", "3")&&&&&&&&& 'Array函数生成的数组受Option Base 1的约束，&&&&&&& arraycom() = Split(str, ",")&&&&&&& Debug.Print UBound(arraycom) - LBound(arraycom) + 1&&&&&&& For i = 0 To UBound(arraycom)&&&&&&& &&& debug.Print i,arraycom(I)&&& &&& Next i&& &&& For Each y In Split(str , ",")&&&&&&&&& & Debug.Print y&&&&& &Next yEnd Sub
&&&&&&& - - - - - - - - - - - - - - - - - - - - - - -
&&&&&&& Join函数返回连接某数组中的多个子字符串而组成的字符串，即将数组中的字符串连接起来。其语法为：&&& Join(sourcearray[，delimiter])&&&&&&& 其中，参数sourcearray必需，是包含被连接子字符串的一维数组；&&&&&&&&&&&&& 参数delimiter可选，代表在所返回的字符串中用于分隔子字符串的字符，若忽略则使用空(“ ”)来分隔，若为零长字符串(“”)，则所有项目都连接在一起，中间没有分隔符。&&&&&&& - - - - - - - - - - - - - - - - - - - - - - -
&&&&&&& 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开始，而不是从原有字符串的第一个字符开始。&&&&&&& - - - - - - - - - - - - - - - - - - - - - - -
&&&&&&& StrReverse函数返回与指定字符串顺序相反的字符串，其语法为：&&& StrReverse(expression)&&&&&&& 其中，参数expression是一个字符串，应用StrReverse函数后将返回与该字符串顺序相反的字符串。&&&&&&&&&&& 如果expression是一个长度为零的字符串(“”)，则返回一个长度为零的字符串；&&&&&&&&&&& 如果expression为Null，则产生一个错误。&&&&&&& &
发表评论：
TA的最新馆藏[转]&[转]&[转]&[转]&[转]&[转]&查看: 1000|回复: 3
求助：关于数组与Filter函数
阅读权限20
在线时间 小时
《Excel 2010 VBA 入门与提高》疑难96解决方案二（274）面有下面这个程序。该程序后面的解释即276面第十行有“Filter函数所返回的数组仅能赋值给一个变体型的非数组变量。如果在声明变量时已经将变量指定为数组（无论是动态数组还是固定大小的数组），当将Filter函数返回的结果赋值给该变量时，将出现如图5－34所示的错误”；本书271面“数组的维度与单元格行列的关系”的第二段提到：“当将单元格区域的数组直接读入动态数组时，无论原始数据是单行还是区域，总是以下限为1的二维数组的形式返回”。& & 下面这个程序第一个红色语句部指出arrdata为数组，并且因为是将一行单元格的值赋给它，按上面的说法，应该是一个二维数组，但实际上无论是后面的程序还是用Lbound（arrdata,2）的方法，均指出这是一个一维数组，这个结果与上面提到的第二个解释有误；第二个红色语句部分将Filter函数所返回的数组赋值给一个数组，与上面提到的第一个解释有误。& &&&请各位大侠及版主指导一下，是不是书中的解释有误，还是我个人的理解有误，非常感谢！Sub 使用数组提取不重复值2()& & '变量声明& & Dim shtData& &&&As Worksheet& &'原始数据工作表& & Dim shtResult& &As Worksheet& &'结果数据工作表&&&&Dim arrData& && && && && && && && && &&&'原始数据数组& & Dim arrResult& && && && && && && && &&&'结果数据数组& & Dim dataCount& &As Long& && &&&'结果数组元素计数& & '定义工作表& & Set shtData = Sheet1& & Set shtResult = Sheet2& & '将原始数据读入数组中& & With shtData& && &&&arrData = WorksheetFunction.Transpose( _& && && && &.Range(&H2:H& & .Range(&A1&).CurrentRegion.Rows.Count).Value)& & End With& & '初始化结果数组，并设定其起始元素个数为0& & dataCount = 0& & ReDim arrResult(1 To 1)& & '不断循环，直到原始数据数组为空数组& & Do Until UBound(arrData) & LBound(arrData)& && &&&'假设结果数组中需要添加当前元素& && &&&'改变数组大小，并添加元素& && &&&dataCount = dataCount + 1& && &&&ReDim Preserve arrResult(1 To dataCount)& && &&&'将原始数组中的第一个元素赋值给结果数组& && &&&arrResult(dataCount) = arrData(LBound(arrData))& && &&&'使用Filter函数在原始数组中去除该元素& && &&&arrData = Filter(arrData, arrResult(dataCount), False)& & Loop& & '操作结果表& & With shtResult& && &&&'清空结果区域& && &&&.Range(&A2:A& & .Rows.Count).Clear& && &&&'结果输出& && &&&.Range(&A2&).Resize(UBound(arrResult), 1).Value = _& && && && &WorksheetFunction.Transpose(arrResult)& & End WithEnd Sub
阅读权限20
在线时间 小时
将单元格区域的数组直接读入动态数组时，无论原始数据是单行还是区域，总是以下限为1的二维数组的形式返回
没错，单元格直接赋值到数组时都是二维数组啊
arrData = WorksheetFunction.Transpose( _
& && && && &.Range(&H2:H& & .Range(&A1&).CurrentRegion.Rows.Count).Value)
但是这个把同一列转置为一维数组了
阅读权限20
在线时间 小时
本帖最后由 qwert40 于
22:11 编辑
zhiget 发表于
将单元格区域的数组直接读入动态数组时，无论原始数据是单行还是区域，总是以下限为1的二维数组的形式返回
你意思是说transpose函数将一列转为一行时，直接返回的是一维数组？但我看该函数的解释说的是“返回转置单元格区域”，既然是区域，赋给动态数组时，就应该是一个二维数组啊，不应该是一维数组。
阅读权限20
在线时间 小时
qwert40 发表于
你意思是说transpose函数将一列转为一行时，直接返回的是一维数组？但我看该函数的解释说的是“返回转置单 ...
之前说的很清楚&&是一列转为一维数组
不论是一行 还是一列
直接赋值给数组都是二维数组，你自己用VBA 单步运行 观察本地窗口就可以发现
最新热点 /1
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师VBA Join函数
VBA Join函数
Windows10用户联盟QQ群：
这个函数，返回一个包含子字符串数组中的指定数量的字符串。这与 Split方法的作用完全相反。
Join(List[,delimiter])
List, 必需的参数。要加入包含属于子数组。
delimiter, 一个可选的参数。字符就是返回的字符串，用作分隔符。缺省的分隔符是空格。
添加一个按钮，并添加以下功能
Private Sub Constant_demo_Click()
' Join using spaces
a = array(&Red&,&Blue&,&Yellow&)
b = join(a)
msgbox(&The value of b & & & is :&
' Join using $
b = join(a,&$&)
msgbox(&The Join result after using delimiter is : & & b)
当执行函数输出如下所示：
The value of b is :Red Blue Yellow
The Join result after using delimiter is : Red$Blue$Yellow
标签：&&&&&&&&&&&&