求大神excel公式 ，实现Sh1表输入内容，Sh2表自动按顺序记录

求大神excel公式 ，实现Sh1表输入内容，Sh2表自动按顺序记录

上一个问题，给你回答了,
这次，代码里有解释

在SHEET1 复制代码

Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
Dim Tr, Tc
Tr = Target.Row
Tc = Target.Column
k = WorksheetFunction.CountA(Sheets(2).Range("B:B"))
If Tr = 1 And Tc = 1 Then '表示 A1
Sheets(2).Cells(k + 2, 2) = Sheets(1).Cells(1, 1) '表示表2的B列从B2(k + 2)开始，依次记录表1的A1(Cells(1, 1))
End If
End Sub

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息