昨天您回答了我关于EXCEL的问题，继续请教一下。

您写的代码
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or IsEmpty([A1]) Then Exit Sub
Set ra = Sheet2.[A65536].End(3)
Target.Copy IIf(IsEmpty(ra), ra, ra.Offset(1))
End Sub
我想要同一个sheet中另一个单元格同时实现同样的功能。但是简单的改写代码复制到下一行后不能实现，请问应该怎么弄。以下是我改的。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" Or IsEmpty([A1]) Then Exit Sub
Set ra = Sheet2.[A65536].End(3)
Target.Copy IIf(IsEmpty(ra), ra, ra.Offset(1))
End Sub
Private Sub Worksheet_Change2(ByVal Target As Range)
If Target.Address <> "$B$1" Or IsEmpty([B1]) Then Exit Sub
Set ra = Sheet2.[B65536].End(3)
Target.Copy IIf(IsEmpty(ra), ra, ra.Offset(1))
End Sub

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$1" And Target.Address <> "$B$1" Then Exit Sub
Set ra = Sheet2.Cells(65536, Target.Column).End(3)
Target.Copy IIf(IsEmpty(ra), ra, ra.Offset(1))
End Sub

直说问题

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息