Нужно отсортировать по возрастанию уникальные значения массива в Столбец E и вывести количество для каждого уникального значения в столбец F рядом напротив
Всем добрый вечер!
Нужно отсортировать по возрастанию уникальные значения массива в Столбец E и вывести количество для каждого уникального значения в столбец F рядом напротивant6729
Sub Мяу() Dim ar, x, arK, arI ar = [A1].CurrentRegion.Value With CreateObject("Scripting.Dictionary") For Each x In ar .Item(x) = .Item(x) + 1 Next ReDim ar(1 To .Count, 1 To 2) arK = .Keys arI = .items For x = 1 To .Count ar(x, 1) = arK(x - 1) ar(x, 2) = arI(x - 1) Next End With [F1].Resize(UBound(ar), 2) = ShellSort22(ar, 1) End Sub
Sub Мяу() Dim ar, x, arK, arI ar = [A1].CurrentRegion.Value With CreateObject("Scripting.Dictionary") For Each x In ar .Item(x) = .Item(x) + 1 Next ReDim ar(1 To .Count, 1 To 2) arK = .Keys arI = .items For x = 1 To .Count ar(x, 1) = arK(x - 1) ar(x, 2) = arI(x - 1) Next End With [F1].Resize(UBound(ar), 2) = ShellSort22(ar, 1) End Sub
Пишется, что ShellSort22 sub or function not defined
И, как я понимаю, оно выделяет весь массив сортирует каждый столбец А где, что выводит уникальное значение массива по порядку в E 1 и напротив ставит количество в массиве по каждому, не нашел
PS Если я извращения какие - то спрашиваю, Вы мне так и напишите)
Пишется, что ShellSort22 sub or function not defined
И, как я понимаю, оно выделяет весь массив сортирует каждый столбец А где, что выводит уникальное значение массива по порядку в E 1 и напротив ставит количество в массиве по каждому, не нашел
PS Если я извращения какие - то спрашиваю, Вы мне так и напишите)ant6729
Вход
Регистрация
Напомнить пароль
Автосумма
Часто используемые
ВПР
ЕСЛИ
СУММЕСЛИ
Финансовые
Логические
Текстовые
Даты и времени 
Ссылки и массивы 
Математические
Другие функции
Проверка свойств и значений
Баз данных
Математические
Обработки массивов
Обработки строк
Преобразования типов данных 
Загрузки данных
Работы с файлами
Обработки системных параметров
Обработки цвета
Работы с датами и временем
Преобразования в системы счисления
Финансовые
