Как да извлека пощенски код от списък с адреси в 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 е клетката, от която искате да извлечете пощенския код), натиснете Въведете и запълнете диапазона, който искате, като плъзнете манипулатора за запълване. Сега можете да видите, че само пощенските кодове са извлечени от списъка.
Извличане на пощенски код с 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. След това кликнете бягане и изберете диапазона, от който искате да извлечете само пощенски кодове. Вижте екранна снимка:
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% и намалява стотици кликвания на мишката за вас всеки ден!