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

dabus

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

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

未完成

下載 (120.73 KB)
未完成圖

2016-5-28 09:53

完成

下載 (65.71 KB)
完成後圖

2016-5-28 09:59

附件
Book13.zip (59.1 KB)

文件檔
下載次數: 3

2016-5-28 09:55

hcm19522

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"))

hcm19522

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))

dabus

回復 3# hcm19522


   抱歉看不太懂,請問這試自己帶公式嗎?

hcm19522

回復 4# dabus

ML089

回復 1# dabus

A欄有排序，B欄 PASS都在第一列時
J2 =IF(A2=A1,"DEL","")
下拉

自動篩選 J欄 - DLE，選取刪除