VBA 字符串操作

字符串拆与组合
'left,right,mid,Len

Sub z1()
  Dim sr
  sr = "Excel精英培训网"
  MsgBox Left(sr, 5)
  MsgBox Right(sr, 5)
  MsgBox Mid(sr, 3, 5)
  MsgBox Left(sr, Len(sr) - 1)
End Sub

'split

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

'val

 Sub z3()
  Dim sr
  sr = "89.90美元"
  MsgBox Val(sr) 
 End Sub

'字符串组合
'&

 Sub a4()
  	Debug.Print "a" & "b"
 End Sub
 'join
  
 Sub a5()
      Dim sr, arr
      sr = "Excel-精英-培训网"
      arr = Split(sr, "-")
      MsgBox Join(arr, "+")
End Sub

字符串的查找与替换

'instr 从前向后查

Sub c1()
  Dim sr
  sr = "Excel精英培训"
  Debug.Print InStr(sr, "精英") > 0
End Sub

'InStrRev 从后