vba

清风云子 · 发表于 2025-12-19 11:15

quqiyuan 发表于 2025-12-18 21:57
刚刚有个bug，更新了一下文件，请留意。。。

收到，谢谢！

清风云子 · 发表于 2025-12-19 11:19

华发少年发表于 2025-12-18 20:53
Sub 标签制作()
Dim ar As Variant
Dim i As Long

谢谢，已经完美解决，一个小bug，数据是奇数时，最后一条记录不能被制作，把 For i = 4 To UBound(ar) - 1 Step 2的减1改成加1，再加上ON ERROR RESUME NEXT 就好了，谢谢！

华发少年 · 发表于 2025-12-19 11:45

清风云子发表于 2025-12-19 11:19
谢谢，已经完美解决，一个小bug，数据是奇数时，最后一条记录不能被制作，把 For i = 4 To UBound(ar) - ...

华发少年 · 发表于 2025-12-19 11:47

laoye5403 · 发表于 2025-12-19 19:29

来个代码简单点的:
1\充分利用mod 函数
2\有8个标签时加个强制分页符

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