EXCEL单元格批量填充后如何自动批量添加时间批注？

Posted 2023-03-18

EXCEL单元格填充后自动添加时间批注代码：
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Target, Range("a1:z999")) Is Nothing Then Exit Sub

If Target.Count > 1 Then Exit Sub

If Target.Comment Is Nothing Then
Target.AddComment.Text Text:=CStr(Now())
Else
Target.Comment.Delete
Target.AddComment.Text Text:=CStr(Now())
End If
Target.Comment.Visible = False

If Target = "" Then Target.Comment.Delete
End Sub
以上代码实测能用，可以完成以下功能：单元格填充后自动添加时间批注，单元格内容删除时删除批注。现想把以上代码改为批量操作时也可批量添加批注

选中单元格E3，点击审阅—批注—新建批注



请点击输入图片描述

编辑输入批注内容“已达标”



请点击输入图片描述

复制单元格E3，按住Ctrl键选择其他要添加批注的单元格



请点击输入图片描述

点击开始—粘贴下拉菜单—选择性粘贴



请点击输入图片描述

选择批注



请点击输入图片描述

批量添加批注完成



请点击输入图片描述

参考技术A Private Sub Worksheet_Change(ByVal Target As Range)
Dim Rng As Range
For Each Rng In Target
If Not Intersect(Rng, Range("a1:z999")) Is Nothing Then
If Len(Rng) = 0 Then
If Not (Rng.Comment Is Nothing) Then Rng.Comment.Delete
Else
If Rng.Comment Is Nothing Then
Rng.AddComment.Text Text:=CStr(Now())
Else
Rng.Comment.Delete
Rng.AddComment.Text Text:=CStr(Now())
End If
End If
End If
Next Rng
End Sub本回答被提问者采纳 参考技术B Excel单元格自动批量添加时间批注，应该用VBA编程来处理。