Как да подпълня 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 адресът, който използвате, натиснете Въведете клавиш, плъзнете манипулатора за запълване надолу до клетките, необходими на тази формула. виж екранна снимка:
Подложете 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?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!