[已解决]VBA自动编号问题

yjwdjfqb

我的编号区域是

Range("a4:a" & Range("B65536").End(xlUp).Row)

VBA代码该怎么写，最好是又精短速度又快的，从1开始。


请朋友们帮下忙！！！

最佳答案

月排行榜 / 总排行榜

zjdh

2012-11-1 17:46

写入公式好是好，但若数据庞大的话，会影响打开文件或修改数据的运行速度。
还是用循环直接填写编号吧
For I = 4 To Range("A65536").End(3).Row
  Cells(I, 1) = I - 3
Next

跳转到最佳答案楼层

hoogle

1. Sub dd()
   
2. Range("a4:a" & Range("B65536").End(xlUp).Row).Formula = "=row()-3"
   
3. End Sub

复制代码

yjwdjfqb

这个方法很好，但我想不用插入函数的方法

请问朋友们还有其它最快的写法吗，谢谢大家了

zjdh

写入公式好是好，但若数据庞大的话，会影响打开文件或修改数据的运行速度。
还是用循环直接填写编号吧
For I = 4 To Range("A65536").End(3).Row
  Cells(I, 1) = I - 3
Next

yjwdjfqb

zjdh 发表于 2012-11-1 17:46
写入公式好是好，但若数据庞大的话，会影响打开文件或修改数据的运行速度。
还是用循环直接填写编号吧
Fo ...

谢谢老师，就是公式方便，但数据多时，影响速度，

谢谢老师帮我写的循环语句！！！

请问老师，还有其它好的方法吗？

hoogle

yjwdjfqb 发表于 2012-11-1 17:53
谢谢老师，就是公式方便，但数据多时，影响速度，

谢谢老师帮我写的循环语句！！！

看出来这位同学是在学习VBA,慢慢来吧，接触多了就懂的多了。针对你这个问题，这两种方法是比较简便的。

zjdh

手工操作也很简单啊！