使用vba合并单元格

Question

除了我想使用cells而不是range之外，我该如何处理以下代码所做的事情？这将允许我以（行，列）格式引用单元格。

ActiveSheet.Range("A1:A5").Merge

Answer 1

您可以使用以下命令返回指定单元格的单元格地址。然后使用存储的字符串地址来表示合并范围：

Sub merge()

    Dim cell1, cell2 As String

    cell1 = Cells(1, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)

    cell2 = Cells(5, 1).Address(RowAbsolute:=False, ColumnAbsolute:=False)

    ActiveSheet.Range(cell1 + ":" + cell2).merge

End Sub

Answer 2

您可以使用：

Cells(1, 1).Resize(5).Merge

或：

Range(Cells(1, 1), Cells(5, 1)).Merge

Answer 3

定义范围变量

Excel.Range range = ActiveSheet.get_range(ActiveSheet.Cells[1,1], ActiveSheet.Cells[1,4]);
range.Merge();