劳烦大神帮修改一下附件中的代码，万分感谢

LJGOME

基本已经实现了根据内容插入批注的功能，但还需要调整一下，

清风竹-

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Row > 1 And Target.Column = 1 Then
ActiveCell.Comment.Delete
For Each c In [i:i]
  If ActiveCell.Value = c.Value Then
      m = c.Offset(0, 1).Value
  Exit For
End If
Next
If m = "" Then GoTo 123
With ActiveCell.AddComment
.Visible = False
.Text Text:=m
End With
123
End If
End Sub

liangmutou01

Private Sub Worksheet_Change(ByVal Target As Range)
  On Error Resume Next
  If Target.Row > 1 And Target.Column = 1 And Target <> "" Then
    Target.Comment.Delete
    For Each c In Range("i1:i" & [i65536].End(3).Row)
      m = c.Offset(0, 1).Value
      If Target.Value = c.Value And m <> "" Then
        Target.AddComment m
        Exit For
      End If
    Next
  End If
End Sub