English Deutsch Français Italiano Español Português 繁體中文 Bahasa Indonesia Tiếng Việt ภาษาไทย
所有分類

office1萬筆資料中有1千筆是不要的,我應該如何做?
例如底下這些EMAIL都是被退回來的EMAIL
我要如何將底下這些EMAIL從1萬筆EMAIL中刪除
用什麼軟體都可以,建議教我使用office系列
1049@stmail.fju.edu.tw
ace@mail.ymjh.kh.edu.tw
adm75@pchome.com.tw
b8101145@yahoo.com
CABT@mail.csbs.kb.edu.tw
carol@mail.ymjh.kh.edu.tw
ccmbr@mail.ymjh.kh.edu.tw


請注意,以上那些EMAIL都是無效的

2007-02-04 10:26:42 · 1 個解答 · 發問者 Anonymous in 電腦與網際網路 軟體

1 個解答

寫入這個VBA:
Sub Macro1()
n = 1
Y = ""
Do While Not Cells(n, 6) = ""
For x = 1 To 2
m = 1
Do While Not Cells(m, x) = ""
If Cells(m, x) = Cells(n, 6) Then
If Y = "" Then
If x = 1 Then Y = "A" & m
If x = 2 Then Y = "B" & m
Else
If x = 1 Then Y = Y & "," & "A" & m
If x = 2 Then Y = Y & "," & "B" & m
End If
End If
m = m + 1
Loop
Next x
n = n + 1
Loop
Range(Y).Select
End Sub

請將錯誤的EMAIL放在F欄,全部的EMAIL放在A或B欄,執行巨集。

此時全部的EMAIL欄會將F欄出現的資料框選,你只需按下DEL,就完全消除了。

我會把資料寄給你,有需要再討論

2007-02-05 08:19:36 · answer #1 · answered by 基哥 5 · 0 0

fedest.com, questions and answers