Как объединить динамический диапазон ячеек в одном конкретном столбце?

Question

Например, У меня есть три значения (числа) в ячейках B1, B2 и B3. Это объясняет, сколько я должен слить в столбце А. Например, B1 = 6, B2 = 3 и B3 = 2, тогда я хочу объединить диапазон ячеек от A16 до A22 (16 + 6), тогда A23 до A26 должен быть новым объединенным диапазоном, а последний объединенный диапазон должен быть от A27 до A29.

Answer 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