跳到主要內容

如何刪除另一張紙上不符合條件的行?

刪除同一張紙上不符合條件的行可能並不困難,但是您知道有什麼方法可以刪除另一張紙上不符合條件的行,如下所示。 現在,我有兩個技巧可以幫助您快速解決它。

使用VBA刪除另一張紙上不符合條件的行

使用Kutools for Excel刪除另一個工作表上不符合條件的行

在另一個工作表1上刪除doc 在另一個工作表2上刪除doc 文檔權 在另一個工作表3上刪除doc
 標準(在工作表2中)     之前(第1頁)          之後(工作表1)



箭頭藍色右氣泡 使用VBA刪除另一張紙上不符合條件的行

有一個VBA代碼可以幫助您刪除另一張紙上不符合條件的行。

1。 按 Alt + F11鍵 顯示 Microsoft Visual Basic for Applications 窗口。

2.在窗口中,單擊 插入 > 模塊 以顯示新的模塊窗口,然後將以下VBA代碼複製到模塊窗口中。

VBA:在Excel中的另一張工作表上刪除不符合條件的行。

Sub DeleteRow()
'Updateby20140618
Dim rng As Range
Dim Rng1 As Range, Rng2 As Range
Dim arr1 As Variant
Dim arr2 As Variant
Dim dic2 As Variant
Dim OutArr As Variant
xTitleId = "KutoolsforExcel"
Set Rng1 = Application.Selection
Set Rng1 = Application.InputBox("Range1 :", xTitleId, Rng1.Address, Type:=8)
Set Rng2 = Application.InputBox("Range2:", xTitleId, Type:=8)
Set Rng1 = Rng1.Columns(1)
Set Rng2 = Rng2.Columns(1)
Set dic2 = CreateObject("Scripting.Dictionary")
arr1 = Rng1.Value
arr2 = Rng2.Value
For i = 1 To UBound(arr2, 1)
    xKey = arr2(i, 1)
    dic2(xKey) = ""
Next
Rng1.ClearContents
OutArr = Rng1.Value
xIndex = 1
For i = 1 To UBound(arr1, 1)
    xKey = arr1(i, 1)
    If dic2.Exists(xKey) Then
        OutArr(xIndex, 1) = xKey
        xIndex = xIndex + 1
    End If
Next
Rng1.Value = OutArr
End Sub
3。 點擊 Kutoolsfor Excel 彈出對話框,選擇要刪除不符合條件的行的範圍。 看截圖:

在另一個工作表4上刪除doc

4。 點擊 OK,然後彈出另一個對話框,供您在另一個工作表中選擇條件,請參見屏幕截圖:

在另一個工作表5上刪除doc

5.現在,所有不符合另一張表中條件的行都將被刪除。


箭頭藍色右氣泡 使用Kutools for Excel刪除另一個工作表上不符合條件的行

如果您對VBA代碼有點困難,則可以嘗試使用Kutools for Excel的比較範圍功能。

Excel的Kutools 包括300多個便捷的Excel工具。 30天免費試用,不受限制。 立即獲取

1.選擇要刪除不符合條件的行的工作表。 然後點擊 庫工具 > 比較範圍。 看截圖:

在另一個工作表6上刪除doc

2。 在裡面 比較範圍 對話框中,單擊 範圍B,然後可以選擇所需的條件範圍。 看截圖:

在另一個工作表7上刪除doc
文檔箭頭
在另一個工作表8上刪除doc

 

3。 然後點擊 OK,然後返回 比較範圍 對話框,檢查 不同的價值選擇整行。 看截圖:

在另一個工作表9上刪除doc

4。 點擊 Ok,然後退出 比較範圍 對話。 然後,您會看到選擇了與條件不同的值行。

在另一個工作表10上刪除doc

5.右鍵單擊以單擊 刪除 從上下文菜單中刪除與另一張紙上的條件不匹配的行。

在另一個工作表11上刪除doc

單擊此處了解有關Kutools for Excel的比較範圍的更多信息。


相關文章:

最佳辦公生產力工具

熱門特色: 尋找、突出顯示或識別重複項   |  刪除空白行   |  合併列或儲存格而不遺失數據   |   沒有公式的回合 ...
超級查詢: 多條件VLookup    多值VLookup  |   跨多個工作表的 VLookup   |   模糊查詢 ....
高級下拉列表: 快速建立下拉列表   |  依賴下拉列表   |  多選下拉列表 ....
欄目經理: 新增特定數量的列  |  移動列  |  切換隱藏列的可見性狀態  |  比較範圍和列 ...
特色功能: 網格焦點   |  設計圖   |   大方程式酒吧    工作簿和工作表管理器   |  資源庫 (自動文字)   |  日期選擇器   |  合併工作表   |  加密/解密單元格    按清單發送電子郵件   |  超級濾鏡   |   特殊過濾器 (過濾粗體/斜體/刪除線...)...
前 15 個工具集12 文本 工具 (添加文本, 刪除字符,...)   |   50+ 圖表 類型 (甘特圖,...)   |   40+ 實用 公式 (根據生日計算年齡,...)   |   19 插入 工具 (插入二維碼, 從路徑插入圖片,...)   |   12 轉化 工具 (數字到單詞, 貨幣兌換,...)   |   7 合併與拆分 工具 (高級合併行, 分裂細胞,...)   |   ... 和更多

使用 Kutools for Excel 增強您的 Excel 技能,體驗前所未有的效率。 Kutools for Excel 提供了 300 多種進階功能來提高生產力並節省時間。  點擊此處獲取您最需要的功能...

kte選項卡201905


Office選項卡為Office帶來了選項卡式界面,使您的工作更加輕鬆

  • 在Word,Excel,PowerPoint中啟用選項卡式編輯和閱讀,發布者,Access,Visio和Project。
  • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
  • 將您的工作效率提高 50%,每天為您減少數百次鼠標點擊!
Comments (1)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Doesn't work with sheets that have multiple columns because it doesn't actually delete the row, just the cell.
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations