怎样用VBA按单位分别建立与会人员工作薄？

shiruiqiang · 发表于 2023-11-19 11:31

xinxin2021 发表于 2023-11-18 23:26
如果把结果文件第一列的序号从1排起就尽善尽美了。

改好了，比较简单

xinxin2021 · 发表于 2023-12-24 18:04

本帖最后由 xinxin2021 于 2023-12-24 18:52 编辑

shiruiqiang 发表于 2023-11-19 11:31
改好了，比较简单

再次请教：如果源文件中有会议的名称（第几次），提取结果要求在备注栏注明每位参会人员参加的会议名称（第几次），怎样修改您上面这个程序实现呢？

shiruiqiang · 发表于 2023-12-25 17:01

xinxin2021 发表于 2023-12-24 18:04
再次请教：如果源文件中有会议的名称（第几次），提取结果要求在备注栏注明每位参会人员参加的会议名称（ ...

xinxin2021 · 发表于 2023-12-25 20:04

shiruiqiang 发表于 2023-12-25 17:01

可以去掉“2023年”字样吗？只要“第几次

shiruiqiang · 发表于 2023-12-25 20:14

split（,“年”)(1)

xinxin2021 · 发表于 2023-12-25 20:24

本帖最后由 xinxin2021 于 2023-12-25 20:33 编辑

shiruiqiang 发表于 2023-12-25 20:14
split（,“年”)(1)

请教加在这行代码哪个位置：brr(m, 9) = Split(arr(1, 1), "次")(0) & "次"
问这样简单的问题，见笑！

shiruiqiang · 发表于 2023-12-25 20:33

brr(m, 9) = split(Split(arr(1, 1), "次")(0) & "次"，“年”)(1)

xinxin2021 · 发表于 2023-12-25 20:37

本帖最后由 xinxin2021 于 2023-12-25 20:52 编辑

shiruiqiang 发表于 2023-12-25 20:33
brr(m, 9) = split(Split(arr(1, 1), "次")(0) & "次"，“年”)(1)

代码标红了，好像有问题。这样修改后好了：
brr(m, 9) = Split(Split(arr(1, 1), "次")(0) & "次", "年")(1)

shiruiqiang · 发表于 2023-12-25 20:52

本帖最后由 shiruiqiang 于 2023-12-25 20:54 编辑

算了，用正则式了

xinxin2021 · 发表于 2023-12-25 21:09

shiruiqiang 发表于 2023-12-25 20:52
算了，用正则式了

“第几次”是从excel的第一行（标题）提取的，还是从文件名提取的？

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

[已解决] 怎样用VBA按单位分别建立与会人员工作薄？