这个代码网上抄的，主要是记录数据，但是只能记录一行的，我想记录多行，比如7,10,15行的数据都得记录。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row <> 5 Then Exit Sub
t = Now()
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

顶

我顶

我在顶

把第二行的IF删掉就好

If Target.Row <> 5 Then Exit Sub
这段加And就可以了，如
If Target.Row <> 5 And Target.Row <> 7 Then Exit Sub