191问答库 > 请高人帮忙对下面这段vba代码做出注释，因为我想更改一些参数用在其他地方，谢谢！

请高人帮忙对下面这段vba代码做出注释，因为我想更改一些参数用在其他地方，谢谢！

2024-11-05 18:29:03

推荐回答（1个）

回答1：

Private Sub Worksheet_Change(ByVal Target As Range)
'如果目标的行数=4
If Target.Row = 4 Then
'如果a4 到l4 为非空
If Application.CountA(Range("a4:l4")) = 12 Then
'关闭事件提醒
Application.EnableEvents = False
'把a4 到l4的值复制到最后一行下一行
Range("a65536").End(3).Offset(1).Resize(, 12).Value = Range("a4:l4").Value
'开启事件提醒
Application.EnableEvents = True
End If
End If
End Sub