Перейти к основному содержанию

Как быстро отсортировать IP-адрес от меньшего к большему в Excel?

Как правило, мы используем функцию сортировки для сортировки строки в Excel. Но если есть некоторые IP-адреса, необходимые для сортировки, порядок сортировки может быть неправильным, если использовать функцию сортировки напрямую, как показано ниже. Теперь у меня есть несколько способов быстро и правильно сортировать IP-адреса в Excel.

Неправильная сортировка по функции сортировки Правильная сортировка
сортировка документов по IP 1 сортировка документов по IP 2

Сортировать IP-адрес по формуле

Сортировка IP-адреса по VBA

Сортировка IP-адреса по тексту в столбцы


Сортировать IP-адрес по формуле

Используйте формулу для заполнения IP-адреса и выполните сортировку.

1. Выберите ячейку рядом с IP-адресом и введите эту формулу.

=TEXT(LEFT(A1,FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND( ".",A1,1)+1,FIND(".",A1,FIND(".",A1,1)+1)-FIND(".",A1,1)-1),"000") & "." & TEXT(MID(A1,FIND(".",A1,FIND(".",A1,1)+1)+1,FIND(".",A1, FIND(".",A1,FIND(".",A1,1)+1)+1)-FIND(".",A1,FIND(".",A1,1)+1)-1), "000") & "." & TEXT(RIGHT(A1,LEN(A1)-FIND(".",A1,FIND(".",A1,FIND( ".",A1,1)+1)+1)),"000")

нажмите Enter и перетащите маркер заполнения над ячейками, чтобы применить эту формулу.
сортировка документов по IP 3

2. Скопируйте результаты формулы и вставьте их как значение в следующий столбец. Смотрите скриншот:

сортировка документов по IP 4
сортировка документов по IP 5

3. Не снимая выделения с вставленного значения, нажмите Данные > Сортировка от А до Я.
сортировка документов по IP 6

4. в Сортировка товаров диалог, держать Расширить выбор проверено.
сортировка документов по IP 7

5. щелчок Сортировать. Теперь IP-адреса отсортированы по возрастанию.
сортировка документов по IP 2

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


Сортировка IP-адреса по VBA

Вот код VBA, который также может вам помочь.

1. Нажмите Alt + F11 ключи для включения Microsoft Visual Basic для приложений окно.

2. Нажмите Вставить > Модули, скопируйте и вставьте код в пустой скрипт.

VBA: заполнить IP-адрес

Sub FormatIP()
'UpdatbyExtendoffice20171215
    Dim xReg As New RegExp
    Dim xMatches As MatchCollection
    Dim xMatch As Match
    Dim xRg As Range
    Dim xCell As Range
    Dim I As Long
    Dim xArr() As String
    On Error Resume Next
    Set xRg = Application.InputBox("Select cells:", "KuTools For Excel", Selection.Address, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    With xReg
        .Global = True
        .Pattern = "\d{1,3}\.+\d{1,3}\.+\d{1,3}\.+\d{1,3}"
        For Each xCell In xRg
            Set xMatches = .Execute(xCell.Value)
            If xMatches.Count = 0 Then GoTo xBreak
            For Each xMatch In xMatches
                xArr = Split(xMatch, ".")
                For I = 0 To UBound(xArr)
                    xArr(I) = Right("000" & xArr(I), 3)
                    If I <> UBound(xArr) Then
                        xArr(I) = xArr(I) & "."
                    End If
                Next
            Next
            xCell.Value = Join(xArr, "")
xBreak:
        Next
    End With
End Sub

сортировка документов по IP 8

3. Затем нажмите Инструменты > Справка, и проверьте Регулярные выражения Microsoft VBScript 5.5 в всплывающем диалоговом окне.

сортировка документов по IP 9
сортировка документов по IP 10

4. Нажмите OK и нажмите F5 появится диалоговое окно с напоминанием о выборе диапазона для работы.
сортировка документов по IP 11

5. Нажмите OK. Затем IP-адреса были заполнены нулями.

6. Выберите IP-адреса и нажмите Данные > Сортировка от А до Я чтобы отсортировать их.


Сортировка IP-адреса по тексту в столбцы

На самом деле, функция Text to Columns может оказать вам услугу и в Excel.

1. Выберите используемые ячейки и щелкните Данные > Текст в столбцы. Смотрите скриншот:
сортировка документов по IP 12

2. в Мастер преобразования текста в столбцы диалог, сделайте как показано ниже:

Проверьте разграниченныйи нажмите Следующая;

Проверьте Другие контрактные услуги и введите . в текстовое поле и щелкните Следующая;

Выберите ячейку рядом с IP-адресом, чтобы разместить результат. Нажмите Завершить.

сортировка документов по IP 13
сортировка документов по IP 14
сортировка документов по IP 15

3. Выберите все ячейки, содержащие IP-адреса и разделенные ячейки, и нажмите Данные > Сортировать.
сортировка документов по IP 16

4. в Сортировать диалоговое окно, нажав Добавить уровень для сортировки данных из столбца B в E (разделенные ячейки). Смотрите скриншот:
сортировка документов по IP 17

5. Нажмите OK. Теперь столбцы отсортированы.
сортировка документов по IP 18


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

🤖 Kutools AI Помощник: Революционный анализ данных на основе: Интеллектуальное исполнение   |  Генерировать код  |  Создание пользовательских формул  |  Анализ данных и создание диаграмм  |  Вызов функций Kutools...
Популярные опции: Найдите, выделите или определите дубликаты   |  Удалить пустые строки   |  Объедините столбцы или ячейки без потери данных   |   Раунд без формулы ...
Супер поиск: Множественный критерий VLookup    VLookup с несколькими значениями  |   VLookup по нескольким листам   |   Нечеткий поиск ....
Расширенный раскрывающийся список: Быстрое создание раскрывающегося списка   |  Зависимый раскрывающийся список   |  Выпадающий список с множественным выбором ....
Менеджер столбцов: Добавить определенное количество столбцов  |  Переместить столбцы  |  Переключить статус видимости скрытых столбцов  |  Сравнить диапазоны и столбцы ...
Рекомендуемые функции: Сетка Фокус   |  Просмотр дизайна   |   Большой Формулный Бар    Менеджер книг и листов   |  Библиотека ресурсов (Авто текст)   |  Выбор даты   |  Комбинировать листы   |  Шифровать/дешифровать ячейки    Отправлять электронные письма по списку   |  Суперфильтр   |   Специальный фильтр (фильтровать жирным шрифтом/курсивом/зачеркиванием...) ...
15 лучших наборов инструментов12 Текст Инструменты (Добавить текст, Удалить символы, ...)   |   50+ График Тип (Диаграмма Ганта, ...)   |   40+ Практических Формулы (Рассчитать возраст по дню рождения, ...)   |   19 Вносимые Инструменты (Вставить QR-код, Вставить изображение из пути, ...)   |   12 Конверсия Инструменты (Числа в слова, Конверсия валюты, ...)   |   7 Слияние и разделение Инструменты (Расширенные ряды комбинирования, Разделить клетки, ...)   |   ... и более

Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени.  Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...

Описание


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

  • Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
  • Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
  • Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
Comments (8)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Traducido al español:
=TEXTO(IZQUIERDA(A1,ENCONTRAR(".",A1,1)-1),"000") & "." & TEXTO(EXTRAE(A1,ENCONTRAR( ".",A1,1)+1,ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)-ENCONTRAR(".",A1,1)-1),"000") & "." & TEXTO(EXTRAE(A1,ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)+1,ENCONTRAR(".",A1, ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)+1)-ENCONTRAR(".",A1,ENCONTRAR(".",A1,1)+1)-1), "000") & "." & TEXTO(DERECHA(A1,LARGO(A1)-ENCONTRAR(".",A1,ENCONTRAR(".",A1,ENCONTRAR( ".",A1,1)+1)+1)),"000")
This comment was minimized by the moderator on the site
Thanks for your help on translating the formula.
This comment was minimized by the moderator on the site
This is great! Very much appreciated. It would be nice to add to the VB code to reverse (put back) the IP's in the original format (without the extra leading 0's) after having sorted them. :) I would be very interested in that where you can run this script, sort results, then revert back to original format.
This comment was minimized by the moderator on the site
thank you, very useful !
This comment was minimized by the moderator on the site
la formule traduite en Francais :
=TEXTE(GAUCHE(I6;TROUVE(".";I6;1)-1);"000") & "." & TEXTE(STXT(I6;TROUVE( ".";I6;1)+1;TROUVE(".";I6;TROUVE(".";I6;1)+1)-TROUVE(".";I6;1)-1);"000") & "." & TEXTE(STXT(I6;TROUVE(".";I6;TROUVE(".";I6;1)+1)+1;TROUVE(".";I6; TROUVE(".";I6;TROUVE(".";I6;1)+1)+1)-TROUVE(".";I6;TROUVE(".";I6;1)+1)-1); "000") & "." & TEXTE(DROITE(I6;NBCAR(I6)-TROUVE(".";I6;TROUVE(".";I6;TROUVE( ".";I6;1)+1)+1));"000")
This comment was minimized by the moderator on the site
Merci pour la traduction !
This comment was minimized by the moderator on the site
Why does the formula not work for the last octet? It adds zeros to the 3rd octet but not the last? So frustrating.
This comment was minimized by the moderator on the site
I have tested the formula before I post it, it can work for the last octer. Have you checked the formula you pasted is correct?
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations