[發問] 按字元數量篩選電郵地址

jcmdrt

我公司經營購物網站的, 早期的時候因為要吸引更多人註冊所以關掉註冊驗證電郵的部驟.
所以就出現很多奇怪和沒效的電子郵件,譬如"zbc@anc.com"或"1121@hotmail.com"
已經用過很多驗證電郵的軟件去處理但還是流下一堆沒效的電郵,
現在我需要替公司把字元數少於12位的電郵找出來並刪掉以免浪費公司資源,
請問在excel中有沒有什麼方法可以處理這個棘手的問題? 謝謝大家

amaggie_h

請問是要從mail清單中標示出無效的mail方便您做刪除嗎?

mark15jill

回復 1# jcmdrt


    12位元 是指  @  前面的位元數 還是 總位元數??
1234567891234@XXX.XXX.XX  ?
1234567891234 ?

mark15jill

以下是一點點的小程式
可以先放一些試驗看看
再用篩選功能篩選

1. Private Sub CommandButton1_Click()
   
2. '前置
   
3.     [a1] = "電子信箱"
   
4.     [b1] = "總字數"
   
5.     [c1] = " @所在位置"
   
6.     [d1] = " @前字數"
   
7.     [e1] = " @後字數"
   
8.    
   
9. '欄寬
   
10.     Columns("a:a").Select
    
11.     Selection.ColumnWidth = 35
    
12.     Columns("B:B").Select
    
13.     Selection.ColumnWidth = 10
    
14.     Columns("C:C").Select
    
15.     Selection.ColumnWidth = 15
    
16.     Columns("D:D").Select
    
17.     Selection.ColumnWidth = 10
    
18.     Columns("E:E").Select
    
19.     Selection.ColumnWidth = 10
    
20.    
    
21. '程式區
    
22.     For pg = 2 To ActiveSheet.Range("a1").CurrentRegion.Rows.Count
    
23.         Cells(pg, 2) = Len(Cells(pg, 1))
    
24.         Cells(pg, 3) = InStr(Cells(pg, 1), "@")
    
25.         Cells(pg, 4) = Mid(Cells(pg, 1), 1, Cells(pg, 3) - 1)
    
26.         Cells(pg, 5) = Mid(Cells(pg, 1), Cells(pg, 3) + 1, 90)
    
27.    
    
28.     Next
    
29. End Sub

複製代碼

jcmdrt

請問是要從mail清單中標示出無效的mail方便您做刪除嗎?
amaggie_h 發表於 2012-10-18 10:06

對呀, 因為有些電郵是 --1@abc.com.

jcmdrt

回復  jcmdrt


    12位元 是指  @  前面的位元數 還是 總位元數??
  ?
1234567891234 ?
mark15jill 發表於 2012-10-18 10:14

總的位數12以下, 但也會做調整的, 先找8位的, 再找9位的順序找下去, 盡可能把無效的去掉減輕伺服器的壓力.

jcmdrt

以下是一點點的小程式
可以先放一些試驗看看
再用篩選功能篩選
mark15jill 發表於 2012-10-18 10:29

謝謝您的程式, 但不知道怎樣用呢, 我去爬爬文看看, 如果你方便的話也告訴我怎樣用 謝謝~

mark15jill

回復 7# jcmdrt

這個是將要分解的 電子信箱 放在A欄位..
執行後  會分解開來
可依照 總字數是否超過12 再去做篩選(excel 內有預設功能)