Når du importerer postnumre fra en tekstfil ind i en Excel-projektmappe, er det ikke ualmindeligt, at Excel til at oversætte de værdier som tal i stedet for som postnumre. Dette resulterer i ledende nuller bliver droppet fra postnumre, som naturligvis kan give problemer senere ved hjælp af data for det tiltænkte formål.
En løsning, selvfølgelig, er simpelthen at ændre displayet, der bruges til postnummer celler. (Excel indeholder et specielt format til postnumre, tilgængelig via fanen i dialogboksen Formater celler kasse nummer.) Dette kan arbejde for skærmen, men den underliggende data mangler stadig de førende nuller.
Hvis du vil have de underliggende data til rent faktisk at omfatte de førende nuller, er det bedst at bruge en makro, der går igennem og tilføjer foranstillede nuller til oplysningerne i en celle. Følgende makro gør netop det:
Sub MakeZIPText ()
Dim ThisCell Som Range
Application.ScreenUpdating = False
»Sørg format er tekst
Selection.NumberFormat = "@"
For hvert valg ThisCell I
'Strip førende apostrof eventuelle
Hvis venstre (ThisCell, 1) = "" "Så
ThisCell = Mid (ThisCell, 2, 99)
End hvis
»Det er en 5-cifret postnummer
Hvis Len (ThisCell) <= 5 Så
ThisCell = "" "& Right (" 00000 "& ThisCell, 5)
Andet
ThisCell = "" "& Right (" 00000 "& ThisCell, 10)
End hvis
Næste ThisCell
Application.ScreenUpdating = True
End Sub
Hvis du vil bruge makroen, skal du blot vælge det celleområde, der indeholder postnumre, derefter køre makroen. Makroen faktisk ændrer celleindholdet-ikke længere vil cellerne indeholder numeriske værdier (årsagen til de oprindelige problem), men de vil indeholde tekst værdier. Dette gør det muligt førende nuller skal vises i begyndelsen af postnumre.
ExcelTips er din kilde til omkostningseffektiv Microsoft Excel træning. Dette tip (9663) gælder for Microsoft Excel 2007, 2010 og 2013. Du kan finde en version af dette tip for den ældre menu interface Excel her: Tilføjelse foranstillede nuller til postnumre.