Объединение ранее объединенных ячеек

[Mariya]

Здравствуйте. Возник такой вопрос.
В шаблоне диапазону присвоено имя. В диапазоне ячейки строк - объединенные. Как мне узнать практическое количество ячеек в строке? Если я пишу

Dim Test As Range
Dim Max_i As Integer
Set Test = ActiveSheet.Range("Part")
Max_i = Test.Columns.Count

то выдается число ячеек до объединения, т.е. фактическое подпольное.

А еще было бы совсем замечательно, если бы вы мне подсказали, как сделать так, чтобы, допустим, проверялось содержимое третьей ячейки строки, и если бы она была пустая, то объединялись все ячейки строки в этом самом злополучном диапазоне Part, с которым я вожусь уже второй день (

Когда я пытаюсь обратиться к объединенной ячейке по адресу первой из тех, из которых она состоит, - выдается ошибка.

Заранее гигантское спасибо за любую помощь. Не знаю, понятно ли обрисовала свою проблему, но все же...

[GSerg]

Когда я пытаюсь обратиться к объединенной ячейке по адресу первой из тех, из которых она состоит, - выдается ошибка.

А между тем это правильно.

Как обращаемся?

[Mariya]

А между тем это правильно.
Как обращаемся?

С обращением по адресу первой ячейки я уже разобралась, спасибо.
Но все-таки очень интересует, возможно ли обращение к объединенной ячейке внутри диапазона по какому-нибудь относительному адресу (чтобы был ряд не, допустим, 1, 4, 15, 52, а нормальное 1, 2, 3, 4)?.. Или хотя бы как можно вычислить адрес этой самой первой ячейки, по которому производить обращение?

[GSerg]

В случае сложного объединения может быть непонятно даже в каком направлении считать... в тривиальном случае чё-нить вроде

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

Public Function CellFromNumber(ByVal r As Excel.Range, ByVal num As Long) As Excel.Range
  Dim t As Long
 
  For num = 1 To num
    t = t + r.Cells(t + 1).MergeArea.Columns.Count
  Next
 
  Set CellFromNumber = r.Cells(t)
End Function

[Mariya]

Спасибо. Поэкспериментирую.