请高手帮我解释该程序具体意思，以便自己灵活运用！谢谢（已解决）

mmmaz

该语句是从另外一论坛抄写来的，具体是实现在一个固定的单元格 多次填写的数据会自动的在第二页根据填写的先后顺序显示出来。但是我不知道这些语句的具体含义，请高手一一指点！

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub
With Sheet2
If .[a1] = "" Then
   .[a1] = Target.Value
   Else
   .[a65536].End(xlUp).Offset(1) = Target.Value
   End If
End With
End Sub

[ 本帖最后由 mmmaz 于 2010-3-16 10:20 编辑 ]

yvhgydn

Private Sub Worksheet_Change(ByVal Target As Range)工作表事件，表示编辑单元格时发生
If Target.Address <> "$A$1" Then Exit Sub如果单元地址为A1时按下列代码执行，否则退出代码
With Sheet2操作该表
If .[a1] = "" Then如果表二单元格A1为空
   .[a1] = Target.Value那行表二单元格A1等于选择的单元格
   Else否则
   .[a65536].End(xlUp).Offset(1) = Target.Value表二A列最后一个非空单元的下一单元格等于选择的单元格
   End If
End With
End Sub编

[ 本帖最后由 yvhgydn 于 2010-3-15 16:31 编辑 ]

cflood

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Then Exit Sub  '不是A1单元格改变退出程序
With Sheet2
If .[a1] = "" Then  ‘sheet2！A1为空
   .[a1] = Target.Value   ’修改内容放在a1单元格
   Else
   .[a65536].End(xlUp).Offset(1) = Target.Value   ‘修改内容放在最后一个单元格
   End If
End With
End Sub

mmmaz

十分感谢~~~~