在excel中根据B列的数据有多少行在A列自动生成序号，且是倒序。哪位大哥大姐帮忙写下VBA代码，多谢多谢

2024-11-01 12:38:43

推荐回答（3个）

回答（1）：

代码比较简单:

如下复制到工作表代码区

sub haoma()
  for i=[b65536].end(xlup).row to 2 step -1
    n=n+1
    cells(i,"a")=n
  next
end sub

回答（2）：

代码如下，
Sub xx()
Dim a, b&
b = 0
a = Application.CountA(Range("b:b"))
For i = 2 To a
Range("a" & i) = a - b - 1
b = b + 1
Next
End Sub

回答（3）：

可以发文件或图来看看吗？
怎么叫根据B列？