Как дополнить IP-адрес нулями в Excel?
Получив лист, содержащий IP-адреса с двумя цифрами в некоторых сегментах, вы можете захотеть дополнить их нулями так, чтобы каждый сегмент состоял из трёх цифр, как показано на скриншоте ниже. В этой статье я расскажу о нескольких способах быстро дополнить IP-адреса нулями в Excel.
Дополнение IP-адреса нулями с помощью формулы
Дополнение IP-адреса нулями с помощью пользовательской функции
Дополнение IP-адреса нулями с помощью формулы
Вот длинная формула, которая поможет быстро дополнить IP-адрес ведущими нулями.
Выберите пустую ячейку и введите эту формулу:
=TEXT(LEFT(A1,FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND(".",A1)+1,FIND(«~»,SUBSTITUTE(A1,".",«~»,2))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND(«~»,SUBSTITUTE(A1,".",«~»,2))+1,FIND(«~»,SUBSTITUTE(A1,".",«~»,3))-FIND(".",A1)-1),"000.")&TEXT(MID(A1,FIND(«~»,SUBSTITUTE(A1,".",«~»,3))+1,LEN(A1)-FIND(".",A1)-1),"000")
A1 — это ячейка с исходным IP-адресом. Нажмите клавишу Enter, а затем перетащите маркер заполнения вниз до ячеек, к которым нужно применить эту формулу. См. скриншот:
 |
 |
 |
Дополнение IP-адреса нулями с помощью пользовательской функции
Если вы знакомы с кодом VBA, вот фрагмент, который поможет дополнить IP-адреса нулями.
1. Нажмите комбинацию клавиш Alt + F11, чтобы открыть окно Microsoft Visual Basic для приложений, затем выберите в меню Вставка > Модуль, чтобы создать новый модуль. См. скриншот:
2. В открывшемся окне Модуль вставьте приведённый ниже код, сохраните его и закройте окно редактора VBA. См. скриншот:
VBA: Дополнение IP-адреса нулями
Function IP(Txt As String) As String
'UpdatebyExtendoffice20170725
Dim xList As Variant
Dim I As Long
xList = Split(Txt, ".")
For I = LBound(xList) To UBound(xList)
xList(I) = Format(xList(I), "000")
Next
IP = Join(xList, ".")
End Function
3. Перейдите в пустую ячейку, куда хотите поместить результат вычисления, введите формулу =IP(A1), нажмите клавишу Enter и перетащите маркер заполнения вниз до нужных ячеек. См. скриншот:
 |  |  |
См. также
- Как извлечь строку из IP-адреса в Excel?
- Как добавить один и тот же адрес электронной почты в список имен Excel?
Лучшие инструменты повышения продуктивности в Office
Раскройте весь потенциал Excel с помощью Kutools для Excel и ощутите эффективность как никогда раньше.Kutools для Excel предлагает более 300 расширенных функций для повышения продуктивности и Экономия времени.Нажмите здесь, чтобы получить нужную Вам функцию…
Office Tab добавляет в Office вкладки и значительно упрощает Вашу работу
- Включите редактирование и чтение во вкладках в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Открывайте и создавайте несколько документов во вкладках одного окна — вместо того чтобы использовать отдельные окна.
- Повышает вашу продуктивность на 50 % и экономит сотни кликов мышью каждый день!
Все надстройки Kutools — один установщик
Kutools for Office — набор надстроек для Excel, Word, Outlook и PowerPoint, а также Office Tab Pro, идеально подходящий командам, работающим с разными приложениями Office.
- Единый комплект— надстройки для Excel, Word, Outlook и PowerPoint + Office Tab Pro
- Один установщик, одна лицензия— настройка занимает считанные минуты (готово для MSI)
- Лучше работать вместе— оптимизированная продуктивность во всех приложениях Office
- 30-дневная полнофункциональная пробная версия— без регистрации и кредитной карты
- Лучшее соотношение цены и качества— экономия по сравнению с покупкой отдельных надстроек