XenoZ Gold Member Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору Код: Sub TEST() Dim nn As Long     nn = Cells(Rows.Count, 1).End(xlUp).Row     Columns("A:A").Insert Shift:=xlToRight     Range("A1").Value = 1     Range("A1").AutoFill Destination:=Range("A1:A" & CStr(nn)), Type:=xlFillSeries     Rows("1:" & CStr(nn)).Sort Key1:=Range("A1"), Order1:=xlDescending, Header:=xlNo, _         OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, DataOption1:=xlSortNormal     Columns("A:A").Delete Shift:=xlToLeft End Sub Всего записей: 5443 | Зарегистр. 29-03-2006 | Отправлено: 21:44 24-08-2021

На первую страницу • к этому сообщению • к последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Прикладное программирование » Excel VBA (часть 3)

Переход по форумам  Закладки   » Компьютеры Цифровое изображение Программы Microsoft Windows UNIX Другие OS Hardware В помощь сисадмину Прикладное программирование Игры Форумные игры   » Интернет Web-программирование В помощь вебмастеру Графика Хостинг Зацените-ка!   » Тематические Ikonboard v.2 Ikonboard v.3 Invision Board Другие форумы PHP-Nuke и другие порталы Мобила   » Общие Спорт Флейм Темы по региональным встречам Музыка и Кино Юмор Литература и Живопись   » Ru.Board Новости Помощь по форуму   » Андеграунд eBookz Варезник Раздачи и акции Мобильный варезник Андеграунд Игры и фильмы   » Специальные Тестирование