把同樣的結果全部刪掉

lay9412206

各位大大好:
請問在AB兩欄的資料裡
我想將A欄裡任何跟B欄有重複到的資料全部刪掉請問要怎麼做到呢?
如圖希望能比較出左下的結果

yen956

試試看:
C3: =IF(OR(A1=B$1,A1=B$2),"",A1)
向下拉

lay9412206

回復 2# yen956

感謝您的熱心回復! 但如果說我的資料有幾百筆需要對照呢?

hcm19522

=IF(COUNTIF(B$1:B$99,A1),"",A1)&""

lay9412206

回復 4# hcm19522

您好這個方法很有效只是我現在又碰到了該無何把空白的行消除的問題
我已經把資料移到另一個工作表了，google到可以利用尋找的方式找到空白的行位
但是搬出來的資料欄位裡空白的格子在excel裡似乎不認為是空白的...沒有辦法一次選取 請問該怎麼解決呢?

yen956

試試VBA

1. '直接清除(保留原儲存格的位置)
   
2. Sub test()
   
3.     Dim LastRow As Long, i As Long
   
4.     LastRow = Cells(Rows.Count, 1).End(xlUp).Row
   
5.     For i = 1 To LastRow
   
6.         If Cells(i, 1) = [B1] Or Cells(i, 1) = [B2] Then
   
7.              Cells(i, 1).ClearContents
   
8.         End If
   
9.     Next
   
10. End Sub
    
11. 
    
12. '刪除完, 空格會向上移
    
13. Sub test2()
    
14.     Dim LastRow As Long, i As Long
    
15.     LastRow = Cells(Rows.Count, 1).End(xlUp).Row
    
16.     For i = LastRow To 1 Step -1
    
17.         If Cells(i, 1) = [B1] Or Cells(i, 1) = [B2] Then
    
18.              Cells(i, 1).Delete Shift:=xlUp
    
19.              i = i - 1
    
20.         End If
    
21.     Next
    
22. End Sub

複製代碼

yen956

更正:
6# 中的 第19 列應刪除才對!!

hcm19522

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

lay9412206

回復 6# yen956


    感謝您的回覆歐! !

yen956

回復 8# hcm19522
hcm19522大大你好,
幫我看看, 我照6#大大blog的公式,
為何得不到想要的結果?