VBA代码问题：含批注单元格未被跳过仍被覆盖的解决诉求

需求与问题 #

需求：遍历Excel工作表中AL3:AZ201单元格区域，若单元格内容为“X”，则对比其左侧34位单元格与左侧17位单元格的值；若二者不同，将左侧34位单元格的值替换为左侧17位单元格的值。当左侧34位单元格含批注时，需跳过该单元格，不执行替换操作。

问题：当前代码执行时，含批注的单元格仍被覆盖，未按要求跳过。
示例：AO3单元格为“X”，G3（左侧34位）与X3（左侧17位）值不同，因G3含批注本应跳过，但代码仍执行了覆盖操作。

错误代码 #

Sub MoveCellsIfDifferent()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim targetCell As Range
    
    ' Set the worksheet and range variables
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' Replace "Sheet1" with your actual sheet name
    Set rng = ws.Range("AL3:AZ201")
    
    ' Loop through each cell in the range
    For Each cell In rng
        ' Check if the cell is not blank
        If Not IsEmpty(cell.Value) Then
            ' Check if the cell contains "X"
            If cell.Value = "X" Then
                ' Get the cell 34 cells to the left
                Set targetCell = cell.Offset(, -34)
                
                ' Check if the cell 34 cells to the left has a comment
                If Not targetCell.comment Is Nothing Then
                    ' Skip to the next cell
                   Exit For
                End If
                
                ' Check if the cell 34 cells to the left is different from the cell 17 cells to the left
                If targetCell.Value <> cell.Offset(, -17).Value Then
                    ' Replace the value of the cell 17 cells to the left with the value of the cell 34 cells to the left
                    cell.Offset(, -34).Value = cell.Offset(, -17).Value
                End If
            End If
        End If
    Next cell
End Sub

错误原因 #

核心问题是使用了Exit For语句：该语句会直接终止整个For Each循环，而非跳过当前单元格。如果遇到第一个带批注的单元格，循环会立即停止，后续单元格不再处理；若带批注的单元格不是第一个，前面的单元格会正常处理，但该逻辑完全无法实现“跳过当前带批注单元格”的需求。

此外，原代码的注释存在错误（注释描述与实际代码逻辑相反，但不影响功能执行）。

修正后的代码 #

Sub MoveCellsIfDifferent()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim targetCell As Range
    Dim compareCell As Range
    
    ' 设置工作表和目标区域
    Set ws = ThisWorkbook.Worksheets("Sheet1") ' 替换为你的实际工作表名称
    Set rng = ws.Range("AL3:AZ201")
    
    ' 遍历区域内每个单元格
    For Each cell In rng
        ' 跳过空单元格
        If IsEmpty(cell.Value) Then GoTo NextCell
        
        ' 检查单元格内容是否为"X"
        If cell.Value = "X" Then
            Set targetCell = cell.Offset(, -34) ' 左侧34位的目标单元格
            Set compareCell = cell.Offset(, -17) ' 左侧17位的对比单元格
            
            ' 若目标单元格有批注，直接跳过当前单元格
            If Not targetCell.Comment Is Nothing Then
                GoTo NextCell
            End If
            
            ' 对比值，不同则替换
            If targetCell.Value <> compareCell.Value Then
                targetCell.Value = compareCell.Value
            End If
        End If
        
NextCell: ' 跳转标签，用于跳过当前单元格的剩余逻辑
    Next cell
End Sub

关键修正点 #

1. 用GoTo NextCell替代Exit For：实现跳过当前单元格，继续处理下一个单元格，而非终止整个循环。
2. 新增compareCell变量：简化代码结构，提升可读性，避免重复编写偏移量代码。
3. 调整空单元格判断逻辑：直接跳转到下一个单元格，减少嵌套层级。

额外说明 #

如果你的Excel版本使用的是新版注释（而非旧版“批注”），需将targetCell.Comment替换为targetCell.Note，判断语句改为：

If Not targetCell.Note Is Nothing Then
    GoTo NextCell
End If

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