麻辣家族討論版版 » Excelㄧ般區 » 按字元數量篩選電郵地址

返回列表下一主題上一主題發帖

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

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2012-10-18
最後登錄: 2012-10-25

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2012-10-18 09:52 | 只看該作者

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

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

收藏

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

8^#

發表於 2012-10-21 16:21 | 只看該作者

回復 7# jcmdrt

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

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2012-10-18
最後登錄: 2012-10-25

7^#

發表於 2012-10-20 15:24 | 只看該作者

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

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

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2012-10-18
最後登錄: 2012-10-25

6^#

發表於 2012-10-20 15:23 | 只看該作者

回復  jcmdrt

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

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

小學生 Rank: 1

帖子: 5
主題: 1
精華: 0
積分: 10
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 10
性別: 男
註冊時間: 2012-10-18
最後登錄: 2012-10-25

5^#

發表於 2012-10-20 15:22 | 只看該作者

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

對呀, 因為有些電郵是 [email protected].

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

4^#

發表於 2012-10-18 10:29 | 只看該作者

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

Private Sub CommandButton1_Click()
'前置
[a1] = "電子信箱"
[b1] = "總字數"
[c1] = " @所在位置"
[d1] = " @前字數"
[e1] = " @後字數"
'欄寬
Columns("a:a").Select
Selection.ColumnWidth = 35
Columns("B:B").Select
Selection.ColumnWidth = 10
Columns("C:C").Select
Selection.ColumnWidth = 15
Columns("D:D").Select
Selection.ColumnWidth = 10
Columns("E:E").Select
Selection.ColumnWidth = 10
'程式區
For pg = 2 To ActiveSheet.Range("a1").CurrentRegion.Rows.Count
Cells(pg, 2) = Len(Cells(pg, 1))
Cells(pg, 3) = InStr(Cells(pg, 1), "@")
Cells(pg, 4) = Mid(Cells(pg, 1), 1, Cells(pg, 3) - 1)
Cells(pg, 5) = Mid(Cells(pg, 1), Cells(pg, 3) + 1, 90)
Next
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

高中生 Rank: 3 Rank: 3

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

3^#

發表於 2012-10-18 10:14 | 只看該作者

回復 1# jcmdrt

12位元是指 @ 前面的位元數還是總位元數??
[email protected] ?
1234567891234 ?

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

中學生 Rank: 2

帖子: 17
主題: 3
精華: 0
積分: 61
點名: 0
作業系統: Win7
軟體版本: Office2013
閱讀權限: 20
性別: 女
註冊時間: 2011-12-22
最後登錄: 2015-4-20

2^#

發表於 2012-10-18 10:06 | 只看該作者

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

Maggie

靜思自在 : 【為善競爭】人生要為善競爭，分秒必爭。

返回列表下一主題上一主題