修改代码

xing_chen

老师！有表，目前代码只能显示▲所在行数，我希望修改为选择单元格中▲对大个数告知。敬请老师赐教！谢谢

xing_chen

无能为力！再眯！

zxsea_7426

准提部林

方法(1)// 用▲為分割符split, 再用ubound取數組元素個數
t$="▲孙六▲周七▲吴八▲杨九"
tr=split(t,"▲")
msgbox ubound(tr)
=======================
方法(2)// 用replace, 再用字元數相減
t$="▲孙六▲周七▲吴八▲杨九"
p$=replace(t,"▲","")
msgbox len(t)-len(p)

xing_chen

zxsea_7426 发表于 2023-3-7 07:02

谢谢老师！运行如愿！

准提部林

直接find
Sub KKK()
Dim T$, F As Range, i%
For i = 99 To 1 Step -1
    T = Application.Rept("▲*", i)
    Set F = [c:c].Find(T, Lookat:=xlPart)
    If Not F Is Nothing Then MsgBox F.Address & " / " & i: Exit For
Next i
End Sub

xing_chen

准提部林 发表于 2023-3-7 10:17
方法(1)// 用▲為分割符split, 再用ubound取數組元素個數
t$="▲孙六▲周七▲吴八▲杨九"
tr=split(t,"▲ ...

谢谢老师！收藏了！

ykcbf1100

参与一下吧。

xing_chen

准提部林 发表于 2023-3-7 10:27
直接find
Sub KKK()
Dim T$, F As Range, i%

谢谢老师！运行如愿

xing_chen

ykcbf1100 发表于 2023-3-7 11:11
参与一下吧。

谢谢老师！运行如愿！