Как извлечь почтовый индекс из списка адресов в 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 Sub3. Затем нажмите Run и выберите диапазон, из которого вы хотите извлечь только почтовые индексы. Смотрите скриншот:
4. Нажмите OK, вы можете увидеть, что в диапазоне зарезервированы только почтовые индексы.
Примечание:
(1) Выполнение вышеуказанного VBA изменит ваши исходные данные, вам лучше сначала скопировать и сохранить их.
(2) Этот макрос VBA не может извлекать почтовые индексы, первая часть которых содержит только буквы, например «1513 4th St NW, Washington, DC 20001».
Относительные статьи:
Лучшие инструменты для офисной работы
Улучшите свои навыки работы с Excel с помощью Kutools for Excel и почувствуйте эффективность, как никогда раньше. Kutools for Excel предлагает более 300 расширенных функций для повышения производительности и экономии времени. Нажмите здесь, чтобы получить функцию, которая вам нужна больше всего...
Вкладка Office: интерфейс с вкладками в Office и упрощение работы
- Включение редактирования и чтения с вкладками в Word, Excel, PowerPoint, Издатель, доступ, Visio и проект.
- Открывайте и создавайте несколько документов на новых вкладках одного окна, а не в новых окнах.
- Повышает вашу продуктивность на 50% и сокращает количество щелчков мышью на сотни каждый день!
