ibko
Newbie | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
SteamSS
Цитата:| более 3000 строк, в каждой строке по 30 цифр. Надо каждую строку отсортировать по возростанию |
Предполагаем, что в первой ячейке каждой строки - название строки, его не трогаем и сортируем остальное. Для этого выделяем любой столбец в диапазоне данных - да хоть те же названия - с первой и до последней строки (если в первой строке названия столбцов - её НЕ выделяем)
Sub Макрос1()
Dim ccl, tbl As Range
For Each ccl In Selection.Rows
Set tbl = Intersect(Rows(ccl.Row), ActiveSheet.UsedRange)
Set tbl = tbl.Offset(0, 1).Resize(tbl.Rows.Count, tbl.Columns.Count - 1)
tbl.Select
Selection.Sort Key1:=tbl.Cells(1), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
Next ccl
End Sub
Цитата:| от каждого числа из всего масива требуется отнять определенное число(одно и тоже) |
1. скопировать в буфер обмена "определённое число"
2. выделить "весь массив"
3. Правка > Специальная вставка > раздел Операция - вычесть
|
Всего записей: 12 | Зарегистр. 09-07-2008 | Отправлено: 09:09 04-02-2009 | Исправлено: ibko, 10:32 04-02-2009 |
|
