텍스트 파일에서 Excel 통합 문서로 우편 번호를 가져올 때 Excel에서 값을 우편 번호가 아닌 숫자로 변환하는 것은 드문 일이 아닙니다. 이로 인해 우편 번호에서 선행 0이 삭제되어 나중에 의도 한 목적으로 데이터를 사용하는 데 분명히 문제가 발생할 수 있습니다.

물론 한 가지 해결책은 우편 번호 셀에 사용되는 표시 형식을 변경하는 것입니다. 이것은 디스플레이에서 작동 할 수 있지만 기본 데이터에는 여전히 선행 0이 누락되어 있습니다. 더 나은 해결책은 셀의 정보에 선행 0을 추가하는 매크로를 사용하는 것입니다.

다음 매크로는이를 수행합니다.

Sub MakeZIPText()

Dim ThisCell As Range     Application.ScreenUpdating = False     'Make sure format is text     Selection.NumberFormat = "@"

For Each ThisCell In Selection         'Strip the leading apostrophe, if any         If Left(ThisCell, 1) = "'" Then             ThisCell = Mid(ThisCell, 2, 99)

End If         'It's a 5-digit ZIP Code         If Len(ThisCell) <= 5 Then             ThisCell = "'" & Right("00000" & ThisCell, 5)

Else             ThisCell = "'" & Right("00000" & ThisCell, 10)

End If     Next ThisCell     Application.ScreenUpdating = True End Sub

매크로를 사용하려면 우편 번호가 포함 된 셀 범위를 선택한 다음 매크로를 실행하면됩니다. 매크로는 실제로 셀 내용을 변경합니다. 더 이상 셀에 숫자 값 (원래 문제의 원인)이 포함되지 않지만 텍스트 값이 포함됩니다. 이렇게하면 우편 번호 시작 부분에 선행 0이 표시됩니다.

_ 참고 : _

이 페이지 (또는 ExcelTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / excelribbon-ExcelTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_ExcelTips_는 비용 효율적인 Microsoft Excel 교육을위한 소스입니다.

이 팁 (2598)은 Microsoft Excel 97, 2000, 2002 및 2003에 적용됩니다. 여기에서 Excel (Excel 2007 이상)의 리본 인터페이스에 대한이 팁의 버전을 찾을 수 있습니다.

link : / excelribbon-Adding_Leading_Zeroes_to_ZIP_Codes [우편 번호에 선행 0 추가].