Як витягти поштовий індекс зі списку адрес у 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)) (А1 - клітинка, з якої потрібно отримати поштовий індекс), натисніть Що натомість? Створіть віртуальну версію себе у і заповніть потрібний діапазон, перетягнувши маркер заповнення. Тепер ви можете бачити, що зі списку витягуються лише поштові індекси.
Витяг поштового індексу за допомогою VBA в Excel
Існує VBA, який може швидко витягувати поштові індекси з повних адрес в Excel.
1. Виділіть комірку стовпця, який потрібно виділити, та натисніть Alt + F11, щоб відкрити Microsoft Visual Basic для додатків вікна.
2. У спливаючому вікні натисніть Insert > Модулі, потім вставте наступний код 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 Потім натисніть прогін і виберіть діапазон, з якого ви хочете отримати лише поштові індекси. Дивіться знімок екрана:
4. клацання OK, ви можете бачити, лише поштові індекси зарезервовані в асортименті.
Примітка:
(1) Запуск вищезазначеного VBA призведе до зміни вихідних даних, спершу скопіюйте та збережіть їх.
(2) Цей макрос VBA не може витягти поштові індекси, перша частина яких містить лише літери, наприклад, „1513 4th St NW, Washington, DC 20001“.
Відносні статті:
Найкращі інструменти продуктивності офісу
Покращуйте свої навички Excel за допомогою Kutools для Excel і відчуйте ефективність, як ніколи раніше. Kutools для Excel пропонує понад 300 додаткових функцій для підвищення продуктивності та економії часу. Натисніть тут, щоб отримати функцію, яка вам найбільше потрібна...
Вкладка Office Передає інтерфейс із вкладками в Office і значно полегшує вашу роботу
- Увімкніть редагування та читання на вкладках у Word, Excel, PowerPoint, Publisher, Access, Visio та Project.
- Відкривайте та створюйте кілька документів на нових вкладках того самого вікна, а не в нових вікнах.
- Збільшує вашу продуктивність на 50% та зменшує сотні клацань миші для вас щодня!