在B列输入字符A列自动生成序号

ycwxl521

在EXCEL表格中，如果在B列输入日期或其他字符，A列就自动生成序号，在网上找到大神用VBA编的代码，可是我运行的时候提示“无效或不合格引用”，不知道COUNTA要如何正确使用？


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
Cells(Target.Row, 1).Value = Application.Evaluate(CountA(b3:b & Target.Row &))
End If
End Sub

请大神指教！

ycwxl521

请大神赐教！在等待中……

xjl565135022

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 2 Then
    Cells(Target.Row, 1).Value = "XH" & Format(Target.Row, "0000")
End If
End Sub

ycwxl521

其实我是要达到这个效果，里面有可能面临合并单元格情况……唉