通过循环批量合并列的VBA代码运行异常求助

原代码的问题分析 #

• 语法错误：With frrngr.Cells(RowIndex:=j 'Columnindex:=1)这一行里，单引号错误注释了ColumnIndex参数，还缺少参数分隔逗号和闭合括号，直接导致编译失败。
• 合并范围错误：原代码只选中目标区域的单个单元格（第j行第1列），执行.Merge不会产生列合并效果，必须选中该行在目标区域内的所有列。
• 冗余变量：声明了k As Long但完全没用到，可删除以简化代码。
• 潜在引用错误：Set frrngr = .Range("E18:K26")中的点号（.）要求代码处于工作表对象的With块中，否则会报错，建议显式指定工作表。

修正后的代码 #

Sub MergeColumnsInRange()
    Dim frrngr As Range
    ' 显式指定工作表，比如Sheet1，根据实际表名修改
    Set frrngr = Sheet1.Range("E18:K26")
    Dim j As Integer

    ' 每隔一行处理一次（Step 2）
    For j = 1 To frrngr.Rows.Count Step 2
        ' 选中当前行在目标区域内的所有列
        With frrngr.Rows(j)
            .Merge ' 合并该行所有列
            .Interior.ColorIndex = 2 ' 设置背景为白色
            .BorderAround ColorIndex:=1, Weight:=xlThin ' 添加细边框
        End With
    Next j
End Sub

关键修改说明 #

1. 修正With语句语法，将单个单元格替换为frrngr.Rows(j)，确保选中目标区域内的整行，合并后才能实现列合并效果。
2. 显式指定工作表对象，避免因代码上下文缺失导致的引用错误。
3. 删除未使用的冗余变量，精简代码结构。
4. 添加规范的过程名称，方便后续调用和维护。

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