截取指定字符前_VBA学习笔记35-1:字符串拆分与组合

学习资源：《Excel VBA从入门到进阶》第35集 by兰色幻想

本课的示例都在立即窗口展示运行结果，要在立即窗口展示的话要使用“Debug.Print”。

Debug.Print 将代码执行结果显示在“立即窗口”中，但不影响程序执行。

一、字符串截取

1.left,right,mid,Len

这几个函数在Excel中也有，具体的用途如下：

left(字符串，截取长度) 返回从字符串左边算起指定截取长度的字符。
right(字符串，截取长度) 返回从字符串右边算起指定截取长度的字符。
mid(字符串，截取起始位置，截取长度) 返回从字符串左边算的截取起始位置起的指定截取长度的字符。
Len（字符串） 返回字符串长度。

Sub z1()
  Dim sr
  sr = "Excel精英培训网"
  Debug.Print Left(sr, 5)            '结果：Excel
  Debug.Print Right(sr, 5)           '结果：精英培训网
  Debug.Print Mid(sr, 6, 2)          '结果：精英
  Debug.Print Left(sr, Len(sr) - 1)  '结果：Excel精英培训
End Sub

可以从视图选项调出“立即窗口”，或者按快捷键Ctrl+G

2.split

split 将字符串按特定的字符分开，返回的是一个一维数组，数组的起始下标为0。

Sub z2()
  Dim sr, arr
  sr = "Excel的精的英的培训网"
  arr = Split(sr, "的")
  Debug.Print UBound(arr)
  Debug.Print arr(0)
End Sub

运行结果

数组arr

3.val

val 返回字符串内的数字，遇到非数字字符结束运算。

Sub z3()
  Dim sr
  sr = "89.90美元"
  Debug.Print Val(sr)
End Sub

val遇到非数字字符就结束运算。

经常有人弄混val和value，val是函数，value是属性，引用value需要对象。

4.&

& 连接两个字符串。

 Sub a4()
  Debug.Print "a" & "b"
 End Sub

5.join

join(数组，连接的字符) 连接字符串。

Sub a5()
  Dim sr, arr
  sr = "Excel-精英-培训网"
  arr = Split(sr, "-")
  Debug.Print Join(arr, "+")
End Sub