vba - 向 Range 中的特定单元格添加注释。 Excel VBA

Question

如果它们符合条件，我正在尝试向范围内的特定单元格添加评论。所以我在 Sheet1 中有一个包含信息的列表。我在 sheet16 上也有单元格值，我想在 U 列中添加评论，所以它会在 U 行中显示 F6。我不断得到

Application-Defined or object-defined error

有什么想法吗？

提前致谢。

Sub Comments()

    Dim rcell As Range

    Sheet16.Range("C6:AR17").ClearComments

    For Each rcell In Sheet1.Range("A2:A" & Sheet1.Range("A" & Sheet1.Rows.CountLarge).End(xlUp).Row)
        If rcell.Offset(0, 1).Value(10) = Sheet7.Range("G1").Value(10) Then
            commentvalue = rcell.Offset(0, 4).Value
            Sheet16.Range("U" & rcell.Row).AddComment (commentvalue)
        End If
    Next rcell

End Sub

Answer 1

AddComment如果单元格上已经有评论，则方法失败。像这样做:

Sub Comments()
    Dim rcell As Range
    Dim commentvalue As String

    Sheet16.Range("C6:AR17").ClearComments

    For Each rcell In Sheet1.Range("A2:A" & Sheet1.Range("A" & Sheet1.Rows.CountLarge).End(xlUp).row)
        If rcell.Offset(0, 1).Value = Sheet7.Range("G1").Value Then
            commentvalue = CStr(rcell.Offset(0, 4).Value)

            With Sheet16.Range("U" & rcell.row)
                .ClearComments '<=== :-)
                .AddComment commentvalue
            End With
        End If
    Next rcell
End Sub

编辑

根据@Jeeped 的评论，您可能想要“累积”评论。我的假设是您运行了一次代码，然后再次运行它并遇到错误，因为第一次运行已经创建了注释。根据您尝试实现的目标，您可能希望在循环外系统地清除 U 列中从第 2 行到最后一行的注释，并删除 .ClearComments在循环中，以便每次开始清洁。这是最简单的情况。如果事情更复杂，我会让你解决细节。