如何根据A列出现内容的先后顺序在B列编上顺序号？

李兴德

如何根据A列出现内容的先后顺序在B列编上顺序号？如：在A1中输入内容后B1出现1，在A5中输入内容后B5出现2；在A2中输入内容后B2出现3等。

lb_bn

没太明白,建议楼主上传附件做一个示例.

Excel_teh

楼主的意思是不是判断A列中输入的次数
即，
在A列第一次输入时，对应B列单元格显示1
...
...
在A列第二次输入时，对应B列单元格显示2
...
...

但是输入的行却不确定。是不是这样？

dsmch

是这样的效果吗？
Book1.rar (6.48 KB, 下载次数: 50)

2009-11-20 14:26 上传

点击文件名下载附件

李兴德

谢谢大家，是这样的：见图。

[ 本帖最后由 李兴德 于 2009-11-20 15:15 编辑 ]

cm6705

在工作表Change事件中加入以下代码
用CountA函数可以计算A列中包含数值、字符串及非空单元格的数目
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 2) = Application.WorksheetFunction.CountA(Range("a:a"))
End Sub

cm6705

修正一下
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 2) = Application.WorksheetFunction.CountA(Range("a3:a65536"))
End Sub

李兴德

谢谢大家的热心帮助!基本能满足要求。但还有一问题就是：
如果某员工已离职删除了该员工信息，如删除第4行后，B列的最大数字还是11，那么新来员工的账号排序还是11，如何解决？
能否用MAX函数，也就是A7增加账号后，B7的值为B列的最大值＋1？

[ 本帖最后由 李兴德 于 2009-11-20 16:55 编辑 ]

李兴德

沒人能幫？沒人肯幫？

Moneky

既然自己都想到办法解决就可以在下面的基础上改改嘛

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 2) = Application.WorksheetFunction.CountA(Range("a3:a65536"))
End Sub

尝试改成：
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 Then Cells(Target.Row, 2) = Application.WorksheetFunction.Max(Range("a3:a65536"))+1
End Sub