Когда вы импортируете почтовые индексы из текстового файла в книгу Excel, 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.

Этот совет (9663) применим к Microsoft Excel 2007, 2010, 2013, 2016, 2019 и Excel в Office 365. Вы можете найти версию этого совета для старого интерфейса меню Excel здесь:

link: / excel-Adding_Leading_Zeroes_to_ZIP_Codes [Добавление ведущих нулей к почтовым индексам].