Sut i dynnu cod post o'r rhestr cyfeiriadau yn Excel?
Mae rhestr o gyfeiriadau llawn gan gynnwys codau post eich cwsmeriaid yn Excel, ac nawr rydych chi am dynnu'r codau zip o'r cyfeiriadau hyn yn unig, a oes gennych chi unrhyw ffordd well na'u tynnu fesul un? Yma, dywedaf wrthych y ffyrdd cyflym o echdynnu codau zip lluosog yn unig ar y tro yn Excel.
Tynnwch y cod post gyda fformiwla yn Excel
Tynnwch y cod post gyda VBA yn Excel
Tynnwch y cod post gyda fformiwla yn Excel
Yn y rhan fwyaf o achosion, y cod post mewn dim mwy nag 8 nod.
Dewiswch gell wag a theipiwch y fformiwla hon =MID(A1,FIND("zzz",SUBSTITUTE(A1," ","zzz",SUMPRODUCT(1*((MID(A1,ROW(INDIRECT("1:"&LEN(A1))),1))=" "))-1))+1,LEN(A1)) (A1 yw'r gell rydych chi am dynnu cod post ohoni), pwyswch Rhowch botwm a llenwch yr ystod rydych chi ei eisiau trwy lusgo'r handlen llenwi. Nawr gallwch weld dim ond codau post sy'n cael eu tynnu o'r rhestr.
Tynnwch y cod post gyda VBA yn Excel
Mae yna VBA sy'n gallu tynnu codau post o gyfeiriadau llawn yn gyflym yn Excel.
1. Dewiswch gell o'r golofn rydych chi am ei dewis a'i phwyso Alt + F11 i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yn y ffenestr naid, cliciwch Mewnosod > Modiwlau, yna gludwch y cod VBA canlynol i'r modiwl.
VBA: Tynnu codau zip yn unig
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. Yna cliciwch Run botwm a dewis yr ystod rydych chi am dynnu codau zip ohoni yn unig. Gweler y screenshot:
4. Cliciwch OK, gallwch weld yr unig godau zip sydd wedi'u cadw yn yr ystod.
Nodyn:
(1) Bydd rhedeg y VBA uchod yn newid eich data gwreiddiol, byddai'n well ichi eu copïo a'u cadw yn gyntaf.
(2) Nid yw'r macro VBA hwn yn gallu echdynnu'r codau zip y mae eu rhan gyntaf yn cynnwys llythrennau yn unig, megis “1513 4th St NW, Washington, DC 20001”.
Erthyglau Perthynas:
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools for Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed o'r blaen. Kutools for Excel Yn cynnig dros 300 o nodweddion uwch i hybu cynhyrchiant ac arbed amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Office Tab Yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer
- Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
- Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
- Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
