сортировка динамических диапазонов

Старая форма входа

Страница 1 из 1 1
Модератор форума: китин, _Boroda_

Мир MS Excel » Вопросы и решения » Вопросы по VBA » сортировка динамических диапазонов (Макросы/Sub)

luny

Дата: Воскресенье, 19.04.2015, 17:20 | Сообщение № 1

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

есть справочник телефонов по городам, который периодически изменяется (добавляются удаляются абоненты) -нужно отсортировать абонентов по именам в пределах одного города.
города отмечены символом "*" для другого макроса, но их я тоже пытаюсь использовать...текст отмеченный плюсом НЕ должен сортироваться
в файле мое "творение"...если можно то поднимите его с колен...

К сообщению приложен файл: 1807047.xls (26.0 Kb)

Ответить

krosav4ig

Дата: Понедельник, 20.04.2015, 00:33 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

[vba]

Код

Sub Сорт()
      Dim rng As Range
      With Intersect(Intersect(ActiveSheet.UsedRange, [C:C]).SpecialCells(4).EntireRow, [A:B])
          For Each rng In .Areas
              rng.sort rng(1, 2), xlAscending
          Next
      End With
      MsgBox "отсортировано"
End Sub

[/vba]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Сообщение отредактировал krosav4ig - Понедельник, 20.04.2015, 00:34

Ответить

luny

Дата: Понедельник, 20.04.2015, 10:44 | Сообщение № 3

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 101

Репутация: 0 ±

Замечаний: 40% ±

Excel 2003

krosav4ig, спс - работает - а розжевать как работает можете...интересно прост оч

Сообщение отредактировал luny - Вторник, 21.04.2015, 10:06

Ответить

krosav4ig

Дата: Вторник, 21.04.2015, 11:43 | Сообщение № 4

Группа: Друзья

Ранг: Старожил

Сообщений: 2347

Репутация: 989 ±

Замечаний: 0% ±

Excel 2007,2010,2013

[vba]

Код

Sub Сорт()
       Dim rng As Диапазон
       С Пересечение(Пересечение(ВсеЯчейкиЛистаСДанными, [C:C]).ПустыеЯчейки.ВсяСтрока, [A:B])
           Для Каждого rng В .Области
               rng.Сортировать rng(1, 2), xlПоВозрастанию
           Next
       Конец С
       MsgBox "отсортировано"
End Sub

[/vba] luny, так понятнее?