Het toevoegen van nullen te ZIP Codes

Wanneer u ZIP Codes importeren uit een tekstbestand in een Excel-werkmap, is het niet ongewoon voor Excel om de waarden te vertalen als getallen in plaats van als ZIP Codes. Dit resulteert in nullen worden geschrapt uit het ZIP-Codes, wat uiteraard problemen later met behulp van de gegevens voor het beoogde doel kunnen leiden.

Eén oplossing is natuurlijk om gewoon de weergave-indeling gebruikt voor postcode cellen. (Excel biedt een speciaal formaat voor ZIP-codes, die beschikbaar zijn via het tabblad Getal van het dialoogvenster Cellen opmaken.) Dit kan werken voor het display, maar de onderliggende data ontbreekt nog de leidende nullen.

Als u wilt dat de onderliggende gegevens om daadwerkelijk onder de nullen, is het het beste om een ​​macro die gaat door en voegt nullen om de informatie in een cel te gebruiken. De volgende macro doet precies dat:

Sub MakeZIPText ()
Dim ThisCell als Waaier

Application.ScreenUpdating = False
'Zorg ervoor dat formaat is tekst
Selection.NumberFormat = "@"
Voor Elke ThisCell In Selection
'Strip de toonaangevende apostrof, indien van toepassing
Als Left (ThisCell, 1) = "" "Dan
ThisCell = Mid (ThisCell, 2, 99)
End If
'Het is een 5-cijferige postcode
Als Len (ThisCell) <= 5 Toen
ThisCell = "'" & Right ("00000" & ThisCell, 5)
Anders
ThisCell = "'" & Right ("00000" & ThisCell, 10)
End If
Volgende ThisCell
Application.ScreenUpdating = True
End Sub

Om de macro te gebruiken, selecteert u gewoon het bereik van cellen met de ZIP-Codes, voer de macro. De macro feite verandert de celinhoud-niet langer de cellen bevatten numerieke waarden (de oorzaak van het oorspronkelijke probleem), maar ze zullen tekstwaarden bevatten. Hierdoor kan de leidende nullen aan het begin van de post Codes.

ExcelTips is uw bron voor kosteneffectieve Microsoft Excel training. Deze tip (9663) is van toepassing op Microsoft Excel 2007, 2010 en 2013. U kunt een versie van deze tip voor de oudere menu-interface van Excel vindt u hier: Het toevoegen van nullen aan postcodes.