求各位高手帮忙给个数字连续录入的宏代码

LWXT

各位高手、各位前辈：
我想根据工作表某列序号最大号数字，在指定单元格从1开始依次录入次数字，求各位高手。各位前辈
给个宏代码，我在制作一个按钮，这样不管序号数字为任何值，只要点击按钮，即可实现在指定单元格
从1开始依次录入到A列最后序号的数字。见附件。 非常感谢

LWXT

朱荣兴 发表于 2016-1-30 14:06

非常感谢前辈的帮助，您的第二个宏代码正是我所需要的，解决了困扰我很长时间的难题。
Sub luru2()
Dim i, s As Integer
i = Sheets("明细").Columns(1).Cells(Sheets("明细").Columns(1).Cells.Count).End(xlUp).Row
For s = 1 To Sheets("明细").Cells(i, 1).Value Step 1
Sheets("录入").Cells(6, 3) = s
ThisWorkbook.Save
Next
End Sub
经过我的测试完全达到了我的预期效果。可惜我是新手，参数设置值搞明白了一部分，

Sheets("录入").Cells(6, 3) = s    参数（6,3） ：已经搞明白啦
代表目标单元格为：【录入】工作表第六行第三列 单元格
序列号所在列 参数还没有搞懂：
i = Sheets("明细").Columns(1)  把 （1）换成2或3 应该是变成了第二列、第三列，但是只调整这一个参数好像会出错，应该还得调整后面其他参数，暂时还没搞明白。
再次感谢前辈（高手）的帮助。

LWXT

朱荣兴 发表于 2016-1-30 18:15
i = Sheets("明细").Columns(1).Cells(Sheets("明细").Columns(1).Cells.Count).End(xlUp).Row
这句代码 ...

谢谢前辈的解释回答，我的实际应用中基本都是将序号放在A列的，我只是想
进一步了解一下参数设置，看看能否自己通过修改下参数，达到例如目标序号
列在B列或其他列时，是否能像Sheets("录入").Cells(6, 3) = s    参数（6,3）
一样通过自己修改下参数，宏代码能够正常运行。
简单的说就是例如我现在序列号需要在E列时，不知原代码参数如何设置。
非常感谢

LWXT

LWXT 发表于 2016-1-30 22:17
谢谢前辈的解释回答，我的实际应用中基本都是将序号放在A列的，我只是想
进一步了解一下参数设置，看看 ...

另外我还有个类似的问题，麻烦您解答下，问题如下：
上例目标单元格为C6单元格，我想请教现在目标单元格变为  F8：F15  序号录入从 F8开始 1、2、3
4、5、6、7、8  再从F8开始 录入 9、10、11、12、13....... 既序号在F8：F15之间循环。恳请您
在帮忙给个代码。万分感谢。