求助各位大神，这个如何用正则表达式处理？

贾天龙 · 发表于 2024-6-27 15:38

一段文字没有分行，如下所示：

13.采用铺浆法砌筑砌体，铺浆长度不得超过 mm;当施工期间气温超过 30℃时，铺浆长度不得超过 mm。（）A 550 700 B 550 500C 750 700 D 750 500 答案： D14.砖过梁底部的模板及其支架拆除时，灰缝砂浆强度不应低于设计强度的。（）A 50% B 65%C 75% D 80% 答案： C

如何用在VBA中用正则表达式处理成下面的格式？

13.采用铺浆法砌筑砌体，铺浆长度不得超过 mm;当施工期间气温超过 30℃时，铺浆长度不得超过 mm。（）

A 550 700 B 550 500

C 750 700 D 750 500

答案： D

14.砖过梁底部的模板及其支架拆除时，灰缝砂浆强度不应低于设计强度的。（）

A 50% B 65%

C 75% D 80%

答案： C

贾天龙 · 发表于 2024-6-28 15:19

这是附件

题干、选项一行、答案各一行.zip (7.94 KB, 下载次数: 11)

贾天龙 · 发表于 2024-6-28 15:25

mjm04 发表于 2024-6-28 09:46
上附件，模拟结果，不然不知道你在说什么

您好，这是附件，如何处理呢？

mjm04 · 发表于 2024-6-28 09:46

上附件，模拟结果，不然不知道你在说什么

mjm04 · 发表于 2024-6-28 23:17

你需要输出到一个单元格；这个用函数不好处理，

要么你一个个敲 ALT+ENTER 手动处理，要么去VBA区域问吧

ggmmlol · 发表于 2024-7-3 04:26

题干、选项、答案各占一行.rar (15.29 KB, 下载次数: 3)

grf1973 · 发表于 2024-7-3 11:05

在wps里直接用自定义公式“转换”即可。要把单元格设置成“自动换行”

Windor123 · 发表于 2024-7-3 15:07

供参考供参考供参考

wang-way · 发表于 2024-7-3 16:52

感觉很笨

RegReplace(s, "(\d+\.[^A]+)(A(?:(?!答案).)+)(答案(?:(?!\d+\.).)+)", "$1" & Chr(10) & "$2" & Chr(10) & "$3" & Chr(10))

复制代码

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