excel单元格里的一段英文

huhaha7171

我只想留住每个单词的前2个字母，其他都用*替代。不如 today is a good day. 变成 to*** is a go** da*.不知道哪位能帮忙指点下。谢谢！

bxm78

用正则解决.

fanyoulin

用split函数也行，先把内容用split写入数组，循环数组分别作替换，然后再把数组替换后的内容组合起来填在单元格里。

huhaha7171

fanyoulin 发表于 2023-5-31 13:16
用split函数也行，先把内容用split写入数组，循环数组分别作替换，然后再把数组替换后的内容组合起来填在单 ...

谢谢 我是看到别人的exce表格里的公式也是这样的思路 他是用了几个自己写的函数 我是头一次来 得琢磨下

liulang0808

如果语句规范可以参考

huhaha7171

liulang0808 发表于 2023-5-31 13:34
如果语句规范可以参考

谢谢大佬 新手有时间压力没法慢慢琢磨 只有拿来先用了 太感谢！

tanglf188

遍历字符串，根据条件取对应字符再连接起来

1. Sub test()
   
2.     st = "today is a good day."
   
3.     For i = 1 To Len(st)
   
4.         ch = Mid(st, i, 1)
   
5.         x = IIf(ch = " " Or ch = ".", 0, x + 1)
   
6.         stri = IIf(x > 2, stri & "*", stri & ch)
   
7.     Next
   
8.     MsgBox stri
   
9. End Sub

复制代码

hl19881005

走过路过，我学习一下！

tspliu

                          凑个热闹

huhaha7171

tanglf188 发表于 2023-5-31 14:40
遍历字符串，根据条件取对应字符再连接起来

非常感谢 已借用。