Office 365 Excel中如何高亮Threaded Comments而非Notes？

你的问题核心是混淆了Excel 365中两种不同的评论对象：原代码里的cell.comment对应的是旧版的「笔记（Notes）」，而你需要识别的「线程式评论（Threaded Comments）」对应的是CommentThreaded对象。

修改后的VBA代码 #

Sub HighlightThreadedComments()
    Dim ws As Worksheet
    Dim cell As Range
    
    ' 设置为当前活动工作表
    Set ws = ActiveSheet
    
    ' 先清除所有已用区域的单元格背景色（可选，避免重复高亮）
    ws.UsedRange.Interior.ColorIndex = xlColorIndexNone
    
    ' 遍历已用区域的每个单元格
    For Each cell In ws.UsedRange
        ' 判断单元格是否存在线程式评论
        If cell.CommentThreaded.Count > 0 Then
            ' 高亮单元格（示例为黄色背景）
            cell.Interior.Color = RGB(255, 255, 0)
        End If
    Next cell
    
    MsgBox "所有带线程式评论的单元格已高亮！", vbInformation
End Sub

关键说明 #

• 对象区分：cell.comment对应旧版笔记，cell.CommentThreaded对应Office 365的线程式评论；通过CommentThreaded.Count > 0可以准确判断单元格是否存在线程评论。
• 清除旧高亮：代码开头增加了清除已用区域背景色的操作，避免之前的高亮结果干扰新的识别。
• 逻辑调整：把原代码中判断cell.comment的逻辑替换为判断线程评论的逻辑，精准定位目标单元格。

内容的提问来源于stack exchange，提问作者KWhite