ABCD四个选项无规律分布在A列的单元格里，跪求大神整合到一行或者的4个单元格里！....

香川群子 · 发表于 2018-3-16 09:44

本帖最后由香川群子于 2018-3-16 10:03 编辑

我的简单代码，解决了几个明显的错误，但仍存在原数据没有正确使用分隔符的很少的几个错误，这部分就手工处理吧。

解决问题：
1、提取了章节标题
2、兼容大写ＡＢＣＤ的错误
3、兼容部分以“.”为分隔符的错误。

但是完全遗漏分隔符的错误没有办法简单解决。
目前剩余A 2个，B 1个，C 4个，D 1个共计8个错误需要手工处理。

aman1516 · 发表于 2018-3-16 11:49

本帖最后由 aman1516 于 2018-3-16 11:55 编辑

如果有类似 “ D 以上A.B.C 都不对” 这样的如何处理
或第一项选择 “ A. xxxx A. XXB. XXC.XXDXXX” 或某项就已经包含有"ABCD"了，等类似情况
似乎AI才能识别啊

香川群子 · 发表于 2018-3-16 12:14

aman1516 发表于 2018-3-16 11:49
如果有类似 “ D 以上A.B.C 都不对” 这样的如何处理
或第一项选择 “ A. xxxx A. XXB. XXC.XXDXXX ...

目前，ABCD和实际内容之间有特殊分隔符，所以基本可以识别。

如果没有特殊分隔符，那就没有办法自动区分了。

caonavy · 发表于 2018-11-22 10:23

向各位大神学习！

将诶王瑞儿诶 · 发表于 2019-6-17 10:47

看见星光发表于 2018-3-15 11:41

大神帮帮忙在线急等我的问题和楼主差不多了把第一列的 ABCD 选项分别在对应的4列显示出来最好把第一列的选项也删除掉表格见附件谢谢

将诶王瑞儿诶 · 发表于 2019-6-17 10:49

chxw68 发表于 2018-3-15 11:48
供楼主参考。

大神帮帮忙在线急等我的问题和楼主差不多了把第一列的 ABCD 选项分别在对应的4列显示出来最好把第一列的选项也删除掉表格见附件谢谢

将诶王瑞儿诶 · 发表于 2019-6-17 10:50

香川群子发表于 2018-3-16 09:44
我的简单代码，解决了几个明显的错误，但仍存在原数据没有正确使用分隔符的很少的几个错误，这部分就手工处 ...

大神帮帮忙在线急等我的问题和楼主差不多了把第一列的 ABCD 选项分别在对应的4列显示出来最好把第一列的选项也删除掉表格见附件谢谢

ggmmlol · 发表于 2019-6-17 15:24

将诶王瑞儿诶发表于 2019-6-17 10:50
大神帮帮忙在线急等我的问题和楼主差不多了把第一列的 ABCD 选项分别在对应的4列显示出来最好把 ...

Sub test()
Set reg = CreateObject("vbscript.regexp")
reg.Global = True
reg.Pattern = "([\s\S]*?)(A、[\s\S]*?)(B、[\s\S]*?)(C、[\s\S]*?)(D、[\s\S]*)|[\s\S]+"
ar = Range("A1").CurrentRegion.Resize(, 1).Offset(, 1)
r = UBound(ar)
ReDim br(1 To r, 0 To 4)
For i = 1 To r
s = Split(reg.Replace(ar(i, 1), "$1`$2`$3`$4`$5"), "`")
For j = 0 To 4
br(i, j) = s(j)
Next
Next
Range("H1").Resize(r, 5) = br
End Sub

复制代码

将诶王瑞儿诶 · 发表于 2019-6-18 08:12

ggmmlol 发表于 2019-6-17 15:24

复制了运行不了能麻烦帮我在题库运行了放在附件我来下载么谢谢了大神

ggmmlol · 发表于 2019-6-18 11:35

将诶王瑞儿诶发表于 2019-6-18 08:12
复制了运行不了能麻烦帮我在题库运行了放在附件我来下载么谢谢了大神

导航执照理论试题.rar (448.92 KB, 下载次数: 7)

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

[求助] ABCD四个选项无规律分布在A列的单元格里，跪求大神整合到一行或者的4个单元格里！....

评分

最新热点 /1