Сортировка по урлам

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

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

Сортировка по урлам (Формулы)

Сортировка по урлам

den1104

Дата: Среда, 25.09.2013, 18:52 | Сообщение № 1

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

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

Сообщений: 2

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

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

Excel 2010

Добрый день! Имеется столбец с таким видом - ключевое слово:site.ru/catalog/stranica. Мне нужно сортировать не по ключевым словам а по урлам. Как это сделать? Я пробовал поставить | после : чтобы разделить на разные столбцы и сортировать, но не получилось.

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

Ответить

SkyPro

Дата: Среда, 25.09.2013, 18:56 | Сообщение № 2

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

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

Сообщений: 1206

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

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

2010

Текст по столбцам
Разделитель :
Заменить www. на пусто
сортируете.

Вот макрорекордером записал:
[vba]

Код

Sub macro()
      Columns("A:A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
          TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
          Semicolon:=False, Comma:=False, Space:=False, Other:=True, OtherChar _
          :=":", FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True

      Columns("B:B").Replace What:="www.", Replacement:="", LookAt:=xlPart, _
          SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
          ReplaceFormat:=False

      ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Clear
      ActiveWorkbook.Worksheets("Лист1").Sort.SortFields.Add Key:=Range("B1:B287") _
          , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal

      With ActiveWorkbook.Worksheets("Лист1").Sort
          .SetRange Range("A1:B287")
          .Header = xlGuess
          .MatchCase = True
          .Orientation = xlTopToBottom
          .SortMethod = xlPinYin
          .Apply
      End With
      Columns("B:B").EntireColumn.AutoFit
End Sub

[/vba]