Excel 找出重複項目 , 兩個例子VBA, with PT method第一例是在 D-欄位標註重複出現次數, 假設重複資料在 C-欄位, 以下巨集可自動插入 D-欄位, 永慶房屋並標記出現次數, 標記在 2以上 就是C 欄位有重覆了, 移除重複後  要記得刪去D-欄位. 迴圈型態使用 PT.offset Sub 酒店經紀Macro1()'' Macro1 Macro, mark duplication' Keyboard Shortcut: Ctrl+t Dim PT, f_range As Range Columns("D").Select 酒店工作Selection.Insert Shift:=xlToRight' Set f_range = Columns("C") Set PT = ActiveSheet.Range("c1") Do Until PT.Value = 房地產Empty' PT.Offset(, 1) = WorksheetFunction.CountIf(f_range, PT) Set PT = PT.Offset(1, 0) Loop' End 關鍵字行銷Sub-------------------------------------------------------------------第二例  在與 前頁工作表C-欄位作比較, 若是D-欄位有標記室內裝潢Found, 就是找到與前一頁有重複項目, 我都是設為熱鍵Ctrl+y ,使用起來很方便.Sub Macro2()'' Macro2 , existing with 土地買賣Sheet.Previous' Keyboard Shortcut: Ctrl+y' Dim PT, f_cell, f_range As Range Columns("D").Select Selection.Insert 太平洋房屋Shift:=xlToRight' Set w1 = Sheets(ActiveSheet.Previous.Name) Set f_range = w1.Columns("C") Set PT = 租房子ActiveSheet.Range("c1") Do Until PT.Value = Empty Set f_cell = f_range.Find(PT) If Not f_cell Is Nothing Then 借貸PT.Offset(, 1) = " Found" Set PT = PT.Offset(1, 0) Loop'End Subhttp://tinyurl.com/4ovkyw
創作者介紹
創作者 sb70sblekx 的頭像
sb70sblekx

過山車

sb70sblekx 發表在 痞客邦 留言(0) 人氣()