用VBA数组比较两个字符串 共有多少个

laoau128

用VBA数组比较两个字符串  共有多少个

长字符串aa含有短字符串bb当中"s"，一共有多少个

aa = "abssfdfsbastaramasisps"   bb = "s"

liulang0808

ubound(split(aa,bb))

laoau128

liulang0808 发表于 2018-11-17 17:35
ubound(split(aa,bb))

不知道什么

liulang0808

laoau128 发表于 2018-11-17 17:37
不知道什么

sub test()
aa = "abssfdfsbastaramasisps"   
bb = "s"
msgbox ubound(split(aa,bb))
end sub

laoau128

liulang0808 发表于 2018-11-17 17:39
sub test()
aa = "abssfdfsbastaramasisps"   
bb = "s"

Sub test()
aa = "abssfdfsbastaramasisps"
bb = "s"
MsgBox UBound(Split(aa, bb))
End Sub

'还有第二问，第一个s出现在数组什么位置，第二个s出现在数组什么位置

'第n个s出现在数组什么位置

liulang0808

brr=Split(aa, bb)
逐个遍历字符串长短进行计算吧

MOY838840554

教程链接

laoau128

liulang0808 发表于 2018-11-17 17:44
brr=Split(aa, bb)
逐个遍历字符串长短进行计算吧

不懂如何写

liulang0808

1. Sub test()
   
2. aa = "abssfdfsbastaramasisps"
   
3. bb = "s"
   
4. brr = Split(aa, bb)
   
5. l = 0
   
6. For i = 1 To UBound(brr)
   
7.     l = l + Len(brr(i - 1))
   
8.     MsgBox "第" & i & "个：" & l + 1 + (i - 1) * Len(bb)
   
9. Next i
   
10. End Sub

复制代码

楼主在论坛发帖不少了，数组问题也提了不少了

02761752696

liulang0808 发表于 2018-11-17 18:29
楼主在论坛发帖不少了，数组问题也提了不少了

学习    学习