时间戳

首页 > 解决方案 > 循环遍历整个工作簿并删除具有#N/A 的行

excel - 循环遍历整个工作簿并删除具有#N/A 的行

问题描述

我有一个 11 张工作簿。我需要删除所有工作表中出现#N/A 的行。我该怎么做呢？

我写了一些代码，见下文，它允许我只删除当我的 excel 文件打开到该特定选项卡时出现的 #N/A 行。它不会循环遍历整个工作簿。

Sub RemoveErrorsLoop()

     Dim WS_Count As Integer
     Dim I As Integer

     ' Set WS_Count equal to the number of worksheets in the active
     ' workbook.
     WS_Count = ActiveWorkbook.Worksheets.Count

     ' Begin the loop.
     For I = 2 To WS_Count
         Cells.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
     Next I

End Sub

我想要的代码将遍历我的所有工作表并删除具有#N/A 的行。谢谢你的帮助！

标签： excelvbafor-loop

解决方案

您只是忘记在循环中使用您的“I”：
如果您只是添加Sheets(I).您的行将在工作簿的每一页中工作。

Sub RemoveErrorsLoop()
         Dim WS_Count As Integer
         Dim I As Integer

         ' Set WS_Count equal to the number of worksheets in the active
         ' workbook.
         WS_Count = ActiveWorkbook.Worksheets.Count

         ' Begin the loop.
         For I = 1 To WS_Count
             Sheets(I).Cells.SpecialCells(xlCellTypeFormulas, xlErrors).EntireRow.Delete
         Next I

End Sub

当工作表中没有#N/A 时，我什至会添加一个错误处理程序以让代码正常工作。

         For I = 1 To WS_Count
            On Error Resume Next
               Sheets(I).Cells.SpecialCells(xlCellTypeFormulas,xlErrors).EntireRow.Delete
            On Error GoTo 0
         Next I

推荐阅读