2,462
社区成员
发帖
与我相关
我的任务
分享
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
Rows("3:" & 2 + Range("B2").Value).Insert Shift:=xlDown
For i = 1 To ActiveSheet.UsedRange.Rows.Count - 1
Cells(i + 1, 1).Value = i
Next
End If
End Sub