文本替换

江山社稷

cinlo 发表于 2021-8-25 08:48
加占位符，87个字符就出错，86是上限：
全是占位符可能不影响，但是加了其它描述性文字就不行！

好像确定不了是多少个

cinlo

江山社稷 发表于 2021-8-25 09:02
好像确定不了是多少个

汉字和英文字母不一样？还是其它？？
我初步测试了汉字和英文字母，是否和占位符穿插四种情况：

占位符穿插的时候，能多3个左右的字符！

xlllw203

1. Function bm(ByVal rng, n)
   
2. '模拟B
   
3. Dim i, arr
   
4. arr = Split(rng, n)
   
5. For i = 1 To UBound(arr) + 1
   
6. arr(i - 1) = i & "、" & arr(i - 1) & Chr(10)
   
7. Next
   
8. bm = Left(Join(arr), Len(Join(arr)) - 1)
   
9. 
   
10. End Function
    
11. Function cm(ByVal rng, n)
    
12. '模拟C
    
13. Dim arr, brr
    
14. arr = Split(rng, n)
    
15. brr = Array("①", "②", "③", "④", "⑤", "⑥")
    
16. For i = 1 To UBound(brr) + 1
    
17. arr(i - 1) = brr(i - 1) & "、" & arr(i - 1) & Chr(10)
    
18. Next
    
19. cm = Left(Join(arr), Len(Join(arr)) - 1)
    
20. End Function
    
21. 
    
22. Function jz(ByVal rng, n)
    
23. ' A12
    
24. Dim i, arr
    
25. arr = Split(rng, n)
    
26. For i = 1 To UBound(arr) - 1
    
27. arr(i - 1) = arr(i - 1) & n & "[注" & i & "]"
    
28. Next
    
29. jz = Join(arr)
    
30. 
    
31. End Function

复制代码

写了3个自定义函数，但是不理解为什么序号前面会多一个空格，请大神赐教

江山社稷

cinlo 发表于 2021-8-25 09:32
汉字和英文字母不一样？还是其它？？

完全不知道啊，用MID从第几位开始截取还有要求么，加到36就出错了

天蚕爱学习

菜鸟用的笨办法，从胡剑大神学的一招，WPS（SEQUENCE要用最新版的）可以直接用 evaluate函数  office要自定义宏表函数
="1、"&TEXTJOIN(CHAR(10)&SEQUENCE(9,1,2,1)&"、",1,EVALUATE("{"""&SUBSTITUTE(A2,"；",""";""")&"""}"))

天蚕爱学习

天蚕爱学习 发表于 2022-1-11 16:15
菜鸟用的笨办法，从胡剑大神学的一招，WPS（SEQUENCE要用最新版的）可以直接用 evaluate函数  office要自定 ...

需要用到最新函数 filter  sequence  unique  按字符分裂文本确实是个难点啊   如果分隔字符在最前或最后还会出错
="1、"&TEXTJOIN(CHAR(10)&SEQUENCE(20,1,2,1)&"、",1,MID(A2,UNIQUE((MID(A2,SEQUENCE(LEN(A2)),1)="；")*SEQUENCE(LEN(A2)))+1,FREQUENCY(SEQUENCE(LEN(A2)),FILTER(SEQUENCE(LEN(A2)),MID(A2,SEQUENCE(LEN(A2)),1)="；"))-1))

天蚕爱学习

天蚕爱学习 发表于 2022-1-11 16:15
菜鸟用的笨办法，从胡剑大神学的一招，WPS（SEQUENCE要用最新版的）可以直接用 evaluate函数  office要自定 ...

感谢   满坛皆为吾师！ 个人也算表格一线工作人员 ，摸爬滚打， 经常在在Excel home 论坛  偷艺 ，总体啊来说 缺乏一个系统的学习，第一次发帖子，拾人牙慧，版主回复很快，非常激动

天蚕爱学习

天蚕爱学习 发表于 2022-1-11 19:23
需要用到最新函数 filter  sequence  unique  按字符分裂文本确实是个难点啊   如果分隔字符在最前或最后 ...

费尽脑细胞，编了一段按特定分隔符拆分文本的公式，最新函数XMATCH、UNIQUE、SEQUENCE都上场，感觉还是不够简练，除了trim+mid+SUBSTITUTE那个，还有别的方法吗？发到群里请教一下大家=MID(A2,MMULT(XMATCH(UNIQUE(FIND("；",A2&"；",SEQUENCE(LEN(A2)))),FIND("；",A2&"；",SEQUENCE(LEN(A2))),,{1,-1}),{1;0}),MMULT(XMATCH(UNIQUE(FIND("；",A2&"；",SEQUENCE(LEN(A2)))),FIND("；",A2&"；",SEQUENCE(LEN(A2))),,{1,-1}),{-1;1}))

满坛皆为吾师

365测试通道的新函数TEXTSPLIT令公式有了更简洁的可能

1. =LET(X,"、"&TEXTSPLIT(A2,,"；"),TEXTJOIN(CHAR(10),,SEQUENCE(COUNTA(X))&X))

复制代码

delimit-R

="①"&"、"&LEFT(A2,5)&CHAR(10)&"②"&"、"&MID(A2,7,5)&CHAR(10)&"③"&"、"&MID(A2,13,6)&CHAR(10)&"④"&"、"&MID(A2,20,8)&CHAR(10)&"⑤"&"、"&MID(A2,29,4)&CHAR(10)&"⑥"&"、"&RIGHT(A2,6)

用的超级笨的方法