Удаление столбцов с..по...

[KApSuL]

есть таблица, в ней нужно удалить лишние строки
выделяю строки вот так:

    Set nachalo = [A:A].Find("", LookIn:=xlValues).EntireRow
    Set konec = [C:C].Find("", LookIn:=xlValues).EntireRow
    Union(nachalo, konec).Select

не знаю как сделать, чтобы выделить диапазон строк между этими двумя строками
помогите пожалуйста

[KApSuL]

как-то так может?

    Rows(("& nachalo.Row.Adress &") : ("& konec.Row.Adress $")).Select

[IgorGO]

Set nachalo = [A:A].Find("", LookIn:=xlValues)
nachalo.resize([C:C].Find("", LookIn:=xlValues).row-nachalo.row+1,1).entirerow.delete

[KApSuL]

спасибо большое

[SAS888]

Пара замечаний:
1. Предложенный способ подразумевает, что первая найденная пустая ячейка в столбце "A" имеет меньший номер строки, чем первая найденная пустая ячейка в столбце "C". Если иначе - будет ошибка.
2. Метод Find имеет один нюанс. Например, если при поиске первой пустой ячейки в столбце использовать

Set nachalo = [A:A].Find("", LookIn:=xlValues)

то поиск начнется с ячейки "A2". Т.е. если "A1" пустая, то она будет пропущена.

[Казанский]

Че так сложно-то?

Set nachalo = [A:A].Find("", LookIn:=xlValues)
Set konec = [C:C].Find("", LookIn:=xlValues)
Range(nachalo, konec).EntireRow.Delete '.Select

И неважно, у какой из найденных ячеек номер строки больше.

[SAS888]

И неважно, у какой из найденных ячеек номер строки больше.

Нам с Вами "не важно". А автору темы?
Да и 1-ю строку, по большому счету, нужно проверять отдельно.
Как проще сделать, во многом зависит от начальных условий. Можно, например, так:

Set nachalo = [A:A].SpecialCells(xlCellTypeBlanks).Cells(1, 1)
Set konec = [C:C].SpecialCells(xlCellTypeBlanks).Cells(1, 1)
Range(nachalo, konec).EntireRow.Delete '.Select

Данный способ не пропустит пустую ячейку в 1-й строке, но он применим только для таблицы с значениями, без формул.

[KApSuL]

ребят, подскажите пож как задать область печати?
нашёл вот такой способ

ActiveSheet.PageSetup.PrintArea = ...

Не могу понять как туда переменные задать
пробую что-то по типу:

ActiveSheet.PageSetup.PrintArea = Range(nachalo, konec).EntireRow.Select

подскажите пож как будет правильно

[kuklp]

ActiveSheet.PageSetup.PrintArea = intersect(ActiveSheet.usedrange,Range(nachalo, konec).EntireRow).address

[DiemonStar]

ActiveSheet.PageSetup.PrintArea = Intersect(Range(nachalo, konec), UsedRange).Address

Вот так должно работать.