Добрый вечер. Подскажите пожалуйста где ошибка? Либо уходит в бесконечный цикл либо выходит ошибка.
Что надо получить: В столбце "С:С" есть данные, н/р "С1:С10" все ячейки заполнены. В "С11" пустая ячейка. Надо выделить "С1:С10"
Спасибо!
Макрос взят на этом сайте и чуть переделан.
[vba]Код
Dim a1 As String ' верхний адрес
Dim a2 As String ' нижний адрес
Dim ran As Range ' в диапазоне
If (PN.Range("C1").Value = "") Then ' если верхняя пустая
ActiveCell.Offset(1, 0).Select ' пойти в низ
a1 = ActiveCell.Address ' взять адрес ячейки
End If
For x = 1 To (ActiveCell.Row + 1) ' будем опускатся
ActiveCell.Offset(1, 3).Select ' на одну вниз
ActiveCell.Offset(1, 3).Select ' на одну вниз
If (ActiveCell.Value) = "" Then ' если пустая
ActiveCell.Offset(-1, 3).Select ' на одну вверх
a2 = ActiveCell.Address ' получаем адрес нижней
End If
Next
Set ran = Range(a1 + ":" + a2) ' строим диапазон
ran.Select ' выбеляем
[/vba]