使用For Each循环向行中的每个单元格添加注释(VBA Excel)

Sub AddCommentsToRow()
    Dim ws As Worksheet
    Dim cell As Range
    Dim commentText As String
    
    ' 设置要添加注释的文本
    commentText = "这是一个注释"
    
    ' 获取当前活动工作表
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 遍历第1行中的每个单元格
    For Each cell In ws.Rows(1).Cells
        ' 检查单元格是否已经有注释，如果有则删除旧注释
        If Not cell.Comment Is Nothing Then
            cell.Comment.Delete
        End If
        
        ' 向单元格添加注释
        cell.AddComment Text:=commentText
    Next cell
End Sub

Sub AddCommentsToSpecificRange()
    Dim ws As Worksheet
    Dim cell As Range
    Dim commentText As String
    
    ' 设置要添加注释的文本
    commentText = "这是一个注释"
    
    ' 获取当前活动工作表
    Set ws = ThisWorkbook.ActiveSheet
    
    ' 遍历第1行中的A1到D1单元格
    For Each cell In ws.Range("A1:D1")
        ' 检查单元格是否已经有注释，如果有则删除旧注释
        If Not cell.Comment Is Nothing Then
            cell.Comment.Delete
        End If
        
        ' 向单元格添加注释
        cell.AddComment Text:=commentText
    Next cell
End Sub