無効なメールでExcelの行を削除する

Question

名前、電話番号、メールアドレスなどの大きな連絡先のスプレッドシートがあります... 無効なメールがたくさんあるので、無効なメールが含まれている行を削除したい、 助言がありますか？

Answer 1

VBAのRegExp55ライブラリを使用して、セルに有効な電子メールアドレス（TRUE）またはそうでない（FALSE）が含まれているかどうかを検証するユーザー定義関数を書き込むことをお勧めします。

あなたはこのコードを使用して起動することができます：私はこのtutorialから取った

Option Explicit 

Const MODULE_NAME As String = "modMail" 

'' Validate email address 
Public Function ValidateEmailAddress(ByVal strEmailAddress As String) As Boolean 
    On Error GoTo Catch 

    Dim objRegExp As New RegExp 
    Dim blnIsValidEmail As Boolean 

    objRegExp.IgnoreCase = True 
    objRegExp.Global = True 
    objRegExp.Pattern = "^([a-zA-Z0-9_\-\.]+)@[a-z0-9-]+(\.[a-z0-9-]+)*(\.[a-z]{2,3})$" 

    blnIsValidEmail = objRegExp.Test(strEmailAddress) 
    ValidateEmailAddress = blnIsValidEmail 

    Exit Function 

Catch: 
    ValidateEmailAddress = False 
    MsgBox "Module: " & MODULE_NAME & " - ValidateEmailAddress function" & vbCrLf & vbCrLf _ 
     & "Error#: " & Err.Number & vbCrLf & vbCrLf & Err.Description 
End Function 

。リンクを見ると、そのリンクの使い方の説明があります。

Answer 2

解決策を得ました。私の大きなリストと完全に一致しています。これは正確な答えではありません。実行するにはPHPプラットフォームが必要です。

Input_List.csv

名前|電子メール|電話

ここでは、上記の表のための私のコードです：

<?php 
    $input_file = "Input_List.csv"; //source file 
    $output_file = "Output_List.csv"; //cleaned output file 
    $fp1 = fopen($input_file, "r"); 
    $fp2 = fopen($output_file, 'w'); 
    if ($fp1) { 
     while (($lines = fgetcsv($fp1)) !== false) { 
      //print_r($lines); 
      $inv_flag = 1; 
      $cf_x_c_d = ''; 
      $co = 0; //incrimenting tocken for column 
      foreach ($lines as $cf_x) { 
       if($co == 1){ //check if 2nd column, 2nd column is the email column 
        if(validate_email($cf_x)){ 
         $cf_x_c_d .= $cf_x.","; 
        }else{ 
         $inv_flag = 0; 
        } 
       }elseif($inv_flag == 1){ 
        $cf_x_c_d .= $cf_x.","; 
       } 
       $co = $co + 1; 

      } 
      if($inv_flag == 1){ 
       $cf_x_c_d_arr = explode(',', $cf_x_c_d); 
       fputcsv($fp2, array_values($cf_x_c_d_arr)); 
      } 
     } 

     fclose($fp1); 
     fclose($fp2); 
    } 

    function validate_email($email){ 
     $email = str_replace(' ', '', $email); 
     if(filter_var($email, FILTER_VALIDATE_EMAIL)) { 
      return true; 
     }else{ 
      return false; 
     } 
    } 

    ?>