如何合并一个特定列中单元格的动态范围？

【问题标题】：How to merge dynamic range of cells in one specific column?如何合并一个特定列中单元格的动态范围？
【发布时间】：2019-05-29 13:29:42
【问题描述】：

例如我在单元格 B1、B2 和 B3 中有三个值（数字）。这些解释了我应该在 A 列中合并多少个单元格。例如 B1 = 6, B2 =3 和 B3 = 2 那么我想将单元格范围 A16 合并到 A22 (16+6)，那么 A23 到 A26 应该是一个新的合并范围，最后一个合并的范围应该是 A27 到 A29。

【问题讨论】：

标签： excel vba

【解决方案1】：

你能展示一下你已经写的代码吗？

我认为你必须在你的范围内使用函数Merge。

下面的代码很适合我：

Sub merge()
    Dim i As Integer
    Dim i2 As Integer
    Dim i3 As Integer
    i = Range("B1")
    i2 = Range("B2")
    i3 = Range("B3")
    Range("A1:A" & i).merge
    Range("A" & (i + 1) & ":A" & (i + i2)).merge
    Range("A" & (i + i2 + 1) & ":A" & (i + i2 + i3)).merge
End Sub

【讨论】：