excel提取域名

=IF(ISNUMBER(FIND(".", A2)), MID(A2, FIND("@", A2) + 1, LEN(A2) - FIND("@", A2) - 1), "")

Sub ExtractDomain()
    Dim ws As Worksheet
    Dim rng As Range
    Dim cell As Range
    Dim regEx As Object
    Dim matches As Object
    Dim match As Object
    
    Set ws = ThisWorkbook.Sheets("Sheet1")
    Set rng = ws.Range("A2:A" & ws.Cells(ws.Rows.Count, "A").End(xlUp).Row)
    
    Set regEx = CreateObject("vbscript.regexp")
    regEx.Pattern = "\b(?:[a-zA-Z0-9](?:[a-zA-Z0-9-]{0,61}[a-zA-Z0-9])?\.)+[a-zA-Z]{2,6}\b"
    
    For Each cell In rng
        If regEx.Test(cell.Value) Then
            Set matches = regEx.Execute(cell.Value)
            For Each match In matches
                cell.Offset(0, 1).Value = match.Value
            Next match
        End If
    Next cell
End Sub