[已解决]按要求填入数字

傻坐一天

按要求填入数字

最佳答案

月排行榜 / 总排行榜

爱疯

2016-10-26 15:48

Sub test()
    Dim x, i
    x = Range("b65536").End(xlUp).Row    '表示B列最后一行的行号
    For i = 2 To x
        Cells(i, 1) = i - 1
    Next i
    Range("a:a").NumberFormatLocal = "G/通用格式"
End Sub

(, 下载次数: 4)

上传

点击文件名下载附件


真要改A列？

跳转到最佳答案楼层

望帝春心

1. =IF(A2<>"",ROW()-1,"")

复制代码

公式填充到足够多行

02761752696

将公式放在你要编号的单元格，编号1的位置，然后下拉如 B 列需要编号就在 B2写入公式：

1. =IF(C2<>"",ROW(A1),"")

复制代码

然后下拉填充

傻坐一天

望帝春心 发表于 2016-10-25 12:31
公式填充到足够多行

两位老师，可否给个代码的解。

望帝春心

傻坐一天 发表于 2016-10-25 12:48
两位老师，可否给个代码的解。

能用函数解决的就不要用VBA了吧？一定要用VBA吗？

傻坐一天

望帝春心 发表于 2016-10-25 12:52
能用函数解决的就不要用VBA了吧？一定要用VBA吗？

嗯。可否写个代码的。

爱疯

求代码：把A列从第2个单元格从数字1开始编号，至最后有数据的行为止。
举例：A列编好的，填入的数字效果如F列效果。



没看明白。
A列从第2个单元格，是哪儿？

苏子龙

要什么代码，f2输入1，f3输入2下拉就完成了，或者用=counta(a$1:a1)

傻坐一天

爱疯 发表于 2016-10-25 15:14
求代码：把A列从第2个单元格从数字1开始编号，至最后有数据的行为止。
举例：A列编好的，填入的数字 ...

把A列，从第2个单元格填入自然数，从1开始至有数据的行为止。如F列效果。 想用代码瞬间实现输入。输入1，2，手杖双击这个我会。但想用代码的。

傻坐一天

望帝春心 发表于 2016-10-25 12:52
能用函数解决的就不要用VBA了吧？一定要用VBA吗？

把A列，从第2个单元格填入自然数，从1开始至有数据的行为止。如F列效果。 想用代码瞬间实现输入。输入1，2，手杖双击这个我会。但想用代码的。我要与另一代码同时用。