Sub t()
Columns(1).Select ' выделить 1ый столбец
Cells(1, 1).Resize(1, 5).EntireColumn.Select ' выделить c 1го по 5ый столбцы
Union(Cells(1, 1), Cells(1, 3), Cells(1, 5)).EntireColumn.Select ' выделить 1ый, 3ий и 5ый столбцы отдельно
End Sub
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄