как объединить две ячейки, не зная заранее их адреса?

[aniutik]

мне нудно на новом листе для оформления таблицы объединить по две несколько ячеек.
Например B1 и С1, D1 и E1, F1 и G1 и т.д., до того момента, пока количество пар не станет равным переменной variants.
Не могу понять, как это можно сделать

[GSerg]

Код: Выделить всё

const startcolumn as long = 2
dim i as long

for i=1 to variants*2 step 2
  range(cells(1,i+startcolumn-1),cells(1,i+1+startcolumn-1)).merge
next

[aniutik]

спасибо.
А как теперь к этой ячейке обратиться через cells? Под каким номером?

[GSerg]

По номеру первого столбца объединения - точно.

[aniutik]

спасибо