嘿，你的问题根源很明显——判断复选框是否在目标区域的条件写反了！你现在的代码里，判断的是主复选框的单元格loc是否和目标范围rng相交，这当然永远成立（因为rng就是从loc往下14行的区域），所以循环里所有复选框都会被修改，除了主复选框本身。

原代码的核心问题点 #

• 错误的判断逻辑：If Not Intersect(loc, rng) Is Nothing——这是在检查主复选框的位置是否在目标区域，而非当前遍历的复选框位置
• 多余的Select操作：VBA里尽量避免用Select，直接操作对象更高效且不易出错
• 冗余的变量n：可以直接通过Application.Caller获取主复选框对象，不用先取名称再重复查找

下面是修正后的代码，我帮你优化了逻辑并添加了清晰的注释：

Sub SelectAll_Click()
    ' Select / Clear All macro
    Dim mainCheckBox As CheckBox
    Dim targetRng As Range
    Dim currentCheckBox As CheckBox
    
    ' 获取触发宏的主复选框对象
    Set mainCheckBox = ActiveSheet.CheckBoxes(Application.Caller)
    
    ' 定义目标范围：主复选框所在单元格，向下14行的同一列区域
    Set targetRng = Range(mainCheckBox.TopLeftCell, mainCheckBox.TopLeftCell.Offset(13, 0))
    
    ' 遍历工作表所有复选框
    For Each currentCheckBox In ActiveSheet.CheckBoxes
        ' 跳过主复选框本身
        If currentCheckBox.Name <> mainCheckBox.Name Then
            ' 检查当前复选框的左上角单元格是否在目标范围内
            If Not Intersect(currentCheckBox.TopLeftCell, targetRng) Is Nothing Then
                ' 同步主复选框的选中状态
                currentCheckBox.Value = mainCheckBox.Value
            End If
        End If
    Next currentCheckBox
End Sub

关键修改说明 #

1. 修正核心判断逻辑：把检查主复选框位置改成检查当前遍历的复选框currentCheckBox.TopLeftCell是否在targetRng内，这样只有目标区域内的复选框才会被修改
2. 移除不必要的Select操作：直接通过mainCheckBox.TopLeftCell获取位置，避免激活单元格带来的潜在问题
3. 简化变量引用：直接存储主复选框对象，不用反复通过名称查找，代码更简洁高效
4. 逻辑顺序调整：先跳过主复选框，再判断是否在目标区域，逻辑更清晰

这样修改后，你的宏就只会操作主复选框所在列下方14行范围内的复选框，不会影响工作表其他位置的复选框啦！

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