如何用VBA生成起始到终止的所有数据

大大的幸福 · 发表于 2024-9-3 12:47

如图，如何用VBA生成起始到终止的所有数据

wengjl · 发表于 2024-9-3 13:11

本帖最后由 wengjl 于 2024-9-3 13:30 编辑

for x=750 to 999
cells(x,1)="8986112424908548" & x
next x

wengjl · 发表于 2024-9-3 13:13

for x=1001 to 1999
cells(x,1)="8986112424908548" & mid(x,2,3)
next x

liulang0808 · 发表于 2024-9-3 13:13

大大的幸福 · 发表于 2024-9-3 13:58

liulang0808 发表于 2024-9-3 13:13

大佬你好，请问起始号从00001开始后，生成的数据会少几位数

大灰狼1976 · 发表于 2024-9-3 14:21

还要根据后面几位的字符数用format规整一下位数

liulang0808 · 发表于 2024-9-3 14:23

大大的幸福发表于 2024-9-3 13:58
大佬你好，请问起始号从00001开始后，生成的数据会少几位数

你套用前面的代码就可以了吧？

大大的幸福 · 发表于 2024-9-3 14:43

liulang0808 发表于 2024-9-3 14:23
你套用前面的代码就可以了吧？

前面的代码用之前的数据是可以的，但是我更改后面的内容从000001开始，位数会被缩短了

大大的幸福 · 发表于 2024-9-3 14:43

大灰狼1976 发表于 2024-9-3 14:21
还要根据后面几位的字符数用format规整一下位数

请问要怎么弄要啊，vba我是一点都不懂

大灰狼1976 · 发表于 2024-9-3 15:01

大大的幸福发表于 2024-9-3 14:43
请问要怎么弄要啊，vba我是一点都不懂

arr(r, 1) = "'" & str1 & Format(j, String(Len([c2]) - Len(str1), "0"))

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