如何在 Excel 中驗證電子郵件地址是否有效？

管理 Excel 資料庫時，常需在發送通訊或匯入聯絡人清單前，驗證每個電子郵件地址的格式是否正確。無效的電子郵件地址可能導致郵件退信、通訊中斷，或系統整合錯誤。與其手動逐一檢查，不如善用 Excel 提供的實用功能，自動審核電子郵件地址的有效性，輕鬆簡化資料清理流程，讓您的資料管理更精準可靠。

使用公式檢查郵箱地址是否有效

VBA 程式碼 – 自動僅能輸入郵箱

---

使用公式檢查郵箱地址是否有效

若要有效檢查工作表中的電子信箱地址是否可能有效，可運用 Excel 公式。此方法適合快速掃描大量電子郵件清單，並標示出可能不符合基本電子信箱格式的項目。

下列公式會檢查電子信箱地址是否至少包含一個句點（「。」），且在「@」符號之後也有句點——這兩項都是有效電子郵件格式的基本要求。

1. 請在欲顯示檢查結果的空白儲存格中輸入或貼上下列公式：

2. 輸入公式後，按下 Enter 確認，再向下拖曳填滿控點，即可將此公式套用至目標欄位的其他儲存格。公式會對通過檢查的項目（可能有效）傳回 TRUE，對未符合要求的項目則傳回 FALSE。

注意事項與提示：

• 此公式僅驗證基本格式：確認包含句點（。），且其相對於「@」符號的位置正確，但無法確保網域名稱或使用者名稱確實存在，亦無法排除某些罕見卻有效的格式。
• 若您的資料包含空格、特殊字元或尾隨標點符號，可能會導致驗證結果不正確。
• 若需更嚴謹的電子郵件格式驗證，請考慮加入額外的檢查條件，或使用下方所述的 VBA／巨集。

---

VBA 程式碼 – 自動僅能輸入郵箱

若需進階且自動化的電子郵件驗證功能（尤其是希望透過程式方式標示或突顯無效地址），使用 VBA 巨集將非常高效。此方法特別適用於包含大量電子郵件記錄的試算表，或需要批次處理以確保符合通訊協定的情境。

此程式碼會檢查所選區域中的電子郵件地址是否符合基本格式標準（包含「@」符號，且「@」後至少有一個「。」）。此外，還可選擇透過變更儲存格顏色或新增註解的方式，標示出無效的儲存格，讓資料清理時一目了然。

1. 按一下開發人員工具 > Visual Basic，然後在 Microsoft Visual Basic for Applications 視窗中，按一下插入 > 模組，並將下列 VBA 程式碼貼到模組中：

Sub ValidateEmailAddresses()
    Dim rng As Range
    Dim cell As Range
    Dim email As String
    Dim atPos As Long
    Dim dotPos As Long
    
    On Error Resume Next
    xTitleId = "KutoolsforExcel"
    
    Set rng = Application.InputBox("Select email range", xTitleId, Selection.Address, Type:=8)
    
    For Each cell In rng
        email = Trim(cell.Value)
        atPos = InStr(1, email, "@")
        
        If atPos > 1 Then
            dotPos = InStr(atPos + 1, email, ".")
            
            If dotPos > atPos + 1 Then
                cell.Interior.ColorIndex = xlNone ' Format as valid
            Else
                cell.Interior.Color = vbYellow ' Flag as invalid
                cell.AddComment "Invalid email format"
            End If
        Else
            cell.Interior.Color = vbYellow ' Flag as invalid
            cell.AddComment "Invalid email format"
        End If
    Next cell
End Sub

2. 若要執行巨集，請按一下按鈕，系統將提示您選取包含郵箱地址的範圍。無效項目會以黃色突顯並新增註解（「無效的電子郵件格式」），有效項目則維持不變。

• 若您的工作表已受保護，執行巨集前請先解除保護，並務必事先儲存您的工作。
• 重新執行前，請先移除或清除註解，以免重複標記。
• 此巨集僅驗證電子郵件格式，並不會確認該信箱是否真實存在。若需進行組織層級的驗證，建議匯出結果以進一步查核。

透過這些 Excel 解決方案，您能減少管理電子郵件的手動作業、降低通訊錯誤，並簡化聯絡人清單的準備流程，輕鬆進行電子郵件行銷或報表製作。

• 若因單元格格式（例如以文字格式儲存的數字）導致錯誤，請先將電子郵件欄位設定為「一般」或「文字」格式，再套用公式或驗證規則。
• 處理大型資料集時，建議結合公式稽核與 VBA 標記，以實現全面審查。
• 請定期稽核您的資料庫，確認網域要求或新郵件格式標準是否有任何變動。

更多相關文章：