大家好，我是考100分的小小码 ，祝大家学习进步，加薪顺利呀。今天说一说12, excel vba 常用字符串处理函数「终于解决」,希望您对编程的造诣更进一步.
处理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
Debug.Print result
Next
End Sub
运行后如下:
split_results = Split(my_string, split_char, -1) 这句中, 最后面的 -1 ,表示返回所有的分割结果, 这里看到,返回了三个分割的结果.
这个分割函数执行后,返回的是一个数组, 也就是split_results是一个数组, 数组是一种数据结构, 你可以把这种结构想像成一排柜子,每个柜子都有一个序号, 从0开始进行标号,每个柜子里都可以放一些东西, 在这里的话, 可以画草图给大家做个理解:
split_results可以看成有三个柜子组成的数组, 如果你想得到里面的某个数据, 可能用 数组名(index) 的方式, 比如你想得到第一个数据 , 就可以用 split_results(0) , 哦, 这里的序号是从0开始的. 0 到1到2…
Public Sub diandiandidi12()
my_string = “startdiandiandidiend”
split_char = “an”
split_results = Split(my_string, split_char, -1)
Debug.Print “the first split result is : ” & split_results(0)
End Sub
常用函数的话还有 trim() ,可以把字符串前后的空字符串去掉, 如果你想了解更多函数,就需要靠你自己百度or 谷歌啦.
版权声明：本文内容由互联网用户自发贡献，该文观点仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 举报，一经查实，本站将立刻删除。
转载请注明出处: https://daima100.com/11353.html
