Excel 中如何找出相同資料?

利用下列 macro, 可解決你的問題. 結果在一兩秒內完成:
Sub Macro1()
'
'
'
q = InputBox("Input the string to be searched --> ")

x = ThisWorkbook.Sheets.Count

For i = 1 To x

Sheets(i).Select
Cells.Select
Selection.Interior.ColorIndex = xlNone

With Worksheets(i).Range("a1:a500")
Set c = .Find(q, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
c.Interior.ColorIndex = 3
Set c = .FindNext(c)

Loop While Not c Is Nothing And c.Address <> firstAddress
End If
End With

Next i


End Sub

可改變 紅色 text 的 range value, 以配合你的 data.



2009-09-22 16:35:21 補充：
如需 sample file (with macro), 請 e-mail 我.

如你話要同一份EXCEL既話我就搵唔到方法/我未搵到~

不過如果係講同一頁既SHEET到想搵 [email protected] 既話就可以做到~ 不過前提係以表格形式的~
姐係...
NO. NAME EMAIL
1 BILLY [email protected]
2 NANCY [email protected]


不過公司入資料通常都係咁既~

如果個SHEET係咁既話/~~你可以用以下既方法搵出相同的資料~
以上圖表為例
SELECT (NO.) (NAME) (EMAIL) >資料>篩選>自動篩選

之后係個(NO.) (NAME) (EMAIL) 旁邊有個按"留" 例如你要搵既係EMAIL [email protected]

咁你就按EMAIL 旁邊既按"留" ,下面有個叫自訂...你按自訂...之后係顯示符合條件的列 到 選擇等於 右邊果到打[email protected]~ 之后按確定~ 佢就會幫你篩選~不過唔可以SELECT 多個SHEET...(我試過唔得)...

唔知呢個係咪你想要呢^^:

你可以嘗試在按尋找>>>打你想要的尋找目標，
然後(如果是2007)>>按選項>>搜尋範圍>>(活頁簿)
在搜尋(L)>>>選內容
之後按全部尋找就可以了