excel表格如何用VBA实现在C列填入数据，A列自动填写ID号

Question

如图，我想在表格中实现在C列输入数据，同行的A列自动填写ID号。ID号从A3 （第三行）开始，6万行结束

Answer 1

进入VBA窗口，双击工程资源管理器上所在页，加入如下代码：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rownumber As Long
On Error Resume Next
Application.ScreenUpdating = False
For rownumber = 3 To Cells(70000, 3).End(xlUp).Row
If Cells(rownumber, 3) <> "" Then Cells(rownumber, 1) = rownumber - 2
Next
Application.ScreenUpdating = True
End Sub追问

这个代码非常好，但在实际运行时，还有一点问题，当数据达到三万行后，鼠标无论点到那个单元格，都要等待几秒时间，不能立即反应，能不能让代码再快一点

追答

用这个试试：
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim rownumber As Long
On Error Resume Next
Application.ScreenUpdating = False
For rownumber = Cells(70000, 1).End(xlUp).Row To Cells(70000, 3).End(xlUp).Row
If Cells(rownumber, 3) "" Then Cells(rownumber, 1) = rownumber - 2
Next
Application.ScreenUpdating = True
End Sub