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

물론 한 가지 해결책은 우편 번호 셀에 사용되는 표시 형식을 변경하는 것입니다. (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 교육을위한 소스입니다.

이 팁 (9663)은 Office 365의 Microsoft Excel 2007, 2010, 2013, 2016, 2019 및 Excel에 적용됩니다. 여기에서 Excel의 이전 메뉴 인터페이스에 대한이 팁 버전을 찾을 수 있습니다.

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