Сортировка разных диапазонов чисел из одного столбца

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

Сортировка разных диапазонов чисел из одного столбца (Формулы/Formulas)

bratello

Дата: Вторник, 13.12.2016, 13:02 | Сообщение № 1

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

Здравствуйте, уважаемые участники.
Не нашел ничего поиском, может быть не так задавал вопрос.
Суть проблемы следующая - есть база клиентов компании с номерами мобильных тел контрагентов. Требуется отсортировать мобильные номера на принадлежность к региону согласно списка Россвязи https://www.rossvyaz.ru/activity/num_resurs/registerNum/. Номера идут одним столбцом
Простая сортировка, понятно, не поможет в данном случае. С макросами не дружу. Подскажите алгоритм решения такой проблемы. Спасибо

Сообщение отредактировал bratello - Вторник, 13.12.2016, 15:14

Ответить

dim34rus

Дата: Вторник, 13.12.2016, 13:44 | Сообщение № 2

Группа: Пользователи

Ранг: Участник

Сообщений: 66

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

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

Excel 2007 - 2013

Образец таблицы не помешал бы. А так же признаки регионов.

Извращение - это писать формулы в Word'овских таблицах.
ЯД 410014340958327

Ответить

bratello

Дата: Вторник, 13.12.2016, 15:13 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

dim34rus,
Вот пример. Справа часть таблицы с сайта Россвязи (прошу прощения, постом выше ошибся - не Росреестр, а Россвязь).

Получается слева единый список всех номеров, а справа диапазон, к примеру, для Москвы и МО - 917 5000000 5999999 1000000шт Мобильные ТелеСистемы Москва и Московская область. И больше в коде 917 московских номеров нет, остальные по регионам все.

Диапазонов номеров всего ~4500. Как это сортировать?

К сообщению приложен файл: 7162476.xlsx (11.9 Kb)

Сообщение отредактировал bratello - Вторник, 13.12.2016, 15:13

Ответить

bratello

Дата: Вторник, 13.12.2016, 15:40 | Сообщение № 4

Группа: Пользователи

Ранг: Прохожий

Сообщений: 7

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

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

Excel 2010

Я вот тут наткнулся на решение похожей проблемы. С той разницей, что автор темы в астериске это делал https://habrahabr.ru/post/144563/ Но в екселе как-то, видимо, по другому это делается...

Ответить

buchlotnik

Дата: Вторник, 13.12.2016, 16:12 | Сообщение № 5

Группа: Заблокированные

Ранг: Участник клуба

Сообщений: 3442

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

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

2010, 2013, 2016 RUS / ENG

так может регион к номеру формулой подтянуть? а потом и сортировать можно

К сообщению приложен файл: 2617963.xlsx (16.5 Kb)

Ответить

dim34rus

Дата: Вторник, 13.12.2016, 17:15 | Сообщение № 6

Группа: Пользователи

Ранг: Участник

Сообщений: 66

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

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

Excel 2007 - 2013

макрос.
[vba]

Код

Sub СОРТИРОВКА_НОМЕРОВ()
   i = 1
   While ActiveSheet.Cells(i, 1).Value <> ""
     k = 1
     While (Not ((ActiveSheet.Cells(i, 1).Value >= 70000000000# + ActiveSheet.Cells(k, 3).Value * 10000000 + ActiveSheet.Cells(k, 4).Value) And (ActiveSheet.Cells(i, 1).Value <= 70000000000# + ActiveSheet.Cells(k, 3).Value * 10000000 + ActiveSheet.Cells(k, 5).Value)) And ActiveSheet.Cells(k, 3).Value <> "")
       k = k + 1
     Wend
     ActiveSheet.Cells(i, 2).Value = ActiveSheet.Cells(k, 8).Value
     i = i + 1
   Wend

    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add Key:=Range("B1:B" & Format(i)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("A1:B" & Format(i))
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With

    ActiveSheet.Range("A1:B1").AutoFilter
End Sub

[/vba]

Проблема макроса в том, что он всегда будет хотеть таблицу регионов именно в таком виде (количество строк не важно)
Время обработки макросом 14 тыс номеров ~8-10 сек