會員 | Excel 篩選問題 如果想篩選出重複的數據,應該怎樣做? 例如想篩選出重複的電話號碼的數據等等 謝謝回應!!! |
回覆 |
會員 | Private Sub Worksheet_SelectionChange(ByVal Target As Range) '篩選功能沒法篩出重複的項目。我自己是撰寫VBA來找出重複項目。下列程式碼可搜尋第一欄,並將每列的出現次數大於 1 的次數寫在第四欄。第一列會假設為標題列。 Dim Col As Integer Dim r As Long Dim C As Range Dim N As Long Dim V As Variant Dim W As Variant Dim Rng As Range Col = ActiveCell.Column If Selection.Rows.Count > 1 Then Set Rng = Selection Else Set Rng = ActiveSheet.UsedRange.Rows End If N = 0 For r = Rng.Rows.Count To 2 Step -1 V = Rng.Cells(r, 1).Value If Application.WorksheetFunction.CountIf(Rng.Columns(1), V) > 1 Then Cells(r, 4) = Application.WorksheetFunction.CountIf(Rng.Columns(1), V) End If Next r End Sub |
回覆 |
Take it easy~ | 我也提供一個做參考 *make a backup before running this macro - my suggestion.. Sub find_duplicate() With Columns(1): r = 2: c = [a1].End(xlToRight).Column Do While Cells(r, 1) <> "" addr1 = .Find(Cells(r, 1), , , xlWhole).Address Set f = .FindNext(Cells(r, 1)) Do While f.Address <> addr1 a = True: r1 = f.Row For i = 1 To c If Cells(r1, i) <> Cells(r, i) Then a = False Next i: If a Then Rows(r1).Delete Set f = .FindNext(Cells(r1 - 1, 1)) Loop: r = r + 1 Loop: End With End Sub this macro will find out duplicate in column 1, then compare rows column by column. that will save time when the data is huge. 原文出處-- http://qa.usernet.com.tw/total_view....rNumber=284177 |
回覆 |
會員 | 根據大家提供的方法,已解決了問題 謝謝大家幫忙 |
回覆 |
|
類似的主題 | ||||
主題 | 主題作者 | 討論版 | 回覆 | 最後發表 |
Excel 時間與比較問題 | 小高 | -- OFFICE 相 關 軟 體 討 論 版 | 3 | 2003-12-30 09:26 PM |
Excel 年齡問題 | miniguy | -- OFFICE 相 關 軟 體 討 論 版 | 12 | 2003-11-25 11:04 PM |
【求助】Microsoft Excel 篩選問題 | jackming | -- OFFICE 相 關 軟 體 討 論 版 | 3 | 2003-08-31 07:15 PM |
EXCEL 函數問題 | Hendry | -- OFFICE 相 關 軟 體 討 論 版 | 4 | 2002-07-02 02:32 PM |
~~EXCEL 如何調整???? | wilking | -- OFFICE 相 關 軟 體 討 論 版 | 1 | 2002-05-23 07:16 PM |
XML | RSS 2.0 | RSS |
本論壇所有文章僅代表留言者個人意見,並不代表本站之立場,討論區以「即時留言」方式運作,故無法完全監察所有即時留言,若您發現文章可能有異議,請 email :[email protected] 處理。