วิธีแยกรหัสไปรษณีย์จากรายการที่อยู่ใน 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 Sub3 จากนั้นคลิก วิ่ง และเลือกช่วงที่คุณต้องการแยกรหัสไปรษณีย์เท่านั้น ดูภาพหน้าจอ:
4 คลิก OKคุณจะเห็นเฉพาะรหัสไปรษณีย์ที่สงวนไว้ในช่วง
หมายเหตุ
(1) การเรียกใช้ VBA ข้างต้นจะเปลี่ยนข้อมูลเดิมของคุณคุณควรคัดลอกและบันทึกไว้ก่อน
(2) มาโคร VBA นี้ไม่สามารถแยกรหัสไปรษณีย์ซึ่งส่วนแรกประกอบด้วยตัวอักษรเท่านั้นเช่น“ 1513 4th St NW, Washington, DC 20001”
บทความญาติ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
