Домашняя страница Undo Do Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Готовые решения

МЕНЮ САЙТА
  • 1
  • 2
  • 3

КАТЕГОРИИ РАЗДЕЛА

ОПРОСЫ
Какой версией Excel Вы пользуетесь?
Всего ответов: 35798
Главная » Готовые решения » VBA » Полезные приёмы

Сортировки массивов. Метод перестановок.
26.10.2013, 23:53
только для целых чисел
Option Base 1

Sub recalc()
Dim x(), y&(), i&, j&, k&, mn&, mx&
With Application
 x = .Transpose(Range("A1", Cells(Rows.Count, 1).End(xlUp)))
 mn = .Min(x): mx = .Max(x)
 ReDim y(mn To mx)
 For i = LBound(x) To UBound(x)
 y(x(i)) = y(x(i)) + 1
 Next
 k = LBound(x)
 For i = mn To mx
 For j = 1 To y(i)
 x(k) = i: k = k + 1
 Next
 Next
 Range("A1").Resize(UBound(x)).Value = .Transpose(x())
End With
End Sub
Добавил: nilem |
Просмотров: 1710 | Рейтинг: 3.0/1
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Яндекс цитирования
© 2010-2016 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!