VBA循环合并单元格问题：自第12列起隔列合并代码失效求排查

让我帮你排查这段VBA代码里的问题，顺便给你修正方案：

代码里的核心问题 #

• 起始列不符合需求：你明确说要从第12列开始遍历，但代码里循环起始值写的是i=13，直接跳过了目标起始列，这是最直观的错误。
• 边界溢出风险：当循环到最后一列时，i+1会超出工作表的有效列范围，触发运行时错误。比如如果最后一列是15，当i=15时，i+1=16不存在，程序会直接报错终止。
• 潜在的lCol未赋值问题：如果lCol变量没有提前获取工作表的最后一列编号，这段代码根本不知道循环到哪一步停止，大概率会因变量未定义/未赋值直接出错。

修正后的完整代码 #

Sub MergeTargetColumns()
    Dim lCol As Long
    ' 获取第3行的最后一列编号（基于该行的有效数据列）
    lCol = Sheet9.Cells(3, Sheet9.Columns.Count).End(xlToLeft).Column
    
    ' 从第12列开始，间隔一列合并，确保i+1不超出最后一列
    For i = 12 To lCol - 1 Step 2
        Sheet9.Range(Sheet9.Cells(3, i), Sheet9.Cells(3, i + 1)).Merge
    Next i
End Sub

修正点说明 #

1. 把循环起始值改成i=12，匹配你“从第12列开始”的需求；
2. 循环终止条件调整为lCol - 1，保证i+1始终在有效列范围内；
3. 补充了lCol的正确赋值逻辑，避免因变量未定义导致的错误；
4. 封装成完整的Sub过程，方便直接运行测试。

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