12,excelvba常用字符串处理函数
处理excel数据 很多时候要和字符串打交道, 比如
0,想要知道一个字符串的长度是多少? 
1, 判断字符串是不是含有你需要的字符
2, 截取字符串的某一个部分
3, 将字符串里的某个字符进行替换
4, 把字符串按某个字符分割出来
接下来一一介始这几个函数, 
0,用 len() 函数获得一个字符串长度
Public Sub  点点didi12()
my_string = "diandian didi"
str_len = Len(my_string)
Debug.Print str_len
End Sub
运行一个,就可以在 立即窗口中看到长度值
1, 使用 instr() 判断是不是含某个字符,如果有,就会返回该字符出现的位置
Public Sub diandiandidi12()
my_string = "diandian didi"
my_exp = "an"
Index = InStr(my_string, my_exp)
If Index > 0 Then
Debug.Print Index
Else
Debug.Print "sorry ,no find you exp char"
End If
End Sub
如果字符串中有你需要的字符, 就会返回该字符第一次出现的位置, 如果没有,就说下sorry.运行结果如下, 你也可以复制该代码,改下 my_exp的值试试看
2 ,使用 left()  mid() ,right() 截取字符串. 
left是左截取, 从字符串左边开始,截取你需要的字符个数, right则从右边开始. mid的话,需要你输入字符串截取的位置和函数
接下来给大家演示下这三个函数
Public Sub diandiandidi12()
my_string = "start diandian didi end"
start_index = 3
jiequ_len = 5
left_char = Left(my_string, jiequ_len)
Debug.Print "left 5 char: " & left_char
right_char = Right(my_string, jiequ_len)
Debug.Print "right  5 char: " & right_char
mid_char = Mid(my_string, start_index, jiequ_len)
Debug.Print "mid_char  5 char: " & mid_char
End Sub
运行结果如下:
3 ,使用 replace() 把字符串中的某个字符替换成其它字符. 接下来把字符串中的an 替换成love
Public Sub diandiandidi12()
my_string = "start diandian didi end"
find_char = "an"
replace_char = "love"
replace_result = Replace(my_string, find_char, replace_char)
Debug.Print replace_result
End Sub
运行结果:
4 ,使用 split() 把字符串按某个字符分割, 接下来把字符串按 an字符进行分割 
Public Sub diandiandidi12()
my_string = "startdiandiandidiend"
split_char = "an"
split_results = Split(my_string, split_char, -1)
For Each result In split_results
vba 字符串转数组Debug.Print result
Next
End Sub
运行后如下:
split_results = Split(my_string, split_char, -1)  这句中, 最后面的 -1 ,表示返回所有的分割结果, 这里看到,返回了三个分割的结果.

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。