跳到主要內容
>>快速導航
  • 去
    •
  • 進階工具1
    •
  • VBA
    •
  • 進階工具2
    •
  • 相關文章

    • 如何快速查找並刪除Excel中所有有錯誤的行？

    本文將介紹為您快速獲取上一個或當前打開的Excel文件列表的方法。

    查找並刪除所有出現錯誤的單元格

    在Excel中，可以應用“轉到特殊功能”來查找有錯誤的單元格，然後刪除單元格內容。

    1.選擇範圍或整個圖紙，然後按 Ctrl + G 使之成為可能 轉到 對話。

    2。 點擊 特別 到 去特別 對話框，然後檢查 公式 選項，在 公式 選項，檢查 錯誤 僅複選框。
    doc查找刪除錯誤1

    3。 點擊 OK，已選擇所有有錯誤的單元格，按 刪除 鍵以消除錯誤。
    doc查找刪除錯誤2

    通過高級工具查找和刪除所有有錯誤的單元格

    如果您想快速查找並刪除所有有錯誤的單元格，可以使用以下工具 Excel的Kutools 可以幫助您通過點擊來解決這項工作。

    用一套Excel套件啟動Excel
    適用於Excel 300-2019的2003多種專業易用工具

    後 免費安裝Kutools for Excel（60天免費試用），請按照以下步驟操作。

    1.選擇要查找錯誤單元格的範圍，然後單擊 庫工具 > 選擇 > 選擇具有錯誤值的單元格.
    doc查找刪除錯誤3

    2.現在，所有錯誤單元均已選中，單擊 OK 關閉彈出的提醒對話框，然後按 刪除 鍵以刪除錯誤值。
    doc查找刪除錯誤4
    doc查找刪除錯誤5

    使用VBA刪除有錯誤的所有行

    在Excel中，有一個VBA代碼可以一次刪除所有帶有錯誤的行。

    1。 按 Alt + F11鍵 啟用鑰匙 Microsoft Visual Basic for Applications 窗口中，單擊 插入 > 模塊 創造一個新的 模塊 腳本。

    2.複製以下代碼並將其粘貼到腳本中。

    VBA：刪除錯誤行

    Sub DeleteErrorRows()
Dim xWs As Worksheet
Dim xRg As Range
Dim xFNum As Integer

   Set xWs = Application.ActiveSheet
Application.ScreenUpdating = False
    On Error Resume Next
    With xWs
        Set xRg = .UsedRange
        xRg.Select
        For xFNum = 1 To xRg.Columns.count
            With .Columns(xFNum).SpecialCells(xlCellTypeFormulas, xlErrors)
                .EntireRow.Delete
            End With
        Next xFNum
    End With
Application.ScreenUpdating = True
End Sub

    3。 按 F5 鍵，則所有錯誤行均已刪除。

    使用超級過濾器查找並刪除所有有錯誤的行

    超級濾鏡 的效用 Excel的Kutools 可以過濾錯誤行，然後將其刪除。

    後 免費安裝Kutools for Excel（60天免費試用），請按照以下步驟操作。

    1.選擇您要使用的數據范圍，單擊 Kutools 加 > 超級濾鏡 啟用 超級過濾器窗格.
    doc查找刪除錯誤6

    2。 在裡面 超級濾鏡 窗格，添加以下條件：

    1）選擇用於過濾的列標題；

    2）選擇 錯誤 從第二個下拉列表中；

    3）選擇 等於 從第三個下拉列表中；

    4）選擇 所有錯誤 從上一個下拉列表中。
    doc查找刪除錯誤7

    3。 點擊 Ok 添加條件，然後單擊 篩選 過濾有錯誤的行。
    doc查找刪除錯誤8

    現在，數據列中有錯誤的行已被過濾。
    doc查找刪除錯誤9

    4.然後一一選擇這些行，右鍵單擊以顯示上下文菜單，選擇 刪除行.
    doc查找刪除錯誤10

    現在，帶有錯誤的行已被刪除。 請點擊 重設 按鈕在 超級濾鏡 顯示其他行。
    doc查找刪除錯誤11

    尖端：與 超級濾鏡 窗格，您還可以過濾 ＃NAME？ 錯誤或 ＃DIV / 0 或僅其他特定錯誤。
    doc查找刪除錯誤12

    超級濾鏡 是一種專業的過濾工具，可以過濾多個條件中的行，並提供Excel無法支持的條件。 請點擊 這裡 有關詳細信息。
    doc查找刪除錯誤

    與過濾相關的其他操作（文章）

    根據列表過濾數據
    本教程提供了有關基於Excel中給定列表數據過濾數據的技巧。

    篩選器數據包含星號
    眾所周知，當您過濾數據時，我們使用星號掩碼表示任何字符，但是如果要過濾包含星號掩碼的數據怎麼辦？ 現在，本文介紹了有關在Excel中包含星號或其他特殊字符的數據過濾方法。

    使用條件或通配符過濾數據
    如果要使用多個條件過濾數據，該怎麼辦？ 本教程討論的是如何在Excel中設置多個條件和過濾數據。

    最佳辦公生產力工具

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

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

    產品描述

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

    • 在Word，Excel，PowerPoint中啟用選項卡式編輯和閱讀，發布者，Access，Visio和Project。
    • 在同一窗口的新選項卡中而不是在新窗口中打開並創建多個文檔。
    • 將您的工作效率提高 50%，每天為您減少數百次鼠標點擊！
    Comments (2)
    No ratings yet. Be the first to rate!
    Guy
    Guy
    This comment was minimized by the moderator on the site
    The VBA module script just closed all of my excel workbooks and closed the program. Everything was recovered upon re-opening Excel but the function of the module was not achieved. (Unless you count completely closing the workbook as "removing the error lines".)
    Reply
    0
    0
    Sunny
    Sunny     Guy
    This comment was minimized by the moderator on the site
    Hi, Guy, sorry for that, you can try this code
    Sub DeleteErrorRows()
Dim xWs As Worksheet
Dim xRg As Range
Dim xFNum As Integer
Dim xRS As Integer

Set xWs = Application.ActiveSheet
Application.ScreenUpdating = False
On Error Resume Next

    Set xRg = xWs.UsedRange
    xRS = xRg.Row
    For xFNum = xRg.Rows.Count To 1 Step -1
        Set xxx = xWs.Rows(xFNum + xRS - 1).SpecialCells(xlCellTypeFormulas, xlErrors)
        If (xWs.Rows(xFNum + xRS - 1).EntireRow.SpecialCells(xlCellTypeFormulas, xlErrors) Is Nothing) Then
        Else
            xWs.Rows(xFNum + xRS - 1).EntireRow.Delete
        End If
    Next xFNum

Application.ScreenUpdating = True
End Sub
    Reply
    Report
    0
    0
    There are no comments posted here yet
    Please leave your comments in English
    Guest
    Posting as Guest
    ×
    Rate this post:
    Reset
    0   Characters
    Suggested Locations