学习资源:《Excel VBA从入门到进阶》第35集 by兰色幻想
本课的示例都在立即窗口展示运行结果,要在立即窗口展示的话要使用“Debug.Print”。
Debug.Print 将代码执行结果显示在“立即窗口”中,但不影响程序执行。
一、字符串截取
1.left,right,mid,Len
这几个函数在Excel中也有,具体的用途如下:
left(字符串,截取长度) 返回从字符串左边算起指定截取长度的字符。
right(字符串,截取长度) 返回从字符串右边算起指定截取长度的字符。
mid(字符串,截取起始位置,截取长度) 返回从字符串左边算的截取起始位置起的指定截取长度的字符。
Len(字符串) 返回字符串长度。
Sub z1()Dim srsr = "Excel精英培训网"Debug.Print Left(sr, 5) '结果:ExcelDebug.Print Right(sr, 5) '结果:精英培训网Debug.Print Mid(sr, 6, 2) '结果:精英Debug.Print Left(sr, Len(sr) - 1) '结果:Excel精英培训
End Sub
2.split
split 将字符串按特定的字符分开,返回的是一个一维数组,数组的起始下标为0。
Sub z2()Dim sr, arrsr = "Excel的精的英的培训网"arr = Split(sr, "的")Debug.Print UBound(arr)Debug.Print arr(0)
End Sub
3.val
val 返回字符串内的数字,遇到非数字字符结束运算。
Sub z3()Dim srsr = "89.90美元"Debug.Print Val(sr)
End Sub
经常有人弄混val和value,val是函数,value是属性,引用value需要对象。
4.&
& 连接两个字符串。
Sub a4()Debug.Print "a" & "b"End Sub
5.join
join(数组,连接的字符) 连接字符串。
Sub a5()Dim sr, arrsr = "Excel-精英-培训网"arr = Split(sr, "-")Debug.Print Join(arr, "+")
End Sub