产生序数和相应的属性，并拷贝到原有序数和属性列的末端

qlmgu

各位老师，因为处理过的数据要和原数据合并，需要以下功能的VBA。以前是手工操作，每次都要经过很多步骤。

根据D2输入的数字形成相应的序数和属性（全部为“No”）。图例以20为例，实际可能是数千。最后将形成的序数和属性拷贝到B、C列末端。 有说不明白的地方请指出。感谢各位。

如图示：

补齐序数和属性求助.rar (16.33 KB, 下载次数: 4)

2023-4-4 22:13 上传

点击文件名下载附件

gwjkkkkk

请参考。。。

qlmgu

gwjkkkkk 发表于 2023-4-4 22:55
请参考。。。

再次感谢gwjkkkkk老师的帮助，解决了工作难题。我也需要认真学习体会您的程序。

zjzyj

附件供参考     

qlmgu

zjzyj 发表于 2023-4-4 23:04
附件供参考

感谢zjzyj老师的帮助，结果符合预期。谢谢您。

准提部林

Sub TEST_A1()
If Val([d2]) <= 0 Then Exit Sub
With Cells(Rows.Count, "b").End(3)(2).Resize(Val([d2]), 2)
     With .Columns(1): .Formula = "=row(a1)": .Value = .Value: End With
     .Columns(2) = "No"
End With
End Sub

qlmgu

准提部林 发表于 2023-4-5 10:33
Sub TEST_A1()
If Val([d2])

准提部林大师您好。我刚刚才看到您亲自回复了我的帖子。如此简洁的程序就可以实现我的目标，再次膜拜和感谢。