Выделить столбец, зная его номер

[Snekich]

Добрый день. Столкнулся с такой смешной проблемкой, но не могу решить ее.
Я знаю номер нужного столбца, например 25 (столбец Y).

Как в vba выделить весь этот столбец ?

(надо для того что бы кодом Vba скопировать формулы этого столбца на несколько столбцов вправо и еще для других целей)

Подскажите пожалуйста. Думаю, выход должен быть простым...

[Hugo121]

Columns(25).Select

Но чтоб скопировать - выделять не нужно.

[EducatedFool]

надо для того что бы кодом Vba скопировать формулы этого столбца на несколько столбцов вправо

Columns(25).copy cells(27).resize(,5)

Этот код скопирует 25-й столбец на 5 столбцов, начиная с 27-го столбца

[Snekich]

Огромное спасибо.

А подскажите еще как очищать (от всего содержимого) столбцы, зная номер одного из них?

А то я делаю:

RPM = 20
rdobavt =5

For t = 0 To rdobavt - 1
Columns(RPM - t).Select
Selection.ClearContents
Next t

Что, на мой взгляд более, чем нерационально...

[EducatedFool]

Примерно так:

RPM = 20: rdobavt =5
Columns(RPM).resize(,rdobavt).ClearContents

этот код очистит столбцы с 20 по 24

[DiemonStar]

Сообщение от EducatedFool

Примерно так:

RPM = 20: rdobavt =5
Columns(RPM).resize(,rdobavt).ClearContents

этот код очистит столбцы с 20 по 24

для указанного примера больше подходит:

Columns(RPM).Offset(, -rdobavt + 1).Resize(, rdobavt).ClearContents

поскольку чистятся с 16 по 20