Как дополнить IP-адрес нулем в Excel?
При получении листа, который содержит некоторые IP-адреса с двумя цифрами в некоторых сегментах, вы можете добавить к 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. в Модули script, вставьте в него код ниже, а затем сохраните код и закройте окно 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), нажмите клавишу ВВОД и перетащите маркер заполнения в нужные ячейки. Смотрите скриншот:
 |
 |
 |
Относительные статьи
- Как извлечь строку из IP-адреса в Excel?
- Как добавить тот же адрес электронной почты в список имен в Excel?
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
