試試看尋找???????

數量上百
一個個尋找?

複製起來貼去Excel用排序，
然後在旁邊寫程式
程式寫=if(A1=A2,0,1) (說明=如果(A1欄=A2欄,是的話顯示0,否的話顯示1)
然後把程式往下拉
然後在最下面打總加，就可看重複總數目

阿~這招真是妙

我怎麼沒想到

word中似乎也有排序的功能

會按順序從a排到z，真是太好了

雖然無法自動找出，但也不失一個好方法

多謝

呀~~
不需要用到Excel，只要在使用word時
先Ctrl+C你要的文字後->
按Ctrl+F->
將""所有找到的項目以醒目提示(T):""->打勾
就可以看到全部尋找不是嗎~??
不管網頁有多少重覆，1000個以上他也幫你找的出來重覆的~

我想要word自動幫我找出有哪些字事重複的

因為我打了一堆，現在打完要檢查

難道，要每個字都搜尋一次?

舉例來說，這一大堆單字中，my這個字出現過兩次

由於數量龐大，但是我不知道my這個字有重複

想利用word幫我找出來

不能用關鍵字搜尋原因在於，我根本不知道哪些字有重複，如何下手?

用前人說的Excel,排序完後,RUN下面這段VBA,這是我之前要找出同名同姓的資料,而給別人寫的一段,我是不知有沒有用,我RUN時是沒用,可能我不會使用吧(我真不知要如何去RUN它 )

我不會VB,所以叫別人寫,不過看程式運作很單純,把前一筆COPY到別處再比對下一筆,同則跳過,不同則COPY到別處,一直下去。



Sub filter()
Dim count_ As Integer
Dim i As Integer
Dim j As Integer

i = 2
j = 2

Sheets(2).Cells(1, 1).Value = Sheets(1).Cells(1, 1).Value
count_ = 0

Do While Not Sheets(1).Cells(i, 1).Value = ""

Do While Not Sheets(2).Cells(j, 1).Value = ""
If Sheets(1).Cells(i, 1).Value = Sheets(2).Cells(j, 1).Value Then
count_ = count_ + 1
End If

j = j + 1
Loop

If count_ = 0 Then
Sheets(2).Cells(j, 1).Value = Sheets(1).Cells(i, 1).Value
End If

count_ = 0
i = i + 1
j = 2
Loop

result = MsgBox("已篩選完成", vbOKOnly, "系統訊息")
Sheets(2).Activate
Range("A1").Select

End Sub

謝謝asccpu提供方法

我先收下

先去看看excel要用程式語言如何加入

多謝