返回列表 上一主題 發帖

【請問】如何比對重複資料並加以標示

ky2599y

帖子
54 
主題
7 
精華
0 
積分
74 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2011-7-13 
最後登錄
2016-12-16 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-8-8 17:47 | 只看該作者

【請問】如何比對重複資料並加以標示

本帖最後由 ky2599y 於 2011-8-8 20:12 編輯

請問各位前輩,
檔案中電話號碼欄位若有重複的
我想將時間早的(或是列數少的)找出來，並在J欄位顯示"D"
只有一筆與時間最新的(列數最高的)在J欄顯示"O"

請問這個需求如何能達到，煩請幫忙，謝謝。

明細表.zip (6.1 KB)

收藏 分享
Kenny

kaigan89

帖子
65 
主題
16 
精華
0 
積分
82 
點名
0  
作業系統
win10 
軟體版本
2013 
閱讀權限
20 
性別
女 
註冊時間
2010-5-25 
最後登錄
2019-12-3 
6#
發表於 2011-8-19 20:53 | 只看該作者
超級版主真厲害！

TOP

ky2599y

帖子
54 
主題
7 
精華
0 
積分
74 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2011-7-13 
最後登錄
2016-12-16 
5#
發表於 2011-8-10 14:13 | 只看該作者
回復 4# oobird


  已可以使用了，感謝版大的幫忙，謝謝。
Kenny

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
4#
發表於 2011-8-8 21:48 | 只看該作者
  1. For I = 2 To [h65536].End(3).Row
  2. If Application.CountIf([h:h], Cells(I, 8)) > 1 And [h:h].Find(Cells(I, 8), , , 1).Row = I Then
  3. Cells(I, 10) = "D"
  4. ElseIf [h:h].Find(Cells(I, 8), , , 1, , 2).Row = I Then
  5. Cells(I, 10) = "O"
  6. End If
  7. Next
複製代碼

TOP

ky2599y

帖子
54 
主題
7 
精華
0 
積分
74 
點名
0  
作業系統
XP 
軟體版本
SP3 
閱讀權限
20 
性別
男 
註冊時間
2011-7-13 
最後登錄
2016-12-16 
3#
發表於 2011-8-8 18:09 | 只看該作者
回復 2# oobird

    抱歉!我已經將主題與附件，修改過了，謝謝提醒。
Kenny

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

帖子
1572 
主題
16 
精華
2 
積分
1521 
點名
0  
作業系統
xp 
軟體版本
office 2003 
閱讀權限
150 
性別
男 
註冊時間
2010-5-1 
最後登錄
2016-1-13 

論壇貢獻勳章
2#
發表於 2011-8-8 18:00 | 只看該作者
怎麼標題與內容是兩碼事？附件也沒你說的情形。

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題