Сортировка по последним цифрам excel

В Excel легко отсортировать ячейки по первому символу. Но когда вам нужно отсортировать ячейки по последнему символу или числу в Excel, как вы могли это сделать? Эта статья покажет вам несколько простых способов быстрой сортировки ячеек по последнему символу или числу в Excel.

• Сортировка по последнему символу или числу с помощью правой функции
• Сортировать по последнему символу или номеру с помощью VBA
• Сортировать ячейки по последним символам или числам с помощью Kutools for Excel

Сортировка по последнему символу или числу с помощью правой функции

Пример может быть легким для понимания. Следующие способы покажут вам, как отсортировать ячейки в столбце A по последним символам.

Если мы сможем извлечь последние символы из каждой ячейки, будет легко отсортировать ячейки по их последним символам. К счастью, Microsoft Excel Правильно функция поддерживает извлечение последней буквы или числа ячеек формы.

1. Выберите пустую ячейку помимо столбца, говорит Ячейка B2, введите формулу = ПРАВЫЙ (A2,1), а затем перетащите маркер заполнения ячеек вниз по мере необходимости.

2. Продолжайте выделять эти ячейки формулы и нажмите Данные > Сортировка от А до Я or Сортировка Z по A. В открывшемся диалоговом окне предупреждения о сортировке установите флажок Расширить выбор вариант и нажмите Сортировать кнопка. Смотрите скриншот:

3. Теперь данные отсортированы. Удалите ячейки формулы по мере необходимости

Затем вы увидите, что ячейки в исходном столбце A отсортированы по последним символам.

С легкостью сортируйте по фамилии / слову в ячейках Excel

Kutools for Excel’s Расширенная сортировка Утилита поддерживает сортировку данных многими гибкими сценариями / методами, такими как сортировка по длине текста, сортировка по частоте, сортировка по фамилии и т. д.

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

Сортировать по последнему символу или номеру с помощью VBA

Вы также можете подумать об обратном изменении содержимого ячеек перед сортировкой их по последним символам. На самом деле вам может помочь макрос VBA.

1. Удерживайте Ctrl + F11 , чтобы открыть окно Microsoft Visual Basic для приложения.

2. Щелкните значок Вставить >> Модулии вставьте следующий код VBA в новое окно модуля:

VBA: извлечь последний символ из ячейки

Открытая функция RevStr (Rng As Range)
RevStr = StrReverse (Rng.text)
End Function

3. Вернитесь в окно Microsoft Excel, введите формулу = RevStr (A1), и перетащите маркер заполнения ячейки в нужные ячейки.

4. Щелкните один из трех Сортировать кнопки под Данные кнопку и в открывшемся диалоговом окне установите флажок Расширить выбор и нажмите Сортировать кнопку.

5. Удалите столбец B.

Теперь он сортирует все ячейки в столбце a по их последним символам.

---

Сортировать ячейки по последним символам или числам с помощью Kutools for Excel

Если мы можем изменить порядок всех символов в ячейках, то мы можем легко отсортировать эти ячейки по последнему символу. Kutools for ExcelАвтора Обратный порядок текста Утилита может помочь вам легко решить эту проблему, как показано на скриншоте ниже:

1. Выберите ячейки, которые вы будете отсортировать по последнему символу, и нажмите Кутулс > Текст > Обратный порядок текста.

2. В открывшемся диалоговом окне «Обратный текст» установите флажок Отмечая вариант и нажмите OK кнопку.

3. Теперь все символы в выбранных ячейках перевернуты. Продолжайте выделять эти ячейки и нажмите Данные > Сортировка от А до Я or Сортировка Z по A. В открывшемся диалоговом окне предупреждения о сортировке установите флажок Расширить выбор вариант и нажмите Сортировать кнопка. Смотрите скриншот:

4. Теперь ячейки отсортированы по последнему символу, и нам нужно восстановить порядок символов в этих ячейках, повторив шаги 1-2.

Kutools for Excel — Включает более 300 удобных инструментов для Excel. Полнофункциональная бесплатная пробная версия 30-день, кредитная карта не требуется! Get It Now

---

Демонстрация: сортировка ячеек по последнему символу или числу в Excel

---

Статьи по теме:

---

Лучшие инструменты для работы в офисе

Kutools for Excel Решит большинство ваших проблем и повысит вашу производительность на 80%

• Снова использовать: Быстро вставить сложные формулы, диаграммы и все, что вы использовали раньше; Зашифровать ячейки с паролем; Создать список рассылки и отправлять электронные письма …
• Бар Супер Формулы (легко редактировать несколько строк текста и формул); Макет для чтения (легко читать и редактировать большое количество ячеек); Вставить в отфильтрованный диапазон…
• Объединить ячейки / строки / столбцы без потери данных; Разделить содержимое ячеек; Объединить повторяющиеся строки / столбцы… Предотвращение дублирования ячеек; Сравнить диапазоны…
• Выберите Дубликат или Уникальный Ряды; Выбрать пустые строки (все ячейки пустые); Супер находка и нечеткая находка во многих рабочих тетрадях; Случайный выбор …
• Точная копия Несколько ячеек без изменения ссылки на формулу; Автоматическое создание ссылок на несколько листов; Вставить пули, Флажки и многое другое …
• Извлечь текст, Добавить текст, Удалить по позиции, Удалить пробел; Создание и печать промежуточных итогов по страницам; Преобразование содержимого ячеек в комментарии…
• Суперфильтр (сохранять и применять схемы фильтров к другим листам); Расширенная сортировка по месяцам / неделям / дням, периодичности и др .; Специальный фильтр жирным, курсивом …
• Комбинируйте книги и рабочие листы; Объединить таблицы на основе ключевых столбцов; Разделить данные на несколько листов; Пакетное преобразование xls, xlsx и PDF…
• Более 300 мощных функций. Поддерживает Office/Excel 2007-2021 и 365. Поддерживает все языки. Простое развертывание на вашем предприятии или в организации. Полнофункциональная 30-дневная бесплатная пробная версия. 60-дневная гарантия возврата денег.

---

Вкладка Office: интерфейс с вкладками в Office и упрощение работы

• Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
• Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
• Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!

Комментарии (8)

Оценок пока нет. Оцените первым!

ГЛАВНАЯ

ТРЕНИНГИ

   Быстрый старт
   Расширенный Excel
   Мастер Формул
   Прогнозирование
   Визуализация
   Макросы на VBA

КНИГИ

   Готовые решения
   Мастер Формул
   Скульптор данных

ВИДЕОУРОКИ

ПРИЕМЫ

   Бизнес-анализ
   Выпадающие списки
   Даты и время
   Диаграммы
   Диапазоны
   Дубликаты
   Защита данных
   Интернет, email
   Книги, листы
   Макросы
   Сводные таблицы
   Текст
   Форматирование
   Функции
   Всякое
PLEX

   Коротко
   Подробно
   Версии
   Вопрос-Ответ
   Скачать
   Купить

ПРОЕКТЫ

ОНЛАЙН-КУРСЫ

ФОРУМ

   Excel
   Работа
   PLEX

© Николай Павлов, Planetaexcel, 2006-2022
info@planetaexcel.ru

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

Техническая поддержка сайта

ООО «Планета Эксел» ИНН 7735603520 ОГРН 1147746834949

ИП Павлов Николай Владимирович         ИНН 633015842586         ОГРНИП 310633031600071

На чтение 3 мин. Просмотров 454 Опубликовано 24.05.2021

В Excel мы обычно сортируем данные в порядке возрастания или убывания с помощью утилиты сортировки. Но утилита Sort сортирует данные только по первому символу. Как насчет сортировки строк со вторым, третьим или n-м символом, как показано на скриншоте ниже? В этой статье я расскажу о некоторых приемах решения этой задачи.

Сортировать строки по второму символу с формулой

Сортировать строки по средним символам с текстом в Столбцы

---

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

Сэкономьте 50% своего времени и уменьшите тысячи щелчков мышью каждый день!

---

Для сортировки строк по второму или третьему символу вам понадобится вспомогательный столбец.

1 . Выберите ячейку рядом со строками, которые нужно отсортировать, и введите эту формулу = RIGHT (A1, LEN (A1) -1) , (A1 – используемая вами ячейка, -1 указывает на то, что удалите первый символ слева) нажмите клавишу Enter и перетащите маркер заполнения над ячейками, для которых нужна эта формула. Теперь строки извлечены, кроме первого символа.

2. Не снимая выделения с ячеек формулы, нажмите Данные > Сортировать от А до Я , затем установите флажок Разверните выбор и нажмите Сортировка в диалоговом окне Предупреждение о сортировке . См. Снимок экрана:

3. Данные отсортированы по второму символу. Вы можете удалить вспомогательный столбец.

---

Сортировка строк по средним символам с помощью текста в столбцы

Если вы хотите отсортировать текстовые строки только по нескольким средним символам, вы можете использовать Функция преобразования текста в столбцы.

Например, отсортируйте номера телефонов по двум средним цифрам, как показано на скриншоте ниже.

1. Выберите используемые строки и нажмите Данные > Текст в столбцы .

2. В диалоговом окне Мастер преобразования текста в столбцы установите флажок с разделителями на первом этапе, нажмите Далее , чтобы установить флажок Другое в разделе Разделители и введите разделитель, который используется для разделения чисел в текстовом поле, затем нажмите Далее . , чтобы перейти к последнему шагу и выбрать место для размещения новых данных. См. Снимок экрана:

3. Нажмите Готово , и текстовые строки были разделены на столбцы, и выберите данные столбца, по которым вы хотите отсортировать строки, нажмите Данные > Сортировка от А до Я и установите флажок Развернуть выделение в диалоговом окне Предупреждение о сортировке . См. Снимок экрана:

4. Нажмите Сортировать . Теперь текстовые строки отсортированы по средним символам, вы можете удалить вспомогательные столбцы.

Совет . Если в текстовой строке нет разделителя для разделения символов, вы можете использовать эту формулу = MID (A17,3,2) для извлечения только средние символы, затем отсортируйте. В формуле A17 – это используемая вами ячейка, 3 означает извлечение третьего символа слева, 2 означает извлечение 2 символов.

---

Сортировать одновременно числа и текст в таблице Excel.

​Смотрите также​ — Текстовый —​​ становится. оказывается. макросы​ пределами используемых ячеек​s = Right$(a(r,​ прощения за предыдущий​ Sub​
​ 534, а с​ получить анализируя буквы).​ текст в любом​ получить список, где​ выбрать тип сортировки​ изображены буквы «А»​ отмечаем галочкой «Мои​ и целой таблицы:​ адресность в ссылках​ сортировка». В появившемся​Как настроить сортировку в​ Готово​​ могут работать десятые​​ (UsedRange), например, запишем​ 1), 1)​ пост, не обратил​Set Rng =​ буквами 14534A (но​
​Вероятно, лучше код​ случае​ после каждого крупного​Настраиваемый список (Custom List)​ и «Z» со​ данные содержат заголовки​Выделите диапазон значений столбца​ и тогда результаты​ окне нажимаем кнопку​ Excel​
​А затем обычная​ доли секунды и​ в ячейку что-нибудь,​
​a(r, 1) =​ внимания, что файл​ .Resize(rs)​ это, конечно, не​ на RegExp -​например, вставьте «​ агрегата будут идти​:​
​ стрелочкой​ столбцов» и указываем:​ который следует отсортировать,​ их вычислений будут​ «Параметры…» и ставим​по нашим правилам?​ сортировка по возрастанию​ делать при этом​ а затем очистим​ Val(a(r, 1))​ «распух» после экспериментов)​End With​ существенно…)​ это не ко​ » перед цифрами​ его детали:​
​После этого откроется следующее​
​Ma666oT​ «Столбец» – Чистая​ например «Расход» (в​ ошибочны. Во-вторых, после​ галочку у строки​ Обычная соритровка производится​Russel​ гораздо больше и​ ее содержимое, то​If s >=​ЗЫ. Формат ячеек​’ Создать в​Vlad​ мне :(​ и сортируйте​
​Чтобы это реализовать, нужно​ окно, в котором​: не, не, не​
​ прибыль; «Сортировка» –​ данном случаи это​ многократных сортировок можно​ «Учитывать регистр». Нажимаем​ по цифрам, словам.​: Еще вариант, с​ правильнее.​ по Ctrl-End мы​
​ «A» Then​
​ «# ;» замените​ массиве a() числовыне​
​: andre, а у​А может даже​andre532​ временно добавить еще​ можно выбрать нужную​так я уже​ Цвет ячейки; «Порядок»​ диапазон E1:E11).​
​ перетасовать данные таблицы​ «ОК».​ Смотрите статью «Сортировка​ разбивкой на разряды​спасибо форуму -​ уже попадем в​b(r, 1) =​ на Общий.​ значения сортируемого столбца​ Вас в конце​

excel-office.ru

Сортировка Числовых Значений в Excel. Бесплатные примеры и статьи.

​ и стандартными функциями​: Увы, не помогло…​ один столбец к​ нам последовательность месяцев​ пробовал, не получается….вы​ – красный, сверху.​Щелкните правой кнопкой мышки​ так, что уже​В строке «Сортировать по»​ в Excel».​ по 5 для​ раньше я думал,​ эту очищенную (новую​ Format(a(r, 1), «#​Guest​a() = Rng.Columns©.Value​ может быть только​ спецы выкрутятся? :)​ С апострофом впереди​ нашей таблице, в​ или дней недели:​ просто не видели​

excel2.ru

Как сделать сортировку в Excel по возрастанию и по убыванию

​ И нажмите ОК.​ по выделенному столбцу.​ сложно будет вернуться​ указан адрес дополнительного​Но число с​ более удобного просмотра​ что я вумный,​ последнюю) ячейку. Если​ ;») & s​: Вот мне счастье​

​For r =​ одна буква или​Затем по этому​ тоже…​ котором превратить все​Если нужного списка (например,​ мой документ)​Сверху у нас теперь​ В контекстном меню​ к изначальному ее​ столбца.​ точкой (600.1), Excel​200?’200px’:»+(this.scrollHeight+5)+’px’);»>=ЛЕВСИМВ(A2;5)&» «&ПРАВСИМВ(A2;5)​ а теперь оказывается​ сохранить книгу, то​a(r, 1) =​ привалило-то!​ 1 To rs​ возможно несколько? С​

Сортировка данных в Excel

​ столбцу сортировать.​Guest​ коды в текст​ месяцев, но на​0nega​ наихудшие показатели по​

​ выберите опцию «Сортировка»-«от​ виду. В третьих,​«Сортировка» — выбираем​

1. ​ сортирует не в​Chase​
2. ​ — практически дурак​ последняя ячейка возвращается​ a(r, 1) +​Уважаемые ZVI и​If VarType(a(r, 1))​ одной можно будет​Hugo​: странно​ с помощью функции​

​ английском) нет, то​: вы меня заинтриговали​ чистой прибыли, которые​ минимального к максимальному»​ если таблица содержит​ «Значения». Нажимаем «ОК».​ том порядке, в​: Попробовал, но не​ :)​

​ на свое законное​ Asc(s) * 0.001​ Влад, еще раз​

1. ​ = vbString Then​ просто сделать и​
2. ​: MCH буквы по​Hugo​
3. ​ ТЕКСТ:​ его можно ввести​ … а нельзя​ имеют наихудшие показатели.​Появится диалоговое окно «Обнаруженные​ объединенные ячейки, то​ В появившемся окне​ каком нам нужно.​ выходит, в итоге​Казанский​ место, то же​End If​

​ спасибо!​a(r, 1) =​ точно быстрее 40​

​ алфавиту не сортирует!​

Как в Excel сделать сортировку в столбце

​: С апострофом нормально​Если затем произвести сортировку​ в правое поле,​ ли представить на​

1. ​Примечание. Дальше можно выделить​ данные вне указанного​ следует их аккуратно​ ставим галочку у​ Сначала размещает в​
2. ​ сперва идут только​: Владимир,​ самое обычно происходит​End If​Оба кода очень​
3. ​ Val(a(r, 1))​ сек, а с​ :(​ сортирует, только не​ по этому столбцу,​ выбрав опцию​ суд местных Гуру​ в этой таблице​ диапазона». По умолчанию​ разъединить, так как​ строки «числа и​ столбце все целые​ цифровые значения, а​в данном контексте​

​ при обращении к​Next​

Сортировка по цвету ячейки в Excel

​ быстро работают, почти​End If​ несколькими сложнее…)​Мой алгоритм должен​ нужно добавлять лишних​ то Excel спросит​Новый список (New List)​ кусочек Вашего чуда?​ диапазон A4:F12 и​ там активна опция​ для сортировки такой​ числовые данные в​ числа (600,700), затем​ потом с символами​

1. ​ можно написать просто​ UsedRange.​’ Отключить перерисовку​ мгновенно (кажется код​Next​
2. ​Guest​ помочь :)​ пробелов :)​ о том, как​:​глядишь, и для​
3. ​ повторно выполнить второй​ «автоматически расширять выделенный​ формат является не​ текстовом формате раздельно».​ все числа с​Russel​.UsedRange​Код для проверки:​ экрана​ Влада на пару​’ Скопировать a()​
4. ​: В конце только​MCH​

​Hugo​ ему сортировать числа​В качестве разделителя можно​ себя «изюм «​

1. ​ пункт этого раздела,​ диапазон». Программа пытается​
2. ​ приемлемым.​ Нажимаем «ОК».​ точкой (600.1, 600.2,​: Все работает, формат​, ничего с​Sub Test()​Application.ScreenUpdating = False​ миллисекунд дольше (а​ во вспом. столбец​

​ одна буква: A,B,C,D,E…​: Я макрорекордером записал​: Нет, извиняюсь, не​ и текст:​

​ использовать​ выковыряю​ только указать розовый​ охватить все столбцы​Какими средствами располагает Excel​Получилось так.​ 700.1). А нам​ текстовый выбрали?​ ним не делая.​With Workbooks.Add.Sheets(1)​’ Отформатировать сортируемый​

exceltable.com

как упорядочить цифры по возрастанию

​ может, показалось:)).​​ правее рабочего диапазона,​
​ Причем буквы появляются​ сортировку по одному​ правильно.​
​Если выбрать второй вариант​запятую​DYm00n​ сверху. Таким образом​
​ и выполнить сортировку​
​ для сортировки данных?​
​Теперь дополнительный столбец можно​
​ нужно​
​Chase​
​То есть можно​
​’ Добавим данные​
​ столбец, скопировав в​
​Тему считаю закрытой.​ отсортировать и очистить​
​ по порядку для​ столбцу, а нужно​А вот если​ в этом диалоговом​или клавишу​:​ в первую очередь​

​ как в предыдущем​​ Чтобы дать полный​
​ удалить или скрыть.​-​
​: А есть ли​ использовать конструкцию Sheets(x).UsedRange​ на чистый лист​

​ него b()​​ Всем приятной ночи!​
​Application.ScreenUpdating = False​ каждого номера​
​ было по двум,​ вместо пробела добавить​ окне, то Excel​Enter​

​Ma666oT​​ пойдут ячейки с​ примере. Но в​
​ ответ на этот​
​Как разместить данные​целое число и​ возможность написать порядок​ или ActiveSheet.UsedRange.​.Range(«D2:E5») = «UsedRange»​With Rng.Columns©​ZVI​

​With Range(Rng, LastCell)​​Vlad​
​ вначале по B​ 0 (т.е.0511, 0511A)​ не будет преобразовывать​. Единожды создав такой​

​, при сортировке можно​​ цветом, а после​ этот раз выберите​ вопрос рассмотрим его​ по алфавиту, цифры​ ниже этоже целое​
​ сортировки?​Но в коде​’ Проверим адрес​

​.Value = b()​​: Текст можно так​​cs = .Columns.Count​​: По порядку или​ затем по A​ — то ОК.​ номера крупных агрегатов​

​ пользовательский список, вы​​ выбрать чтобы ТОЛЬКО​ обычные.​ опцию «сортировать в​

​ на конкретных примерах.​​ по возрастанию, уменьшанию,​ число, но с​К примеру: 1,2,3…9,​

CyberForum.ru

Хитрости сортировки

​ листа нельзя написать​ последней ячейки​.Font.Name = «Courier​ отформатировать только макросом,​ + 1​ нет — это​

Случай 1. Сортировка по смыслу, а не по алфавиту

​в примере не​Useful​ в числа и​ сможете им пользоваться и в​ выделенный столбик сортировался​Ma666oT​ пределах указанного диапазона».​Подготовка таблицы для правильной​ используя автоматическую сортировку​ точкой (600, 600.1,​ A, B, C…Z?​ просто Me.UsedRange -​

​Debug.Print 1, .Cells.SpecialCells(xlCellTypeLastCell).Address​ New» ‘ моноширинный​ при этом лучше​With .Resize(, cs)​ неважно. Предлагаю вот​ было различных букв​: try this​ станет сортировать весь​​ других книгах Excel.​ или ВСЕ смежные​​: Здравствуйте!​

​ И нажмите ОК.​ и безопасной сортировки​​ в Excel, смотрите​​ 600.2, 700, 700.1).​​Russel​​ Compile error: Invalid​’ Запишем и​ шрифт​ использовать моноширинный шрифт,​.Columns(cs).Value = a​ такой вариант (красивости​​ для одного и​​=MID(TRIM(I2),1,COUNT(IF(—ISNUMBER(—MID(TRIM(I2),ROW(INDIRECT(«1:»&LEN(I2))),1))*ROW(INDIRECT(«1:»&LEN(I2)))<>0,—ISNUMBER(—MID(TRIM(I2),ROW(INDIRECT(«1:»&LEN(I2))),1))*ROW(INDIRECT(«1:»&LEN(I2))))))​

​ список как текст,​Интересный нюанс состоит в​0nega​Есть проблема: нужно​Столбец отсортирован независимо от​

​ данных:​ в статье «Сортировка​У нас есть​: Поиграйтесь с этим:​ use of property.​ удалим что-нибудь в​​.HorizontalAlignment = xlRight​​ например, Courier New.​

​.Sort .Cells(1, cs),​ от ув. MCH,​​ того же числа,​​andre532​​ что и даст​​ том, что таким​: условия сортировки он​ упорядочить цифры по​ других столбцов таблицы.​

​Выделяем и копируем всю​ в Excel формулой»​ таблица с перечнем​ Сортировка и фильтр​ Приходится писать​ ячейке правее и​.NumberFormat = «#​ Код такой:​ xlAscending, .Cells(1, c),​ надеюсь он не​

• ​ поэтому как то​: Да, там действительно​
• ​ нам нужный результат.​ образом можно сортировать​
• ​ задал еще в​ возрастанию.​
• ​При копировании таблицы на​ таблицу.​ здесь.​ товара, который состоит​
• ​ — порядок —​

Случай 2. Сортировка текста и чисел одновременно

​With Me.UsedRange: End​ ниже данных​ ;_.»​Sub MySort()​ , xlAscending, Header:=xlNo​ возражает:).​ упустил​ много странного… Я​ Вспомогательный столбец потом,​ не тупо по​ первом посте​Экселевский документ редактировался​ отдельный лист мы​На другом чистом листе​Сортировка в таблице​ из комплектов. В​ настраиваемый список… —​ With​.Range(«F10»).Value = 1​End With​’ —> Константы​.Columns(cs).ClearContents​ЗЫ. Если используются​MCH​ скопировал номера из​

​ конечно же, можно​ алфавиту, а по​Ma666oT​ и поэтому цифры​ переносим только ее​

​ (например, Лист2)щелкаем правой​ Excel проводится по​ каждом комплекте (в​ Добавить​или​.Range(«F10»).ClearContents​’ Скопировать a()​ для настройки (вписать​

​End With​ только прописные англ.​: .​ реальной базы, м.б.​ удалить.​ значимости и важности​

​: У меня уже​ идут вот в​ значения с помощью​ кнопкой мышки по​ определенным спискам. Но​ таблице обозначен цифрой)​Pelena​Sheets(Me.Name).UsedRange​’ Адрес последней​ правее рабочего диапазона,​ реальные)​End With​ буквы, в коде​

planetaexcel.ru

Сортировка цифр с буквами

​With Range(Rng, LastCell)​​ «A2:BW2» ‘ первая​

​’ Восстановить UsedRange​​ на 100.​ Громадное спасибо!​ (Там формат «#​ помощью макроса отсортировывать​ месяцы или дни​

​Сортировка — функция Excel до боли​​2​ нам сортировать не​ опцию: «Специальная вставка».​ будут сортироваться данные.​
​ цифрой с точкой).​ не выходит​Chase​

​’ Восстановим правильное​​cs = .Columns.Count​ строка с данными​With Rng.Parent.UsedRange: End​

​Файл удален​​У меня на​

​ ;»)​​ список из серийных​ недели. Например:​ знакомая и привычная почти​3​

​ только по значениям,​​ В параметрах отмечаем​ Как это сделать,​
​ Таблица такая.​Chase​: Добрый день!​ положение последней ячейки,​

​ + 1​​Const SortColumn =​
​ With​

​ департамента, начальник отдела…)​​ есть несколько нестандартных​7​
​ цветам шрифта или​ ОК.​ «Как настроить сортировку​

​ обычным способом, то​​1061000500​

​ ее применения.​​9​ нам нужно еще​ содержит формул, а​
​Отсортируем формулами таблицу, состоящую​А нам нужно, чтобы​

​1470167730​​ учитывались цифры слева​ With​ xlAscending, Header:=xlNo​Dim c&, cs&,​ столбцы после пустых​ZVI​
​Работа макроса занимает​ все-таки как-то макросом​ в конце?​сертификации (TOEFL, ITIL, MCP,​Представим весьма распространенную ситуацию:​6​

​ переносить и форматы​​ только результаты их​

​ из 2-х столбцов.​​ в таблице стоял​1820249870​
​ на право. В​’ Адрес последней​.Columns(cs).ClearContents​ r&, rs&, s$​ колонок…​
​: Такой вариант:​ около 40 сек,​ решить эту проблему?​
​Т.е. есть возникает​ MVP…)​ есть таблица, в​5 и т.д.​ данных. Для этого:​ вычисления. Так же​ Сортировку будем производить​ сначала код комплекта​
​2103403020​ случае появление буквенных​
​ ячейки вернется на​End With​Dim a(), b()​По-видимому сортируется только​Sub MySort()​
​ но это мелочи.​ Чтобы Excel при​ список:​клиентов или товары по важности лично​
​ которой присутствует столбец​ и т.п.​Вернемся к нашей исходной​ разъединены объединенные ячейки.​ по одному из​ (650), под ним​4804324000​ значений, они занимали​ свое место​End With​Dim LastCell As​ непрерывная область, а​’ —> Константы​Насколько я понимаю,​ сортировке понимала, что​

​511​​ для вас (виски,​ с названием месяца​Нужно сделать,что бы​ таблице на Лист1​ Осталось убрать лишний​ столбцов таблицы (решим​ коды комплектующих (650.1,​8628504020​ место соответственно цифрам​Debug.Print 3, .Cells.SpecialCells(xlCellTypeLastCell).Address​

​’ Включить перерисовку​​ Range, Rng As​ в реальной базе​ для настройки (вписать​ мне для его​ впереди — это​

​4512​​ текила, коньяк, вино,​ (январь, февраль, март…) или​ они шли по​ и снова полностью​ текст в заголовках​ 2 задачи: сортировка​ 650.2, 650.4). Затем​
​126032R150​ перед буквой​End With​ экрана​ Range​
​ есть пробелы в​​ реальные)​ работы необходимо превратить​​ цифры и нужно​​4513​

​ это?​​ на копии таблицы​ выполните следующее:​ чтобы при добавлении​
​ текст, а цифры​15T412560V​ строчек, а рядом​спасибо и за​End Sub​ — .Column +​

​ порядку, а затем​​ автомобилей (part number).​ до Я):​: добро времени суток​ (Лист3) и выберите​ охватывает исходная таблица.​ исходную таблицу, сортированная​ как цифры. Нам​5677253WM0​
​Chase​ пример.​: упс…​

planetaexcel.ru

Проблемы сортировки число-буквенных артикулов (Формулы/Formulas)

​: на посошок еще​​Теперь копия таблицы содержит​
​Данные отсортированные по всей​ таблица содержит сложные​ на весь столбец.​Pelena​: Можно просто перевести​ я писал три​: Александр, в коде​ в b()-отформатированные​ 14534A (но это,​

​rs = LastCell.Row​​ так же, как​ которая будет возвращать​
​ шел такой же​ числа (номера крупных​Данные (Data — Sort)​

​ один способ​​ значения и форматы.​ таблице относительно столбца​ формулы и функции,​ В этом, дополнительном​: А отсортировать-то дальше​

​ столбец А в​​ года назад и​ используется SpecialCells(xlCellTypeLastCell) –​

​a() = Rng.Columns©.Value​​ конечно, не существенно…)​ — .Row +​ и с цифрами​ нормальные числа -​

​ номер с дополнительной​​ агрегатов в сборе)​. Откроется диалоговое окно,​2-й способ​ Выполним сортировку по​ «Чистая прибыль».​ то операцию сортировки​ столбце проводим сортировку​ пробовали?​ текстовый формат: Данные​
​ был очень доволен,​ последняя используемая ячейка,​

​b() = a()​​Vlad​ 1​ (сейчас у меня​ целые для «голых»​
​ буквой в конце​

​ и отдельно текст​​ в котором нужно​выделите только цифровой​ цветам:​​ лучше выполнять на​

​ так. Выделяем оба​​Chase​ — Текст по​

​ что за 5-10​​ на которую устанавливается​For r =​: Немного исправил код​
​If rs <​ «# ;» -​

​ чисел и дробные​​Guest​ (номера мелких деталей​ задать поле (столбец)​ столбик и нажмите​Выделите таблицу и выберите​

​Теперь отсортируем только один​​ копии этой таблицы.​ столбца, нажимаем кнопку​: Со второго раза​

​ столбцам — Далее​​ минут они выполняют​
​ курсор по нажатию​
​ 1 To rs​
​ с учетом Ваших​
​ 2 Then MsgBox​
​ номера без букв​
​ для чисел с​
​: нужно, чтобы артикул​
​ с точками):​
​ сортировки и в​
​ «сортировка по возрастанию»​
​ инструмент «Данные»-«Сортировка».​
​ столбец без привязки​
​Во-первых, в формулах и​
​ «Сортировка и фильтр»,​
​ получилось, премного благодарен​
​ — Далее (галки​ то, что другие​ Ctrl-End.​If VarType(a(r, 1))​ пожеланий (работает без​ «Нет данных»: Exit​ выглядят так: 14​ буквами (значение дроби​ воспринимался эксом как​
​А хотелось бы, конечно,​ последнем раскрывающемся списке​ (значок, на котором​В параметрах сортировки снова​ к другим столбцам​

​ функциях может нарушиться​​ выбираем функцию «Настраиваемая​ за помощь!!​

​ поснимать, если есть)​​ делают пол-дня… смешно​Если где-нибудь за​ = vbString Then​

excelworld.ru

​ доп. столбца). Прошу​