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

ycwxl521 · 发表于 2024-8-30 17:38

在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 · 发表于 2024-9-2 08:48

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

xjl565135022 · 发表于 2024-9-3 16:31

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 · 发表于 2024-9-4 10:53

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

		自动登录	找回密码
密码			免费注册