Перейти на определенную ячейку в текущей строке

[ольгаг]

Здравствуйте Уважаемые программисты!
Подскажите пожалуйста, как перейти, например, в активной строке (активная строка - это там где курсор, т.е. ActiveCell) в ячейку в 4-ом (D) столбце?
Заранее спасибо.

[kuklp]

cells(activecell.row,4).select

[ольгаг]

Спасибо большое, все работает!

[ольгаг]

Подскажите пожалуйста, как подобным алгоритмом:

cells(activecell.row,4).select

перейти на ячейку в 4-ом столбце в текущей строке, если данная ячейка объединенная? Т.е. сейчас выделяется ячейка (как часть) объединенной ячейки, а надо чтобы выделялась вся объединенная ячейка?
Спасибо за любой ответ.

[RAN.]

Сообщение от ольгаг

Т.е. сейчас выделяется ячейка (как часть) объединенной ячейки, а надо чтобы выделялась вся объединенная ячейка?

А как вы этого чуда добились? Вот бы глянуть?

[ольгаг]

Попробуйте выполнить:
Cells(ActiveCell.Row, 4).Copy
и увидите как выделяется только область в объединенной ячейке.

[RAN.]

У меня выделяется как и должно - объединенная ячейка целиком. Хоть в одном столбце объединяй, хоть в двух.
А вот как выделить часть объединенной ячейки - загадка.

[ольгаг]

Как я понимаю при объединении ячеек, например, в столбце, значение объединенного диапазона по умолчанию запоминается только в верхней левой ячейке объединенного диапазона. Это можно увидеть при разъединении объединенного диапазона.
Подскажите пожалуйста, как определить адрес верхней ячейки объединенного диапазона? Спасибо.

[RAN.]

a = ActiveCell.Address
If ActiveCell.MergeCells Then
b = ActiveCell.MergeArea.Address
End If

[SAS888]

Попробуйте выполнить:
Cells(ActiveCell.Row, 4).Copy
и увидите как выделяется только область в объединенной ячейке.

Достаточно этого:

Cells(ActiveCell.Row, 4).MergeArea.Copy