求助自动填充的VBA代码。

gxggxy103 · 发表于 2024-2-5 19:06

gwjkkkkk 发表于 2024-2-5 18:55
Private Sub Worksheet_Change(ByVal Target As Range)
Dim ar, i&, j&, iCol&, iRow&, iNum&

谢谢老大。
当组号最后一列Q列填充未满最大值的时候，还是不能顺序自动填入组号起始列B列。

gwjkkkkk · 发表于 2024-2-5 19:17

还要绕一圈回到起始再填充？

准提部林 · 发表于 2024-2-5 19:24

循環編號..By.准提部林

Xl0000140.rar (14.28 KB, 下载次数: 24)

gxggxy103 · 发表于 2024-2-5 20:17

gwjkkkkk 发表于 2024-2-5 19:17
还要绕一圈回到起始再填充？

是的。请大神费心。

gwjkkkkk · 发表于 2024-2-5 20:21

gxggxy103 发表于 2024-2-5 20:17
是的。请大神费心。

准部大师应该满足你的要求。。。

gxggxy103 · 发表于 2024-2-5 20:22

本帖最后由 gxggxy103 于 2024-2-5 21:22 编辑

准提部林发表于 2024-2-5 19:24
循環編號..By.准提部林

膜拜大神！！！！

如果这个工作表“组号”列每列有31个单元格（原来的工作表“组号”列每列是15个单元格），如何写代码？大神勿笑，初识vba，不甚了了，求教了。

准提部林 · 发表于 2024-2-5 20:33

gxggxy103 发表于 2024-2-5 20:22
膜拜大神！！！！

如果这个工作表除掉标题栏每列有30个单元格，如何写代码？大神勿笑，初识vba，不甚 ...

If Chk = 1 Or .Count > 1 Or .Row < 2 Or .Row > 31 Then Exit Sub

If xA.Row > 31 Then Set xA = xA(-29, 6)

gxggxy103 · 发表于 2024-2-6 11:46

准提部林发表于 2024-2-5 20:33
If Chk = 1 Or .Count > 1 Or .Row < 2 Or .Row > 31 Then Exit Sub

If xA.Row > 31 Then Set xA = xA ...

十分感谢！！！！谢谢大神指教！！！

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

[求助] 求助自动填充的VBA代码。