Сортировка таблиц с учётом данных в соседнем столбце - VBA
Формулировка задачи:
Здравствуйте, я начинаю осваивать VBA и столкнулась со следующей задачей
допустим, есть таблица
Необходимо отсортировать таблицу последующему алгоритму:
1) сортируем по стоблцу "результат 1" от максимального к минимального
2) сморим в какой строке последняя ячейка либо 0 либо 1.
3) выделяем таблицу от этой строки до последней и сортируем столбец "результат 2" от максимального к минимальному
4) также смотрим в какой строке последняя ячейка 0 либо 1 и сортируем следующий столбец начиная с этой строки.
В итоге получим
Данную сортировку не трудно осуществить вручную, но лишь при малом объеме данных, а для таблиц с количеством строк и столбцов более 100 это весьма неудобно, поэтому необходима автоматизация данной операции.
Очень буду рада помощи)
клиент |
результат 1 | результат 2 | результат 3 | результат 4 |
| Борисов | 0 | 4566 | 2345 | 4677 |
| Иванов | 1 | 0 | 0 | 1 |
| Лебедев | 555 | 0 | 0 | 56 |
| Петров | 0 | 34322 | 0 | 0 |
| Сидоров | 12342 | 0 | 0 | 1 |
| Смирнов | 456 | 1 | 1 | 234322 |
| Сорокин | 0 | 456444444 | 1 | 3555 |
| Фролов | 1 | 0 | 45 | 0 |
| клиент | результат 1 | результат 2 | результат 3 | результат 4 |
| Сидоров | 12342 | 0 | 0 | 1 |
| Лебедев | 555 | 0 | 0 | 56 |
| Смирнов | 456 | 1 | 1 | 234322 |
| Иванов | 1 | 0 | 0 | 1 |
| Фролов | 1 | 0 | 45 | 0 |
| Борисов | 0 | 4566 | 2345 | 4677 |
| Петров | 0 | 34322 | 0 | 0 |
| Сорокин | 0 | 456444444 | 1 | 3555 |
| клиент | результат 1 | результат 2 | результат 3 | результат 4 |
| Сидоров | 12342 | 0 | 0 | 1 |
| Лебедев | 555 | 0 | 0 | 56 |
| Смирнов | 456 | 1 | 1 | 234322 |
| Сорокин | 0 | 456444444 | 1 | 3555 |
| Петров | 0 | 34322 | 0 | 0 |
| Борисов | 0 | 4566 | 2345 | 4677 |
| Иванов | 1 | 0 | 0 | 1 |
| Фролов | 1 | 0 | 45 | 0 |
| клиент | результат 1 | результат 2 | результат 3 | результат 4 |
| Сидоров | 12342 | 0 | 0 | 1 |
| Лебедев | 555 | 0 | 0 | 56 |
| Смирнов | 456 | 1 | 1 | 234322 |
| Сорокин | 0 | 456444444 | 1 | 3555 |
| Петров | 0 | 34322 | 0 | 0 |
| Борисов | 0 | 4566 | 2345 | 4677 |
| Фролов | 1 | 0 | 45 | 0 |
| Иванов | 1 | 0 | 0 | 1 |
клиент |
результат 1 | результат 2 | результат 3 | результат 4 |
| Сидоров | 12342 | 0 | 0 | 1 |
| Лебедев | 555 | 0 | 0 | 56 |
| Смирнов | 456 | 1 | 1 | 234322 |
| Сорокин | 0 | 456444444 | 1 | 3555 |
| Петров | 0 | 34322 | 0 | 0 |
| Борисов | 0 | 4566 | 2345 | 4677 |
| Фролов | 1 | 0 | 45 | 0 |
| Иванов | 1 | 0 | 0 | 1 |
Решение задачи: «Сортировка таблиц с учётом данных в соседнем столбце»
textual
Листинг программы
- Sub SortTable()
- Dim R As Range, Row&, Col%, cRow&, cCol%
- Set R = [a1].CurrentRegion ' диапазон таблицы
- cCol = R.Columns.Count ' количество столбцов
- cRow = R.Rows.Count ' количество строк в диапазоне
- Row = 1 ' сколько строк пропускаем от начала диапазона (изначально пропускаем шапку)
- Col = 2 ' столбец для сортировки
- Do
- cRow = cRow - Row ' количество строк в диапазоне для сортировки
- Set R = R.Offset(Row).Resize(cRow) ' диапазон для сортировки
- R.Sort R.Columns(Col), xlDescending ' сортировка диапазона по столбцу Col
- If Col = cCol Then Exit Do ' выход, если отсортировали последний столбец
- For Row = cRow To 1 Step -1 ' поиск строки отличной от 0 и 1 с конца в столбце Col
- If R.Cells(Row, Col).Value <> 0 And R.Cells(Row, Col).Value <> 1 Then Exit For
- Next
- Col = Col + 1 ' следующий столбец
- Loop Until Row = cRow ' выход из цикла, если значений равных 0 или 1 в отсортированом столбце в конце нет
- End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
