=OFFSET(Sheet1!$A$1,COUNTA(Sheet1!A:A)-1,,1,1)
Sheet1的数据情况为:
Sheet2的数据情况为:
VBA 中的worksheet_change 事件
假设在sheet1的 A1单元格输入数据,自动逐行记录在sheet2 B列!
选中sheet1工作表标签---右键--查看代码---吧下列代码复制进去,关闭VB编辑器。SHEET1 A1输入结束,会自动罗列到sheet2的B列!
Private Sub Worksheet_Change(ByVal Target As Range)
N = Sheets("sheet2").[b65536].End(3).Row + 1
If Target.Address = "$A$1" Then
Sheets("sheet2").Cells(N, "b") = Target
End If
End Sub
是求和么?可以在SHEET2中的固定单元格里设置公式就可以了。如求和A2至最后,以下公式
=SUM(Sheet1!A2:A65535)