Board logo

標題: [發問] 按字元數量篩選電郵地址 [打印本頁]
作者: jcmdrt    時間: 2012-10-18 09:52     標題: 按字元數量篩選電郵地址

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

請問是要從mail清單中標示出無效的mail方便您做刪除嗎?
作者: mark15jill    時間: 2012-10-18 10:14

回復 1# jcmdrt


    12位元 是指  @  前面的位元數 還是 總位元數??
[email protected]  ?
1234567891234 ?
作者: mark15jill    時間: 2012-10-18 10:29

以下是一點點的小程式
可以先放一些試驗看看
再用篩選功能篩選
  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    時間: 2012-10-20 15:22

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


對呀, 因為有些電郵是 [email protected].
作者: jcmdrt    時間: 2012-10-20 15:23

回復  jcmdrt


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


總的位數12以下, 但也會做調整的, 先找8位的, 再找9位的順序找下去, 盡可能把無效的去掉減輕伺服器的壓力.
作者: jcmdrt    時間: 2012-10-20 15:24

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


謝謝您的程式, 但不知道怎樣用呢, 我去爬爬文看看, 如果你方便的話也告訴我怎樣用 謝謝~
作者: mark15jill    時間: 2012-10-21 16:21

回復 7# jcmdrt

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



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)