[發問] 重複欄位刪除+第2欄判斷

大家好
小弟是工廠生產管理人員,由工作需要整裡大量數據, 所以要請教大家VBA能否做到以下功能
目前是採用手動標示重複顏色後再由人工判斷B欄字串或數字再刪除重複的一整列,由於這樣
方式遇到大量資料很耗時也容易出錯,所以來請教各大高手是否能用VBA做到以下幾點要求

1.找到的A欄重複數字後判斷B欄如果重複的2個欄位都是一樣(PASS 或 FAIL)則只需留下一列(刪除)
2.找到的A欄重複數字後判斷B欄如果B欄2個欄位字串不同(PASS 或 FAIL)則只需留下PASS那一列

未完成

完成

附件

Book13.zip (59.1 KB)

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-27

熱烈參與勳章

2^#

發表於 2016-5-28 17:02 | 只看該作者

本帖最後由 hcm19522 於 2016-5-28 17:11 編輯

J2=IF(COUNTIF(A$2:A2,A2)=1,ROW(),"")
K2=IFERROR(INDEX(A:A,SMALL(J$2:J$999,ROW(A1))),"")
L2{=IF(K2="","",IF(ISNA(MATCH("PASS",IF(A$2:A$999=K2,B$2:B$999),)),"FAIL","PASS"))

TOP

hcm19522

大學生 Rank: 4

帖子: 1387
主題: 4
精華: 0
積分: 1397
點名: 0
作業系統: WIN
軟體版本: 2007
閱讀權限: 50
性別: 男
註冊時間: 2015-9-11
最後登錄: 2024-11-27

熱烈參與勳章

3^#

發表於 2016-5-28 17:54 | 只看該作者

http://blog.xuite.net/hcm19522/twblog/417116186

E2:E16=IF(COUNTIF(B$2:B2,B2)=1,ROW(),"")
F2:F16=IFERROR(INDEX(B:B,SMALL(E$2:E$16,ROW(A1))),"")
G2:G16{=IF(F2="","",IF(ISNA(MATCH("PASS",IF(B$2:B$16=F2,C$2:C$16),)),"FAIL","PASS"))
(無輔助)I2:I16{=INDEX(B:B,MIN(IF((COUNTIF(I$1:I1,B$2:B$999)=0)*(B$2:B$999<>""),ROW(B$2:B$999),4^8)))&""
J2:J16{=IF(I2="","",IF(ISNA(MATCH("PASS",IF(B$2:B$16=I2,C$2:C$16),)),"FAIL","PASS"))
K2:K16=IF(I2="","",INDEX(C:C,MATCH(I2&J2,A$2:A$999&B$2:B$999,)+1))

TOP

dabus