Когда вы импортируете почтовые индексы из текстового файла в книгу Excel, Excel нередко переводит значения как числа, а не как почтовые индексы. Это приводит к тому, что начальные нули удаляются из почтовых индексов, что, очевидно, может вызвать проблемы в дальнейшем при использовании данных по назначению.

Одно из решений, конечно же, — просто изменить формат отображения ячеек почтового индекса. Это может сработать для дисплея, но в базовых данных все еще отсутствуют начальные нули. Лучшее решение — использовать макрос, который добавляет начальные нули к информации в ячейке.

Следующий макрос делает именно это:

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

Чтобы использовать макрос, просто выберите диапазон ячеек, содержащих почтовые индексы, затем запустите макрос. Макрос фактически изменяет содержимое ячейки — ячейки больше не будут содержать числовые значения (причина исходной проблемы), но они будут содержать текстовые значения. Это позволяет первым нулям появляться в начале почтовых индексов.

_Примечание: _

Если вы хотите узнать, как использовать макросы, описанные на этой странице (или на любой другой странице на сайтах 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 [Добавление ведущих нулей к почтовым индексам].