查找第N个字符
合集下载
相关主题
- 1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
- 2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
- 3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。
khjhjkkh顺地fkdjh akjkhk中震 1231331313hdflk啡止hd kkh55
要找的字符
h 要找第几个 7
=FIND("&",SUBSTITUTE("Current","r","&" ,2))
用find嵌套：比如要找第二个r的 位置
=FIND("r",A1,FIND("r",A1)+1)
MyFind = i - 1 End Function =MyFind("Currrenrt","r",4)=8
它所在的位置
42
6楼 妙！！！ 用row把 要找的字 符挨个都 替换之后 再find， 得到各个 要找字符 的位置， 用index 取出来。 哈哈。
不好的是如果找第5个……那就要 套很多个find。
Public Function MyFind(rg As String, s As String, n As Integer) As Integer Dim i%, j% j=0 For i = 1 To Len(rg) If j < n Then 来自百度文库f Mid(rg, i, 1) = s Then j = j+1 Else: Exit For End If Next
要找的字符
h 要找第几个 7
=FIND("&",SUBSTITUTE("Current","r","&" ,2))
用find嵌套：比如要找第二个r的 位置
=FIND("r",A1,FIND("r",A1)+1)
MyFind = i - 1 End Function =MyFind("Currrenrt","r",4)=8
它所在的位置
42
6楼 妙！！！ 用row把 要找的字 符挨个都 替换之后 再find， 得到各个 要找字符 的位置， 用index 取出来。 哈哈。
不好的是如果找第5个……那就要 套很多个find。
Public Function MyFind(rg As String, s As String, n As Integer) As Integer Dim i%, j% j=0 For i = 1 To Len(rg) If j < n Then 来自百度文库f Mid(rg, i, 1) = s Then j = j+1 Else: Exit For End If Next