如何在vba中合并循环中的单元格？

Question

我正在尝试合并每个第二个单元格，从12.column开始直到最后一个使用的列，但代码无效。有人可以指出我正在犯的错误吗？

For i = 13 To lCol Step 2
    Sheet9.Range(Sheet9.Cells(3, i), Sheet9.Cells(3, i + 1)).Merge
Next i

Answer 1

使用20作为最后一列的硬编码值和下面的代码：

Public Sub TetMe()

    Dim i As Long

    For i = 1 To 20 Step 2
        With Worksheets(1)
            .range(.Cells(3, i), .Cells(3, i + 1)).Merge
        End With
    Next i

End Sub

你会得到这样的结果：