需要编程
在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
Sheets(2).Cells(k + 1, 2) = Sheets(1).Cells(1, 1)
End If
End Sub
追问SHEET1输入的位置在代码里怎么调整呢