求助大佬写个VBA代码多工作簿、多工作表数据提取

540437111 · 发表于 2023-5-11 15:25

ykcbf1100 发表于 2023-5-11 15:22
这个需要时间，静下心来才能完成。
我理解你的难处，报上来的数据确实也不太受你控制，你来汇总也确实有 ...

谢谢您的理解，可是5点前需要提交工作单位催的急！

ykcbf1100 · 发表于 2023-5-11 15:28

540437111 发表于 2023-5-11 15:25
谢谢您的理解，可是5点前需要提交工作单位催的急！

无能为力了。
如果不是比较麻烦，相信，早有人帮你写了代码了。

kaixinbuy · 发表于 2023-5-11 16:05

540437111 发表于 2023-5-11 15:25
谢谢您的理解，可是5点前需要提交工作单位催的急！

你自己去我们系统注册个帐号现在搞5.30之前应该都还能搞出来

不过里边有些字段有些技巧，顶多今晚加加班。

grf1973 · 发表于 2023-5-11 16:29

没啥技巧，纯体力活
提取姓名、职务、电话用了正则。前提是姓名、职务、电话符合提取规则（姓名3-4位，或2位中间有空格，职务中间无空格，电话11位）

grf1973 · 发表于 2023-5-11 16:37

电话号码 \d{11}还可以改成\d+-?\d+，这样可以把座机也包括进去。

grf1973 · 发表于 2023-5-11 16:40

reg.Pattern = "([\u4e00-\u9fa5]{3,4}|[\u4e00-\u9fa5]\s*[\u4e00-\u9fa5])\s+([\u4e00-\u9fa5]+)\s+(\d+-?\d*)" '提取姓名、职务、手机

允许单名单姓不含空格，允许电话号码含“-”，且不一定为11位。

540437111 · 发表于 2023-5-11 17:03

grf1973 发表于 2023-5-11 16:40
reg.Pattern = "([%u4e00-%u9fa5]{3,4}|[%u4e00-%u9fa5]\s*[%u4e00-%u9fa5])\s+([%u4e00-%u9fa5]+)\s+(\d+- ...

大佬牛逼牛逼牛逼感谢！

540437111 · 发表于 2023-5-12 10:11

grf1973 发表于 2023-5-11 16:29
没啥技巧，纯体力活
提取姓名、职务、电话用了正则。前提是姓名、职务、电话符合提取规则（姓名3-4位，或2 ...

大佬我发现一个问题！能帮我修改一下嘛！

右边出现 2个的情况！

grf1973 · 发表于 2023-5-12 10:17

希望提取成什么呢？如果只是把戴国益提到文本6、7、8是没有问题的。严望平在文本3、4、5里面

grf1973 · 发表于 2023-5-12 10:21

代码不需要改，提取结果是这样的

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

[求助] 求助大佬写个VBA代码多工作簿、多工作表数据提取

评分

[求助] 求助大佬写个VBA代码 多工作簿、多工作表数据提取

评分

[求助] 求助大佬写个VBA代码多工作簿、多工作表数据提取