Question

对于您回答的一个问题我有一些疑惑需要请教你，希望得到你的帮助谢谢你

您的原贴
（复制代码
Private Sub WorkSheet_Change(ByVal Target As Excel.Range)
Dim Tr, Tc, K
Tr = Target.Row
Tc = Target.Column
K = WorksheetFunction.CountA(Range("E5:E2000"))
If Tr = 1 And Tc = 1 Then
Cells(K + 5, 5) = Cells(1, 1)
End If
End Sub）
A1每次更新的数据，从E5开始向下依次显示
我的问题
怎么把代码中的a1改成sheet1中的c1，e5改成sheet3中的b列起点为b2
同样的怎么再在sheet3中的c列c2起点纪录sheet1中的h15
这个代码怎么写？希望得到你的帮助谢谢你

Answer 1

已经给你修改代码了。