电脑桌面
添加小米粒文库到电脑桌面
安装后可以在桌面快捷访问

VBA字符串处理VIP免费

VBA字符串处理_第1页
1/10
VBA字符串处理_第2页
2/10
VBA字符串处理_第3页
3/10
VBA 字符串处理专题 查找特定字符串的代码 这是我在QQ 群(蓝色幻想读者群)里面回复—— 小桥.流水(290931055) 的求助: Sub rrr() Dim pos%, w$ w = "BSQ1-3-(5,6)" pos = Application.WorksheetFunction.Find("SQ", w) MsgBox pos End Sub 还可以 Sub rrr() Dim pos%, w$ w = Sheet1.Cells(1, 1).Value 'A1 的内容为:BSQ1-3-(5,6)" pos = Application.WorksheetFunction.Find("SQ", w) MsgBox pos End Sub *************************补充一下*************************************************************** instr 函数:指定一字符串在另一字符串中最先出现的位置 InStr(开始位置,查找的字符串, 搜索的子字符串) 例:InStr(1, w,"SQ") 统计一个字符串中的某个字符的出现次数,比如"asdsd" s 出现两次,应该用哪个函数? Sub ttt() Dim Q$, I%, J%, W% Q = "asdsd" I = Len(Q) For J = 1 To I If Mid(Q, J, 1) = "s" Then W = W + 1 Next MsgBox W End Sub *************************补充一下*************************************************************** 以上循环也可以用以下语句实现: Sub ttt() Msgbox Len("dSdSd") - Len(Replace("dSdSd", "S", "")) End Sub 注: Replace 是在一个字符串中,对指定的字符串进行替换为其他指定的字符串.本例中在字符串"dSdSd"中,用""替换"S",然后用原来的总长度(LEN函数求得)减去替换后的总长度,即为S 的个数. 某个字符的出现次数(自定义函数法) Function test(X, S As String) As Integer Dim I%, J% I = Len(X) For J = 1 To I If Mid(X, J, 1) = "s" Then test = test + 1 Next End Function 用这个自定义函数也可以 比如A1 的内容是:asdsd 你在a2 输入: =test(a1,"s") 或者想计算 d 有几个 =test(a1,"d") 自定义函数比宏(过程sub ***() …… end sub)灵活一点 ***************************************************************** 根据蓝色幻想版主的提示,还可以自定义函数改修为: Function test(X, S As String) As Integer test = Len(X)-len(replace(x,s,"")) End Function 返回定长字符串的工作表函数法和VBA 法 又要问一个了:取一个字符串中某个位置的定长字符串,有那个函数么?比如:"asdfg",从...

1、当您付费下载文档后,您只拥有了使用权限,并不意味着购买了版权,文档只能用于自身使用,不得用于其他商业用途(如 [转卖]进行直接盈利或[编辑后售卖]进行间接盈利)。
2、本站所有内容均由合作方或网友上传,本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺!文档内容仅供研究参考,付费前请自行鉴别。
3、如文档内容存在违规,或者侵犯商业秘密、侵犯著作权等,请点击“违规举报”。

碎片内容

VBA字符串处理

确认删除?
VIP
微信客服
  • 扫码咨询
会员Q群
  • 会员专属群点击这里加入QQ群
客服邮箱
回到顶部