Note: The other languages of the website are Google-translated. Back to English
English English

วิธีแยกที่อยู่อีเมลจากสตริงข้อความอย่างรวดเร็ว?

เมื่อคุณนำเข้าที่อยู่อีเมลบางส่วนจากเว็บไซต์ไปยังแผ่นงาน Excel มักจะมีข้อความที่ไม่เกี่ยวข้อง แต่ตอนนี้คุณแค่ต้องการแยกที่อยู่อีเมลที่บริสุทธิ์ออกจากสตริงข้อความ (ดูภาพหน้าจอต่อไปนี้) คุณจะรับเฉพาะที่อยู่อีเมลจากข้อความเซลล์ได้อย่างไร?

doc-extract-อีเมล 1 -2 doc-extract-อีเมล 2

แยกที่อยู่อีเมลจากสตริงข้อความด้วยสูตร

แยกที่อยู่อีเมลจากสตริงข้อความด้วย User Defined Function

แยกที่อยู่อีเมลจากสตริงข้อความด้วยรหัส VBA

แยกที่อยู่อีเมลจากสตริงข้อความด้วย Kutools for Excel


ลูกศรสีฟ้าฟองขวา แยกที่อยู่อีเมลจากสตริงข้อความด้วยสูตร

ที่นี่ฉันแนะนำคุณเป็นสูตรยาวในการแยกเฉพาะที่อยู่อีเมลจากข้อความใน Excel กรุณาดำเนินการดังนี้:

1. ในเซลล์ B1 ที่อยู่ติดกันให้ป้อนสูตรนี้ = TRIM (ขวา (แทนที่ (ซ้าย (A1, FIND ("", A1 & "", FIND ("@", A1)) - 1), "", REPT ("", LEN (A1))), LEN ( A1))).

doc-extract-อีเมล 3

2. จากนั้นกด เข้าสู่ จากนั้นเลือกเซลล์ B1 แล้วลากจุดจับเติมไปยังช่วงที่คุณต้องการให้มีสูตรนี้ และที่อยู่อีเมลในช่วงถูกแยกออกจากสตริงข้อความ ดูภาพหน้าจอ:

doc-extract-อีเมล 4

หมายเหตุ:

1. เครื่องหมายวรรคตอนหลังที่อยู่อีเมลจะถูกดึงออกมาด้วย

2. ถ้าเซลล์ไม่มีที่อยู่อีเมลสูตรจะแสดงค่าผิดพลาด

3. หากมีที่อยู่อีเมลมากกว่าหนึ่งรายการในเซลล์สูตรจะแยกเฉพาะที่อยู่แรกเท่านั้น


แยกที่อยู่อีเมลหลายรายการจากสตริงข้อความ

Kutools สำหรับ Excel's แยกที่อยู่อีเมล สามารถช่วยให้คุณแยกที่อยู่อีเมลจากสตริงข้อความได้อย่างรวดเร็วและสะดวก คลิกเพื่อดาวน์โหลด Kutools for Excel!

doc แยกอีเมล -1

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!


ลูกศรสีฟ้าฟองขวา แยกที่อยู่อีเมลจากสตริงข้อความด้วย User Defined Function

นอกจากสูตรข้างต้นแล้ว User Defined Function ยังช่วยให้คุณได้รับที่อยู่อีเมลจากสตริงข้อความ

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในหน้าต่างโมดูล

Function ExtractEmailFun(extractStr As String) As String
'Update by extendoffice
Dim CharList As String
On Error Resume Next
CheckStr = "[A-Za-z0-9._-]"
OutStr = ""
Index = 1
Do While True
    Index1 = VBA.InStr(Index, extractStr, "@")
    getStr = ""
    If Index1 > 0 Then
        For p = Index1 - 1 To 1 Step -1
            If Mid(extractStr, p, 1) Like CheckStr Then
                getStr = Mid(extractStr, p, 1) & getStr
            Else
                Exit For
            End If
        Next
        getStr = getStr & "@"
        For p = Index1 + 1 To Len(extractStr)
            If Mid(extractStr, p, 1) Like CheckStr Then
                getStr = getStr & Mid(extractStr, p, 1)
            Else
                Exit For
            End If
        Next
        Index = Index1 + 1
        If OutStr = "" Then
            OutStr = getStr
        Else
            OutStr = OutStr & Chr(10) & getStr
        End If
    Else
        Exit Do
    End If
Loop
ExtractEmailFun = OutStr
End Function

3. จากนั้นบันทึกรหัสและป้อนสูตร = ExtractEmailFun (A1) ในเซลล์ว่างที่อยู่ติดกันดูภาพหน้าจอ:

doc-extract-อีเมล 5

4. จากนั้นกด เข้าสู่ เลือกเซลล์ B1 แล้วลากจุดจับเติมไปยังช่วงที่คุณต้องการสูตร และที่อยู่อีเมลทั้งหมดถูกแยกออกจากข้อความในเซลล์ ดูภาพหน้าจอ:

doc-extract-อีเมล 6

หมายเหตุ:

1. หากเซลล์ไม่มีที่อยู่อีเมลเซลล์จะเปิดเผยเซลล์ว่าง

2. หากมีที่อยู่อีเมลมากกว่าหนึ่งรายการในเซลล์อีเมลทั้งหมดจะถูกแยกออก


ลูกศรสีฟ้าฟองขวา แยกที่อยู่อีเมลจากสตริงข้อความด้วยรหัส VBA

หากคุณรู้สึกว่าสูตรข้างต้นเป็นปัญหาสำหรับคุณรหัส VBA ต่อไปนี้สามารถช่วยคุณแยกที่อยู่อีเมลออกได้ในที่เดียว

1. กด ALT + F11 และจะเปิดไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางมาโครต่อไปนี้ในไฟล์ หน้าต่างโมดูล.

VBA: แยกที่อยู่อีเมลจากสตริงข้อความ

Sub ExtractEmail()
'Update 20130829
Dim WorkRng As Range
Dim arr As Variant
Dim CharList As String
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
arr = WorkRng.Value
CheckStr = "[A-Za-z0-9._-]"
For i = 1 To UBound(arr, 1)
    For j = 1 To UBound(arr, 2)
        extractStr = arr(i, j)
        outStr = ""
        Index = 1
        Do While True
            Index1 = VBA.InStr(Index, extractStr, "@")
            getStr = ""
            If Index1 > 0 Then
                For p = Index1 - 1 To 1 Step -1
                    If Mid(extractStr, p, 1) Like CheckStr Then
                        getStr = Mid(extractStr, p, 1) & getStr
                    Else
                        Exit For
                    End If
                Next
                getStr = getStr & "@"
                For p = Index1 + 1 To Len(extractStr)
                    If Mid(extractStr, p, 1) Like CheckStr Then
                        getStr = getStr & Mid(extractStr, p, 1)
                    Else
                        Exit For
                    End If
                Next
                Index = Index1 + 1
                If outStr = "" Then
                    outStr = getStr
                Else
                    outStr = outStr & Chr(10) & getStr
                End If
            Else
                Exit Do
            End If
        Loop
        arr(i, j) = outStr
    Next
Next
WorkRng.Value = arr
End Sub

3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และคุณควรเลือกช่วงที่คุณต้องการใช้ VBA ในกล่องโต้ตอบที่โผล่ออกมาดูภาพหน้าจอ:

doc-extract-อีเมล 7

4. จากนั้นคลิก OKและที่อยู่อีเมลถูกแยกออกจากสตริงข้อความที่เลือก ดูภาพหน้าจอ:

doc-extract-อีเมล 8 -2 doc-extract-อีเมล 9

หมายเหตุ:

1. หากเซลล์ไม่มีที่อยู่อีเมลเซลล์จะเปิดเผยเซลล์ว่าง

2. อีเมลทั้งหมดจะถูกแยกออกหากมีที่อยู่อีเมลมากกว่าหนึ่งรายการในเซลล์

3. อีเมลที่แยกออกมาจะครอบคลุมข้อมูลเดิมดังนั้นคุณควรสำรองข้อมูลก่อนหากคุณต้องการ


ลูกศรสีฟ้าฟองขวา แยกที่อยู่อีเมลจากสตริงข้อความด้วย Kutools for Excel โดยคลิกเพียงครั้งเดียว

วิธีการข้างต้นดูค่อนข้างซับซ้อนสำหรับผู้เริ่มต้นใช้งาน Excel ของเราที่นี่ฉันขอแนะนำเครื่องมือที่ง่ายและรวดเร็ว - Kutools สำหรับ Excelเดียวกันกับที่ แยกที่อยู่อีเมล ยูทิลิตี้คุณสามารถแยกที่อยู่อีเมลจากสตริงข้อความโดยไม่ต้องใช้ความพยายามมากนัก

Kutools สำหรับ Excel : ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน.

ถ้าคุณได้ติดตั้ง Kutools สำหรับ Excelโปรดดำเนินการดังนี้:

1. เลือกเซลล์ที่มีสตริงข้อความ

2. คลิก Kutools > ข้อความ > แยกที่อยู่อีเมลดูภาพหน้าจอ:

3. และ แยกที่อยู่อีเมล กล่องโต้ตอบจะปรากฏขึ้นเลือกเซลล์ที่คุณต้องการใส่ผลลัพธ์ดูภาพหน้าจอ:

doc-extract-อีเมล 9

4. จากนั้นคลิก OK ที่อยู่อีเมลทั้งหมดถูกแยกออกจากสตริงข้อความดูภาพหน้าจอ:

doc-extract-อีเมล 9

คลิกเพื่อดาวน์โหลดและทดลองใช้ Kutools for Excel ฟรีทันที!


ลูกศรสีฟ้าฟองขวา สาธิต: แยกที่อยู่อีเมลจากสตริงข้อความด้วย Kutools for Excel

Kutools สำหรับ Excel: ด้วย Add-in ของ Excel ที่มีประโยชน์มากกว่า 300 รายการให้ทดลองใช้ฟรีโดยไม่มีข้อ จำกัด ใน 30 วัน ดาวน์โหลดและทดลองใช้ฟรีทันที!

บทความที่เกี่ยวข้อง:

วิธีแยกโดเมนจากที่อยู่อีเมลหลายรายการใน Excel


เครื่องมือเพิ่มประสิทธิภาพการทำงานในสำนักงานที่ดีที่สุด

Kutools สำหรับ Excel ช่วยแก้ปัญหาส่วนใหญ่ของคุณและเพิ่มผลผลิตของคุณได้ถึง 80%

  • นำมาใช้ใหม่: ใส่อย่างรวดเร็ว สูตรที่ซับซ้อนแผนภูมิ และสิ่งที่คุณเคยใช้มาก่อน เข้ารหัสเซลล์ ด้วยรหัสผ่าน; สร้างรายชื่อผู้รับจดหมาย และส่งอีเมล ...
  • ซุปเปอร์ฟอร์มูล่าบาร์ (แก้ไขข้อความและสูตรหลายบรรทัดได้อย่างง่ายดาย); การอ่านเค้าโครง (อ่านและแก้ไขเซลล์จำนวนมากได้อย่างง่ายดาย); วางลงในช่วงที่กรองแล้ว...
  • ผสานเซลล์ / แถว / คอลัมน์ โดยไม่สูญเสียข้อมูล แยกเนื้อหาของเซลล์ รวมแถว / คอลัมน์ที่ซ้ำกัน... ป้องกันเซลล์ซ้ำ; เปรียบเทียบช่วง...
  • เลือกซ้ำหรือไม่ซ้ำ แถว; เลือกแถวว่าง (เซลล์ทั้งหมดว่างเปล่า); Super Find และ Fuzzy Find ในสมุดงานจำนวนมาก สุ่มเลือก ...
  • สำเนาถูกต้อง หลายเซลล์โดยไม่เปลี่ยนการอ้างอิงสูตร สร้างการอ้างอิงอัตโนมัติ ถึงหลายแผ่น ใส่สัญลักษณ์แสดงหัวข้อย่อย, กล่องกาเครื่องหมายและอื่น ๆ ...
  • แยกข้อความ, เพิ่มข้อความ, ลบตามตำแหน่ง, ลบ Space; สร้างและพิมพ์ผลรวมย่อยของเพจ แปลงระหว่างเนื้อหาของเซลล์และความคิดเห็น...
  • ซุปเปอร์ฟิลเตอร์ (บันทึกและใช้โครงร่างตัวกรองกับแผ่นงานอื่น ๆ ); การเรียงลำดับขั้นสูง ตามเดือน / สัปดาห์ / วันความถี่และอื่น ๆ ตัวกรองพิเศษ โดยตัวหนาตัวเอียง ...
  • รวมสมุดงานและแผ่นงาน; ผสานตารางตามคอลัมน์สำคัญ แยกข้อมูลออกเป็นหลายแผ่น; Batch แปลง xls, xlsx และ PDF...
  • คุณสมบัติที่ทรงพลังมากกว่า 300 รายการ. รองรับ Office / Excel 2007-2019 และ 365 รองรับทุกภาษา ใช้งานง่ายในองค์กรหรือองค์กรของคุณ ทดลองใช้ฟรี 30 วันเต็ม รับประกันคืนเงิน 60 วัน
kte แท็บ 201905

แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก

  • เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
  • เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
  • เพิ่มผลผลิตของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!
ด้านล่าง officetab
จัดเรียงความคิดเห็นโดย
ความคิดเห็น (40)
ยังไม่มีการให้คะแนน เป็นคนแรกที่ให้คะแนน!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
LUL ใช้รหัสนี้สำหรับสารสกัดจากอีเมล Sub lula() Dim d1 เป็น Variant cntr = 0 rowstring = ActiveCell.Offset(0, 0).Value d1 = Split(rowstring, " ") Do 'MsgBox d1(cntr) cntr = cntr + 1 If d1(cntr) = "" จากนั้นไปที่ ttt ถ้า InStr(d1(cntr), "@") จากนั้น MsgBox d1(cntr) GoTo ttt สิ้นสุดหากวนรอบขณะ d1(cntr) "" ttt: End Sub
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณสำหรับสูตรนี้! คุณช่วยฉันได้มากในการทำงาน - ต้องดึงอีเมล 1500 ฉบับจากแผ่นงาน Excel ที่เขียนไม่ดีสำหรับรายชื่อการตลาดทางอีเมล เมื่อฉันพบสูตรของคุณในที่สุด
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
โค้ดเด็ด! มีประโยชน์จริงๆ น่าเสียดายที่มันเชื่อมโยงที่อยู่อีเมลหลาย ๆ เข้าด้วยกันแทนที่จะแยกกันอย่างมีประโยชน์ เช่น ด้วยเครื่องหมายอัฒภาค คุณจะเพิ่มตัวคั่นอย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ไม่มี VBA เพียงสูตรที่จะวางลงในเซลล์ เพียงแค่เปลี่ยนการอ้างอิง ( ตัวอย่างด้านล่างดูที่ Cell A1) =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1)," ",REPT( " ",99)),99))&MID(A1,FIND("@",A1),FIND(" ",A1&" ",FIND("@",A1))-FIND("@",A1) )
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]... =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1)," ",REPT(" ",99)),99))&MID(A1,FIND("@",A1),FIND(" ",A1&" ",FIND("@",A1))-FIND("@",A1))โดยฉัน[/quote] ขอบคุณ "ME" ใช้งานได้ทุกคำใน Google สเปรดชีต!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
[quote]ไม่มี VBA เพียงแค่สูตรที่จะวางลงในเซลล์ เพียงแค่เปลี่ยนการอ้างอิง ( ตัวอย่างด้านล่างดูที่ Cell A1) =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND("@",A1)-1)," " ,REPT(" ",99)),99))&MID(A1,FIND("@",A1),FIND(" ",A1&" ",FIND("@",A1))-FIND("@" ,A1))โดยฉัน[/quote] ขอบคุณครับ. มันได้ผลสำหรับฉัน
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
อัศจรรย์! ขอแสดงความนับถืออย่างสูงสำหรับสคริปต์ VBS! ขอบคุณ!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณมาก มันมีประโยชน์มาก!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มันดีมาก แต่ตอนนี้ฉันมีปัญหา มีการเว้นวรรคแทนจุดระหว่างที่อยู่อีเมลทั้งหมด (เช่น abcd@aol com) ดังนั้นสูตรจะไม่ใส่จุดสิ้นสุดของที่อยู่อีเมลทั้งหมด (.net, .com ฯลฯ) ลงในคอลัมน์ใหม่ ฉันจะแก้ไขปัญหานี้ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
สวัสดีทุกคน ฉันกำลังมองหาวิธีแยกที่อยู่อีเมลออก ดังนั้นฉันจึงสามารถใส่ลงใน Outlook ได้ ฉันได้เพิ่มตัวคั่น "; " ระหว่างที่อยู่อีเมลเพื่อไม่ให้ทำงานพร้อมกัน แจ้งให้เราทราบสิ่งที่คุณคิด. ขอบคุณผู้เขียนต้นฉบับที่รวบรวมสิ่งนี้ไว้ด้วยกัน! ฟังก์ชัน ExtractEmailFun(extractStr As String) As String 'Update 20150723 Dim CharList As String On Error Resume Next CheckStr = "[A-Za-z0-9._-]" ExtractEmailFun = "" Index = 1 Do while True Index1 = VBA InStr(Index, extractStr, "@") getStr = "" ถ้า Index1 > 0 แล้ว For p = Index1 - 1 ถึง 1 Step -1 ถ้า Mid(extractStr, p, 1) ชอบ CheckStr แล้ว getStr = Mid(extractStr, p, 1) & getStr Else Exit For End ถ้าถัดไป getStr = getStr & "@" สำหรับ p = Index1 + 1 ถึง Len (extractStr) หาก Mid (extractStr, p, 1) ชอบ CheckStr จากนั้น getStr = getStr & Mid (extractStr, p, 1) อื่น getStr = getStr Exit For End ถ้า Next Index = Index1 + 1 getStr = getStr & "; " ถ้า ExtractEmailFun = "" จากนั้น ExtractEmailFun = getStr Else ExtractEmailFun = ExtractEmailFun & Chr(10) & getStr End หากเป็นอย่างอื่น ออก Do End ถ้า ฟังก์ชันวนรอบ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ขอบคุณผู้เขียนสคริปต์ต้นฉบับ ฉันดำเนินการต่อและเพิ่มตัวคั่น "; " ระหว่างที่อยู่อีเมลหลายรายการ ฟังก์ชัน ExtractEmailFun(extractStr As String) As String 'Update 20150723 Dim CharList As String On Error Resume Next CheckStr = "[A-Za-z0-9._-]" ExtractEmailFun = "" Index = 1 Do while True Index1 = VBA InStr(Index, extractStr, "@") getStr = "" ถ้า Index1 > 0 แล้ว For p = Index1 - 1 ถึง 1 Step -1 ถ้า Mid(extractStr, p, 1) ชอบ CheckStr แล้ว getStr = Mid(extractStr, p, 1) & getStr Else Exit For End ถ้าถัดไป getStr = getStr & "@" สำหรับ p = Index1 + 1 ถึง Len (extractStr) หาก Mid (extractStr, p, 1) ชอบ CheckStr จากนั้น getStr = getStr & Mid (extractStr, p, 1) อื่น getStr = getStr Exit For End ถ้า Next Index = Index1 + 1 getStr = getStr & "; " ถ้า ExtractEmailFun = "" จากนั้น ExtractEmailFun = getStr Else ExtractEmailFun = ExtractEmailFun & Chr(10) & getStr End หากเป็นอย่างอื่น ออก Do End ถ้า ฟังก์ชันวนรอบ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ดีจัง! ขอบคุณ.
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
คุณพี่เก่งจริงๆ สูตรด้านล่างใช้ได้ผลสำหรับฉันและบันทึกการแทรกแซงด้วยตนเองซึ่งใช้เวลาหลายชั่วโมง =TRIM(RIGHT(SUBSTITUTE(LEFT(H2,FIND (" ",H2&" ",FIND("@",H2))-1)," ", REPT(" ",LEN(H2))),LEN(H2))) ขอพระเจ้าคุ้มครองคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันต้องการข้อมูลเพิ่มเติม วิธีการแยกอีเมล
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ท่านที่รัก ฉันจะแยกรหัสอีเมลที่ถูกต้องจากตัวอย่างรายชื่ออีเมลของฉันที่ด้านล่าง a.hamilton@tradsingapore.com.sg aarabest@emirates.com.net.ae admin@countrywide.com.my ได้อย่างไร
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
เนื่องจากสูตรนี้ช่วยฉันได้มาก ฉันคิดว่าฉันจะแบ่งปันประสบการณ์ของฉัน ฉันเรียกใช้กับรายการของ html webscrapes ซึ่งบางครั้งอาจยาวจนสูตรผิดพลาด ตามวิกิพีเดีย ความยาวสูงสุดของที่อยู่อีเมลคือ 254 อักขระ ดังนั้นการแทนที่ส่วน len(A1) ด้วย 256 จะช่วยปรับปรุงความเสถียรของฟังก์ชัน: =TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND (" ",A1&" ", ค้นหา("@",A1))-1)," ", REPT(" ",256)),256))
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ยอดเยี่ยม ยอดเยี่ยม. ที่ใครๆ ก็ต้องใช้..
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ถ้าฉันต้องการแยกที่อยู่อีเมลเพียงแห่งเดียวจาก A1 สูตรนี้จะทำเช่นนั้นและรายงานเฉพาะที่ว่างเปล่า ไม่ใช่ข้อผิดพลาด ถ้า A1 ไม่มีที่อยู่อีเมล ฉันพบว่าวิธีนี้เป็นวิธีแก้ปัญหาที่ง่ายกว่าการพยายามควบคุมสคริปต์เหล่านี้ทั้งหมด และไม่เสียค่าใช้จ่ายใดๆ =IFERROR(TRIM(RIGHT(SUBSTITUTE(LEFT(A1,FIND(" ",A1&" ",FIND("@",A1))-1)," ,REPT(" ",LEN(A1))), เลน(A1))),"")
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
มีประโยชน์มาก ขอบคุณมาก!!
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ข้อมูลเพียบ! ขอบคุณ
ความคิดเห็นนี้ถูกย่อให้เล็กสุดโดยผู้ดำเนินรายการบนเว็บไซต์
ฉันใช้ Excel 2007 กับ HP หากคุณมี Melanie Brown ใน A1 และต้องการให้อ่าน Melanie.Brown@gmail.com ในช่องเดียวกัน คุณทำสิ่งนี้ให้สำเร็จได้อย่างไร ฉันมีแผงคอที่จะทำแบบเดียวกัน ใครจะช่วยฉันในเรื่องนี้?
มีความคิดเห็นยังไม่มีการโพสต์ที่นี่
โหลดเพิ่มเติม
แสดงความคิดเห็นของคุณ
โพสต์ในฐานะแขก
×
ให้คะแนนโพสต์นี้:
0   ตัวอักษร
สถานที่แนะนำ