如何在VBA宏中循环遍历范围为HVAC工具表添加指定批注？

我有一个包含多个工作表的Excel工作簿，其中：

• HVAC TOOL工作表是销售人员的定价表，所有唯一设备型号位于Sheets("HVAC TOOL").Range("E7:E162")区域。
• HVAC DEFAULTS IMPORT工作表存储从主默认表导入的数据，设备型号排列顺序与前者完全一致：
  • Sheets("HVAC DEFAULTS IMPORT").Range("AH4:AH159")区域用布尔值（TRUE/FALSE）标记对应设备添加到报价单前是否需查看销售备注；
  • 备注内容存储在Sheets("HVAC DEFAULTS IMPORT").Range("AN4:AN159")区域。

需求是在导入更新后的默认表时运行宏，完成以下操作：

1. 删除HVAC TOOL表的所有现有批注；
2. 遍历指定范围，仅当AH列对应单元格值为TRUE时，为HVAC TOOL的对应单元格添加批注，批注内容取自AN列的对应内容。

现有代码仅能为单个单元格添加批注，需要修改为循环遍历范围实现需求，现有代码如下：

Sub ADD_NOTES_HVAC()
    '
    ' Delete existing notes on sheets("HVAC TOOL")
    ' Loop through range and assign note based on value in defaults table
    ' Note should only appear if conditions are met:
    '   sheets("HVAC DEFAULTS IMPORT").range("AH4:AH159") = TRUE
    ' Note should appear on sheets("HVAC TOOL").range("E7:E162")
    ' Note should be derived from sheets("HVAC DEFAULTS IMPORT").range("AN4:AN159")
    '
    '
        Sheets("HVAC TOOL").Select
        Cells.Select
        Selection.ClearComments
        
        Range("E7").Select
        Range("E7").AddComment
        Range("E7").Comment.Visible = False
        Range("E7").Comment.Text Text:="SALES NOTES" & Chr(10) & Sheets("HVAC DEFAULTS IMPORT").Range("AN4")
    
End Sub

Sub ADD_NOTES_HVAC()
    Dim wsTool As Worksheet
    Dim wsDefaults As Worksheet
    Dim i As Integer
    
    ' 绑定工作表对象，避免频繁使用Select操作
    Set wsTool = ThisWorkbook.Sheets("HVAC TOOL")
    Set wsDefaults = ThisWorkbook.Sheets("HVAC DEFAULTS IMPORT")
    
    ' 清除HVAC TOOL工作表所有批注
    wsTool.Cells.ClearComments
    
    ' 循环遍历对应行：E7:E162共156行，对应AH4:AH159、AN4:AN159的行数
    For i = 1 To 156
        ' 判断当前行是否需要添加批注
        If wsDefaults.Range("AH4").Offset(i - 1, 0).Value = True Then
            With wsTool.Range("E7").Offset(i - 1, 0)
                .AddComment
                .Comment.Visible = False
                .Comment.Text Text:="SALES NOTES" & Chr(10) & wsDefaults.Range("AN4").Offset(i - 1, 0).Value
            End With
        End If
    Next i
    
    ' 释放对象变量
    Set wsTool = Nothing
    Set wsDefaults = Nothing
End Sub

• 直接使用Worksheet对象引用工作表，替代低效且易出错的Select操作，提升代码稳定性和执行效率；
• 通过For循环遍历所有目标行，利用Offset(i-1,0)实现两个工作表对应行的精准匹配；
• 增加条件判断逻辑，仅当HVAC DEFAULTS IMPORT的AH列单元格为TRUE时，才为HVAC TOOL的对应单元格添加批注；
• 最后释放对象变量，避免不必要的内存占用。

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