代码如下
Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
Dim Tr, Tc
Tr = Target.Row
Tc = Target.Column
k = WorksheetFunction.CountA(Range("B8:B65536"))
If Tr = 2 And Tc = 2 Then
Cells(k + 8, 2) = Cells(2, 2)
End If
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024