※ 引述《Catbert (宅男)》之銘言：
: ※ 引述《someone (人不定)》之銘言：
: : 軟體:excel
: : 版本:2002
: : 手上有一個資料檔，格式如下
: : 1 2 3 4 7 6 5 4 8
: : 1 2 3 5 4 8 6 7 5
: : 1 2 3 6 0 9 9 2 4
: : 1 2 3 4 5 6 7 8 9
: : 但是從來沒有寫過VBA，所以有看沒有懂。
: : 還請解惑。
: 在最右邊新增一欄，插入下面公式
: =IF(OR(COUNTIF($A2:$I2,0)>0,MAX(COUNTIF($A2:$I2,1),
: COUNTIF($A2:$I2,2),COUNTIF($A2:$I2,3),COUNTIF($A2:$I2,4),
: COUNTIF($A2:$I2,5),COUNTIF($A2:$I2,6),COUNTIF($A2:$I2,7),
: COUNTIF($A2:$I2,8),COUNTIF($A2:$I2,9))>1),"DEL","OK")
: 其中A~I為原始資料所在欄位，請視實際狀況調整
: 然後再把DEL的列篩選出來再刪除
其實不確定資料是否都是1,2,3,4這樣的話
可以改成這樣(視需要自己再加長 只不過不知道有沒有高手將他整合更短)
=IF(OR(COUNTIF(A1:G1,0)>=1,MAX(COUNTIF($A1:A1,A1),COUNTIF($A1:B1,B1),
COUNTIF($A1:C1,C1),COUNTIF($A1:D1,D1),COUNTIF($A1:E1,E1),COUNTIF($A1:F1,F1),
COUNTIF($A1:G1,G1))>1),"Del","")
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 123.192.209.31