Выделение ячейки и диапазона ячеек одновременно

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Выделение ячейки и диапазона ячеек одновременно (Макросы/Sub)

tigrusha

Дата: Четверг, 17.09.2015, 12:20 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 2

Репутация: 0 ±

Замечаний: 0% ±

Excel 2010

Добрый день.

Задача следующая.
после прыжка с 1-ой ячейки строки на 4 вправо, оставить выделенной 1-ую ячейку строки. Потом выделить диапазон с 4-ой ячейки вправо, оставив при этом 1-ую строку выделенной.

Например, нужно выделить А1,Е1:до ячейки, где есть данные.

как доработать код?

Спасибо

[vba]

Код

ActiveCell.Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         Selection.End(xlToLeft).Select
         ActiveCell.Offset(0, 4).Select
         Range(Selection, Selection.End(xlToRight)).Select

[/vba]