VBA自动提取Excel批注

Sub 获取批注()Dim i As Long    For i = 1 To Range("a1").End(xlDown).Row        If Range("A" & i).CommentThreaded Is Nothing Then            Range("B" & i) = ""        Else            Range("B" & i) = Range("A" & i).CommentThreaded.Text        End If    NextEnd Sub

Sub 获取批注()Dim i As Long    For i = 1 To Range("a1").End(xlDown).Row        If Range("A" & i).Comment Is Nothing Then            Range("b" & i) = ""        Else            Range("b" & i) = Range("A" & i).Comment.Text        End If   NextEnd Sub