用条件添加相邻单元格值的注释

Question

我对VBA没有经验。我知道有很多类似于这个问题的答案，但我无法调整任何代码来让它为我工作。

我有一个Excel表中有大量行的Excel表。
列A中有一些值（数字）和列B中的备注（文本）。我想将这些注释（列B）作为​​A列中单元格的注释。

但是，这里是条件：
A列中的一些单元格已经对它们有评论，我不想用笔记替换它们。所以我需要一个代码，可以跳过这些特定的单元格或将它们的注释与注释合并。

Answer 1

在这里，我对你的问题的方法：

Public Sub addComment() 

    Dim row As Integer 
    Dim oldComment As String 

    'Set start row 
    row = 1 

    With Sheets("sheetname") 

     'Do until "A" cell is blank 
     Do While .Range("A" & row) <> "" 

      'If "B" cell is not blank 
      If .Range("B" & row) <> "" Then 

       'If "A" has no comment, set "" to oldComment 
       If .Range("A" & row).Comment Is Nothing Then 
        oldComment = "" 

       'Else comment is exist 
       Else 

        'Store that comment to oldComment 
        oldComment = .Range("A" & row).Comment.Text & " " 

        'Delete comment from cell 
        .Range("A" & row).Comment.Delete 

       End If 

       'Insert comment for "A" with old if exist 
       .Range("A" & row).addComment (oldComment & .Range("B" & row).Value) 

      End If 

      'Increase row 
      row = row + 1 

     Loop 

    End With 

End Sub