Board logo

標題: 把同樣的結果全部刪掉 [打印本頁]
作者: lay9412206    時間: 2015-11-8 22:42     標題: 把同樣的結果全部刪掉

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

試試看:
C3: =IF(OR(A1=B$1,A1=B$2),"",A1)
向下拉
作者: lay9412206    時間: 2015-11-9 18:04

回復 2# yen956

感謝您的熱心回復! 但如果說我的資料有幾百筆需要對照呢?
作者: hcm19522    時間: 2015-11-9 18:15

=IF(COUNTIF(B$1:B$99,A1),"",A1)&""
作者: lay9412206    時間: 2015-11-9 20:17

回復 4# hcm19522

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

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

  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    時間: 2015-11-10 17:10

更正:
6# 中的 第19 列應刪除才對!!
作者: hcm19522    時間: 2015-11-10 17:37

http://blog.xuite.net/hcm19522/twblog/355916302
作者: lay9412206    時間: 2015-11-11 18:56

回復 6# yen956


    感謝您的回覆歐! !
作者: yen956    時間: 2015-11-12 13:23

本帖最後由 yen956 於 2015-11-12 13:25 編輯

回復 8# hcm19522
hcm19522大大你好,
幫我看看, 我照6#大大blog的公式,
為何得不到想要的結果?
作者: hcm19522    時間: 2015-11-12 13:58

" { " 代表陣列 ,SHIFT+CTRL+ENTER 三鍵一起按
http://www.FunP.Net/83283
作者: yen956    時間: 2015-11-12 17:08

回復 11# hcm19522
謝謝回覆, 我知道陣列公式的輸入方式, 前有附檔, 可否幫忙看一下, 謝謝!!
作者: hcm19522    時間: 2015-11-12 18:09

陣列公式整欄一起 ENTER ,才會如此 ;E整欄刪除 ,再複製程式到E2單格  ,ENTER 後下拉
作者: yen956    時間: 2015-11-12 18:16

回復 13# hcm19522
原來如此, 謝謝指導, 謝謝。



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)