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 谷歌啦.