求助：如何把选定区域中的特定字符提取出来，并弄成{A,B,C,D}这样的字符串格式。

mp3_2004

求助：如何把选定区域中的特定字符提取出来，并弄成{A,B,C,D}这样的字符串格式。
要求：要在C2：C20这个区域中找到含“×÷【】空格（）{}，”中的字符。
结果：返回字符串{×,÷,【,】}。
说明：结果用{}括起来，结果中每个字符只能有一个，不要重复，且仅字符中间用英文逗号连接。前面查找中的括号是中文括号。

gwjkkkkk

请参考。。。

mp3_2004

gwjkkkkk 发表于 2023-4-3 19:03
请参考。。。

老师好，我其实是为了一次性简化计算式用的，想一次提取到这些集合，再计算每行计算式的时候，有针对性的替换，比如把÷替换成/，因原文本计算式是不能动的，所以不能在原文本上替换。然后有时候整个文本可能都没有一个这些字符，那计算的时候都整个替换一遍，又太浪费时间了。所以想先看一下整个文本中有哪些，再去只循环替换那些有的字符。
比如原先这样依次替换每个单元格的话，假如整个都没有一个这些字符的时候，那这些替换就是纯浪费计算速度了。
Tmp = Application.Clean(StrConv(Rng, vbNarrow))             '全角转半角,清不可见字符
Tmp = Application.Substitute(Tmp, " ", "")                  '清除计算式中的空格
Tmp = Replace(Replace(Tmp, "（", "("), "）", ")")           '中文括号转换为英文括号
Tmp = Replace(Replace(Tmp, "[", "("), "]", ")")             '中括号转换为小括号
Tmp = Replace(Replace(Tmp, "{", "("), "}", ")")             '大括号转换为小括号
Tmp = Replace(Replace(Tmp, "×", "*"), "÷", "/")           '乘号、除号转换为计算符号

mp3_2004

gwjkkkkk 发表于 2023-4-3 19:03
请参考。。。

就是我的提问是针对选区，不是取具体的一个单元格，老师能帮忙再改一下不？主要是为了提速，有其他不对每个单元格循环的方法不?

gwjkkkkk

mp3_2004 发表于 2023-4-4 10:27
就是我的提问是针对选区，不是取具体的一个单元格，老师能帮忙再改一下不？主要是为了提速，有其他不对每 ...

没理解要达什么目的，建议模拟一下结果。。。

准提部林

mp3_2004 发表于 2023-4-4 09:56
老师好，我其实是为了一次性简化计算式用的，想一次提取到这些集合，再计算每行计算式的时候，有针对性的 ...

不檢查...怎知有哪些符號???
既然要先檢查...不如就直接替換..反正沒有的也不會錯

要嘛..海底撈, 不然一網打盡

mp3_2004

gwjkkkkk 发表于 2023-4-4 11:45
没理解要达什么目的，建议模拟一下结果。。。

老师，结果就是只需要一个结果就行了。就是在选区中找到{待查找字符}有哪些字符的一个集合{区域中有的字符（不重复），字符间用英文逗号连接}。如果区域中找不到，就返回一个结果""

gwjkkkkk

mp3_2004 发表于 2023-4-4 12:10
老师，结果就是只需要一个结果就行了。就是在选区中找到{待查找字符}有哪些字符的一个集合{区域中有的字 ...

这样？？？

mp3_2004

gwjkkkkk 发表于 2023-4-4 12:46
这样？？？

是的                                   

mp3_2004

准提部林 发表于 2023-4-4 11:58
不檢查...怎知有哪些符號???
既然要先檢查...不如就直接替換..反正沒有的也不會錯

有没有find或者search等的方法呢，先把需要替换的范围缩小一点，假如要替换的有很多行，如果先能缩小这个替换字符的范围，是不是可以让整个程序的运行提点速啊，我现在就是傻傻的，管它有没有都替换这么弄的，但是有点卡，一般至少有几百行整个计算完就要二十来秒了