各位老师们好，VBA可不可以做到这样的结果，麻烦各位老师帮忙看看，谢谢大家。

13602822168 · 发表于 2024-9-5 13:13

本帖最后由 13602822168 于 2024-9-5 13:15 编辑

各位老师们好，VBA可不可以做到这样的结果，麻烦各位老师帮忙看看，谢谢大家。

如果一次不行可以先拆开，再去除括号，再排列。

小凡、、、 · 发表于 2024-9-5 14:21

正则参与一下

mjm04 · 发表于 2024-9-5 15:22

本帖最后由 mjm04 于 2024-9-5 15:24 编辑

用函数搞了个半自动的，需要建辅助行，WPS最新版可用

辅助行-EJ23单元格
=BYCOL(MAP($M$25:$EH$94,LAMBDA(a,IF(REGEXP(a,"[(.+)]{2,}",1),a,""))),LAMBDA(b,TEXTJOIN(,1,b)))

拆括号-EJ25单元格
=TEXTSPLIT(EJ$23,,{"(",")(",")"},1)
右拉

本人水平有限，实在是不能合并成一个函数表达式了

=======================================================
如果是Excel 需要将辅助行里的正则函数更换为EXCEL里的正则函数， 正则表达式 不变
版本需 2024 或 M365 才行

13602822168 · 发表于 2024-9-5 15:44

小凡、、、发表于 2024-9-5 14:21
正则参与一下

谢谢！！！！报杀毒，不知什么原因？？

小凡、、、 · 发表于 2024-9-5 15:49

13602822168 发表于 2024-9-5 15:44
谢谢！！！！报杀毒，不知什么原因？？

我保存时被火绒拦截了撤回的，你看着复制下源码

		自动登录	找回密码
密码			免费注册

[求助] 各位老师们好，VBA可不可以做到这样的结果，麻烦各位老师帮忙看看，谢谢大家。

评分