Hvordan pudes IP-adresse med nul i Excel?
Når du modtager et ark, der indeholder nogle IP-adresser med to cifre i nogle segmenter, vil du muligvis putte IP-adressen med nul til tre cifre i hvert segment som vist nedenstående skærmbillede. I denne artikel introducerer jeg nogle tricks til hurtigt at pude IP-adresse i Excel.
Pad IP-adresse med nul efter formel
Pad IP-adresse med nul ved defineret funktion
Pad IP-adresse med nul efter formel
Her er en lang formel, der kan hjælpe dig med hurtigt at pudse IP-adressen med nul.
Vælg en tom celle, skriv denne formel,
=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 er den IP-adresse, du bruger, tryk på Indtast nøgle, træk fyldhåndtaget ned til de celler, der er nødvendige for denne formel. se skærmbillede:
 |
 |
 |
Pad IP-adresse med nul ved defineret funktion
Hvis du er bekendt med VBA-kode, er her en kode, der også kan hjælpe dig med at padde IP-adresse.
1. Trykke Alt + F11 taster for at aktivere Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Moduler for at oprette et nyt modul. Se skærmbillede:
2. i Moduler script, indsæt nedenstående kode til det, og gem derefter koden, og luk VBA-vinduet. Se skærmbillede:
VBA: Pad IP-adresse
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. Gå til en tom celle, hvor du placerer det beregnede resultat, skriv denne formel = IP (A1), tryk på Enter-tasten, og træk udfyldningsgrebet ned til de celler, du har brug for. Se skærmbillede:
 |
 |
 |
Relative artikler
- Hvordan udpakkes en streng fra IP-adresse i Excel?
- Hvordan tilføjes den samme e-mail-adresse til en liste over navne i Excel?
Bedste kontorproduktivitetsværktøjer
Overlad dine Excel-færdigheder med Kutools til Excel, og oplev effektivitet som aldrig før. Kutools til Excel tilbyder over 300 avancerede funktioner for at øge produktiviteten og spare tid. Klik her for at få den funktion, du har mest brug for...
Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere
- Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
- Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
- Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!
