Сортировка по нескольким колонкам

@pashaq · Регистрация: 24.07.2017

Author24 — интернет-сервис помощи студентам

Добрый день!

Необходима сортировка по нескольким колонкам.
Нашел решение но оно мне не нравится.
Есть ли у кого предложения по оптимальному алгоритму расчета.

Приложил скриншот и экселевский файл
Спасибо.

@Казанский · 01.12.2017, 08:51

pashaq, а чем стандартная сортировка не устраивает?

@pashaq · 01.12.2017, 09:01 **[ТС]**

Казанский, в моей задаче много расчетов (это только часть задачи), и чтобы обычные пользователи не лазили куда не следует, не поломали, необходима автоматизация.

@TimSha · 01.12.2017, 09:20

Сообщение от pashaq

предложения по оптимальному алгоритму расчета.

И в чем проблема? - Включите авто фильтр или оформляйте данные "умной таблицей" да и сортируйте по 4 полю...

@pashaq · 01.12.2017, 11:03 **[ТС]**

Попробую. Но решение задачи через формулы не снимаю

Добавлено через 1 час 27 минут
Не подходит. У меня может меняться количество столбцов.
И очень уж много их (40-60). И там где будет использоваться эксель 2007

@Ruella · 01.12.2017, 11:56

pashaq, без промежуточного столбца пока что не получается

@pashaq · 01.12.2017, 12:58 **[ТС]**

Ruella, Спасибо, за попытку.
Количество строк около 1000 и ваше решение не подойдет
Моя ошибка, я не совсем корректно формализовал задачу.

Пошел по пути написания кода на VBA.
Поиск решения в процессе.

Но по прежнему жду ваших предложений

@Dinoxromniy · 01.12.2017, 16:42

Сообщение от pashaq

Количество строк около 1000 и ваше решение не подойдет

Почему вы так решили? Решение будет работать. Другой вопрос, что 60 ячеек вбивать будет неудобно.

Сообщение от pashaq

Моя ошибка, я не совсем корректно формализовал задачу.

Ваша ошибка, что вы сформулировали другую задачу, и выложили неактуальный пример - на 57 столбиков меньше, чем требуется.

Сообщение от pashaq

У меня может меняться количество столбцов.
И очень уж много их (40-60).

Очевидный вопрос - может ли в вашем наборе данных одна и та же комбинация встречаться несколько раз, и если да - что должно быть в результатах.
Второй вопрос - какое максимальное число может быть вписано в ячейки с параметрами.

Исходя из того, что в вашем примери дубликаты комбинаций не встречаются, а параметры лежат в пределах 0-9, можно воспользоваться функцией ниже. Код нужно скопировать в модуль.
В вашем примере вбейте в ячейку Е4 формулу =IndexSmall($B$4:$D$7;A4) и протяните вниз.

Visual Basic

Public Function IndexSmall(ByVal rngData As Range, ByVal k As Long) As Long
    Dim i As Integer, j As Long, strTxt As String
    Dim arrVal() As Long
    ReDim arrVal(1 To rngData.Rows.Count)
    
    For j = 1 To rngData.Rows.Count
        For i = 1 To rngData.Columns.Count
            strTxt = strTxt & rngData.Cells(j, i).Value
        Next i
        arrVal(j) = Val(strTxt)
        strTxt = ""
    Next j
    IndexSmall = Application.WorksheetFunction.Match(Application.WorksheetFunction.Small(arrVal, k), arrVal, 0)
End Function

@pashaq · 02.12.2017, 12:43 **[ТС]**

Сообщение от Dinoxromniy

параметры лежат в пределах 0-9

Параметры в пределах 0-9999.
Но небольшая модификация кода смогла решить этот вопрос.
Спасибо! то что надо.

@Казанский 15145 / 6418 / 1731 Регистрация: 24.09.2011 Сообщений: 9,999
	01.12.2017, 08:51	2
	pashaq, а чем стандартная сортировка не устраивает? Миниатюры 0

@pashaq 0 / 0 / 0 Регистрация: 24.07.2017 Сообщений: 15
	01.12.2017, 09:01 [ТС]	3
	Казанский, в моей задаче много расчетов (это только часть задачи), и чтобы обычные пользователи не лазили куда не следует, не поломали, необходима автоматизация. 0

@TimSha 92 / 69 / 16 Регистрация: 22.01.2010 Сообщений: 311
	01.12.2017, 09:20	4
	Сообщение от pashaq предложения по оптимальному алгоритму расчета. И в чем проблема? - Включите авто фильтр или оформляйте данные "умной таблицей" да и сортируйте по 4 полю... 0

@pashaq 0 / 0 / 0 Регистрация: 24.07.2017 Сообщений: 15
	01.12.2017, 11:03 [ТС]	5
	Попробую. Но решение задачи через формулы не снимаю Добавлено через 1 час 27 минут Не подходит. У меня может меняться количество столбцов. И очень уж много их (40-60). И там где будет использоваться эксель 2007 0

@pashaq 0 / 0 / 0 Регистрация: 24.07.2017 Сообщений: 15
	01.12.2017, 12:58 [ТС]	7
	Ruella, Спасибо, за попытку. Количество строк около 1000 и ваше решение не подойдет Моя ошибка, я не совсем корректно формализовал задачу. Пошел по пути написания кода на VBA. Поиск решения в процессе. Но по прежнему жду ваших предложений 0

@pashaq 0 / 0 / 0 Регистрация: 24.07.2017 Сообщений: 15
	02.12.2017, 12:43 [ТС]	9
	Сообщение от Dinoxromniy параметры лежат в пределах 0-9 Параметры в пределах 0-9999. Но небольшая модификация кода смогла решить этот вопрос. Спасибо! то что надо. 0