[已解决]怎么加上序号？

fsdsdfs

怎么在A列加上序号，到B列数据最后一行？
附件： 附件.rar (1.8 KB, 下载次数: 18)

2014-10-15 15:35 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

这儿有肥猫

2014-10-15 16:01

好吧。。。你发在VBA区，我就提供一个VBA，不过还是2楼的最简单

1. Sub a()
   
2. Dim arr, i&
   
3. arr = [b1].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.     Cells(i, 1) = i
   
6. Next
   
7. End Sub
   
8. 
   

复制代码

跳转到最佳答案楼层

baksy

A1复制以下公式，下拉；
=ROW()

这儿有肥猫

依据是什么？
不会是从A列第一行开始为1，一直1，2，3...到最后一行吧

fsdsdfs

这儿有肥猫 发表于 2014-10-15 15:39
依据是什么？
不会是从A列第一行开始为1，一直1，2，3...到最后一行吧

序号1 2 3 。。。到最后一行

这儿有肥猫

好吧。。。你发在VBA区，我就提供一个VBA，不过还是2楼的最简单

1. Sub a()
   
2. Dim arr, i&
   
3. arr = [b1].CurrentRegion
   
4. For i = 1 To UBound(arr)
   
5.     Cells(i, 1) = i
   
6. Next
   
7. End Sub
   
8. 
   

复制代码

zyouong