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

在表1A1处输入姓名,在表二B2处自动记录,且再删掉表1A1内容,表2B2内容不变,再次输入A1,表2在B3位置开始填写

需要编程
在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输入的位置在代码里怎么调整呢

温馨提示:答案为网友推荐,仅供参考
第1个回答  2015-07-23
这种需要使用VBA写代码来实现了
第2个回答  2015-07-22
excel不是万能的,没这功能……
相似回答