网上抄了个代码，不会改，来个靓仔帮看看看吧！

这个代码主要是用于记录指定行数据的历史记录，我想应用于多行，不是连续的多行，比如只5,9,15行


Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 5 Then Exit Sub
If Target.Comment Is Nothing Then
Target.AddComment.Text t & " " & IIf(Target = "", "清空", Target)
Else
Target.Comment.Text Target.Comment.Text & Chr(10) & t & " " & IIf(Target = "", "清空", Target)
End If
End Sub