Как извлечь почтовый индекс из списка адресов в Excel?

В Excel есть список полных адресов, включая почтовые индексы ваших клиентов, и теперь вы хотите извлечь только почтовые индексы из этих адресов. Есть ли у вас лучший способ, чем извлекать их по одному? Здесь я расскажу вам о быстрых способах массового извлечения нескольких почтовых индексов за раз в Excel.

Извлечь почтовый индекс с формулой в Excel

Извлечь почтовый индекс с помощью VBA в Excel

Извлечь почтовый индекс с формулой в Excel

В большинстве случаев почтовый индекс состоит не более чем из 8 символов.

Выберите пустую ячейку и введите эту формулу =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 - это ячейка, из которой вы хотите извлечь почтовый индекс), нажмите Enter и заполните нужный диапазон, перетащив маркер заполнения. Теперь вы можете видеть, что из списка извлечены только почтовые индексы.

Извлечь почтовый индекс с помощью VBA в Excel

Существует VBA, который может быстро извлекать почтовые индексы из полных адресов в Excel.

1. Выберите ячейку столбца, который хотите выделить, и нажмите Alt + F11, чтобы открыть Microsoft Visual Basic для приложений окно.

2. Во всплывающем окне щелкните Вставить > Модули, а затем вставьте в модуль следующий код VBA.

VBA: извлечение только почтовых индексов

Sub ExtractPostCode()
'Updateby20140512
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each Rng In WorkRng
    xValue = Split(Rng.Value, " ")
    For i = LBound(xValue) To UBound(xValue)
        If xValue(i) Like "[A-Z]*#*" Then
            Rng.Value = xValue(i) & " " & xValue(i + 1)
            Exit For
        End If
    Next
Next
End Sub

3. Затем нажмите Run и выберите диапазон, из которого вы хотите извлечь только почтовые индексы. Смотрите скриншот:

4. Нажмите OK, вы можете увидеть, что в диапазоне зарезервированы только почтовые индексы.

Примечание:

(1) Выполнение вышеуказанного VBA изменит ваши исходные данные, вам лучше сначала скопировать и сохранить их.

(2) Этот макрос VBA не может извлекать почтовые индексы, первая часть которых содержит только буквы, например «1513 4th St NW, Washington, DC 20001».

Относительные статьи:

• Извлечь инициалы из имен в Excel
• Извлечь десятичное значение из строки в Excel