วิธีแยกที่อยู่อีเมลในสเปรดชีต Excel

รายการที่อยู่อีเมลของ Excel ไม่ควรมีอะไรนอกจากที่อยู่ตัวเอง แต่ถ้าสเปรดชีตได้รับข้อมูลจากรูปแบบภายนอกคอลัมน์อาจมีข้อความที่ไม่เกี่ยวข้อง เซลล์หนึ่งอาจอ่าน "ที่อยู่ของฉันคือ [email protected]" และอีกเซลล์หนึ่งอาจพูดว่า "ติดต่อที่ [email protected]" คุณสามารถแยกที่อยู่อีเมลลงในคอลัมน์ใหม่เพื่อให้ Excel สามารถใช้ที่อยู่เหล่านี้สำหรับแอปพลิเคชันเช่นจดหมายเวียน วิธีหนึ่งในการทำเช่นนี้คือการเขียนสคริปต์ Visual Basic

เขียนฟังก์ชั่น

1

กดปุ่ม "Alt" และ "F11" เพื่อเปิดตัวแก้ไข Visual Basic ของ Excel

2

พิมพ์รหัสต่อไปนี้เพื่อเปิดฟังก์ชั่นใหม่:

ฟังก์ชัน ExtractCellEmail (เซลล์เป็นช่วง) เป็นสตริง

3

เพิ่มรหัสต่อไปนี้เพื่อแยกข้อความทั้งหมดจากเซลล์ที่กำหนด:

เนื้อหา Dim เป็นเนื้อหา String = cell.Text

4

เพิ่มรหัสต่อไปนี้เพื่อระบุตำแหน่งของสัญลักษณ์ "@" ในข้อความ:

AtPosition = InStr (1, เนื้อหา, "@")

5

เพิ่มสองบรรทัดต่อไปนี้เพื่อระบุตำแหน่งเริ่มต้นและจุดสิ้นสุดของที่อยู่อีเมลโดยใช้ตำแหน่งของสัญลักษณ์ "@":

AddressStartingPosition = InStrRev (เนื้อหา, "", AtPosition) AddressEndingPosition = InStr (AtPosition เนื้อหา "")

6

เพิ่มบรรทัดต่อไปนี้เพื่อแยกที่อยู่อีเมลโดยใช้ตำแหน่งเริ่มต้นและตำแหน่งสุดท้าย:

emailAddress = Trim (Mid (เนื้อหา, AddressStartingPosition, AddressEndingPosition - AddressStartingPosition))

7

เพิ่มบรรทัดต่อไปนี้เพื่อพิมพ์ที่อยู่ที่แยกออกมาลงในเซลล์ที่อยู่ติดกัน:

ActiveCell.Offset (0, 1) .Value = emailAddress

8

พิมพ์รหัสต่อไปนี้เพื่อปิดฟังก์ชั่น:

ฟังก์ชั่นสิ้นสุด

ใช้ฟังก์ชันกับช่วงเซลล์

1

พิมพ์รหัสต่อไปนี้หลังจากฟังก์ชั่นเพื่อเปิดแมโครใหม่:

ย่อย mcrExtractColumnAddresses ()

2

พิมพ์รหัสต่อไปนี้เพื่อเปิดลูป:

ทำ

3

พิมพ์รหัสต่อไปนี้หลังจากวนลูปเพื่อเรียกใช้ฟังก์ชันที่คุณเขียน:

Call ExtractEmails (ActiveCell)

4

พิมพ์รหัสต่อไปนี้หลังบรรทัดก่อนหน้าเพื่อเลือกเซลล์ถัดไปในคอลัมน์:

ActiveCell.Offset (1, 0) เลือก

5

เพิ่มบรรทัดต่อไปนี้เพื่อปิดลูป:

วนซ้ำจนกระทั่ง IsEmpty (ActiveCell)

6

เพิ่มรหัสต่อไปนี้เพื่อปิดแมโคร:

ส่วนท้าย

7

สลับไปที่หน้าต่างสเปรดชีต

8

เลือกเซลล์แรกที่มีที่อยู่อีเมลที่คุณต้องการแยก

9

สลับกลับไปยังหน้าต่าง Visual Basic วางเคอร์เซอร์ของเมาส์ในบล็อก mcrExtractColumnAddresses () หากยังไม่มีอยู่

10

กดปุ่ม "F5" เพื่อเรียกใช้แมโครและแยกที่อยู่อีเมล

การเตือน

  • กระบวนการนี้ใช้งานได้ตราบใดที่มีสัญลักษณ์ "@" เท่านั้นที่อยู่ในที่อยู่อีเมล คุณสามารถสันนิษฐานได้ว่าสิ่งนี้จะเป็นจริงสำหรับเซลล์ส่วนใหญ่ แต่ให้พิจารณาเลื่อนดูรายการที่อยู่อีเมลที่แยกออกมาเพื่อตรวจจับข้อผิดพลาดด้วยตนเอง

โพสต์ยอดนิยม