VBA使用特殊单元格循环注释-多次迭代

Question

Referring to my previous question: Loop through comments

When I loop through the comments using specialcells, some iterations happen multiple times. Ie for the code below, some cells that contain a comment ( rngTemp.Value ) are modified up to three times (ie the number is added three times to the cell value):

On Error Resume Next
    Set rngComment = myTemplate.Sheets("Seite 1").Range("B14:T35").SpecialCells(xlCellTypeComments)
    On Error GoTo 0
    If rngComment Is Nothing Then
        'Do nothing
    Else
        i = 1
        For Each rngTemp In rngComment
            If rngTemp.Comment Is Nothing Then
                'do nothing change the if then else
            Else
                MsgBox rngTemp.value
                rngTemp.value = rngTemp.value & CStr(i)
                rngTemp.Characters(Start:=Len(rngTemp.value), Length:=1).Font.Superscript = True
                footnote = footnote & CStr(i) & ". " & rngTemp.Comment.Text & "; "
                i = i + 1
            End If
        Next

        footnotespage1 = footnote
    End If

Do you know that error and know how to fix or work around it?

Answer 1

Change the code to the below:-

If rngTemp.Comment Is Nothing Then
    'do nothing change the if then else
Else
    If rngTemp.Characters(Start:=Len(rngTemp.value), Length:=1).Font.Superscript <> True Then 
        MsgBox rngTemp.value
        rngTemp.value = rngTemp.value & CStr(i)
        rngTemp.Characters(Start:=Len(rngTemp.value), Length:=1).Font.Superscript = True
        footnote = footnote & CStr(i) & ". " & rngTemp.Comment.Text & "; "
        i = i + 1
    End If
End If

If it ends in a superscript already then won't do it at all.