Сортировки массивов. Метод перестановок. - Полезные приёмы - VBA - Готовые решения$

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

Главная » Готовые решения » 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
1 2 3 4 5 Добавил: nilem \|
Просмотров: 3293 \| Рейтинг: 3.0/1

Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]