Ինչպե՞ս 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 Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: