Question

我对这个话题进行了大量的研究，但到目前为止还没有运气。我有适度的编程经验。

那说我的问题是从列中读取数据并删除工作表，如果某些文本被读取47次。

在列“ L ”文本（“ n / m ”）重复47次。文本始终从第14行开始，一直持续到第70行。在该范围内，有空格和的 “--------”

如果该列有47个“ n / m ”，则可以删除工作表并且对包含大约40到100个工作表的整个工作簿应用/重复。

我的代码：

首先尝试不起作用

Sub DeletingBlankPages()
Dim Ws As Worksheet
Dim nm As Range

Set nm = Ws.Range(Columns("12"))
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Worksheets
nm.Select

If nm Is "n/m" Then
    Application.DisplayAlerts = False
Ws.Delete
Application.DisplayAlerts = True
End If
Next Ws
End Sub

第二次尝试仍然没有工作

Sub DeleteRowBasedOnCriteria()
Dim Ws As Worksheet
For Each Ws In ActiveWorkbook.Worksheets
  Application.DisplayAlerts = False

If Range(Columns("12")).Value < 47 > "n/m" _
Then _
    Ws.Delete
    Application.DisplayAlerts = True

End If

Next Ws
End Sub

如果您有任何经验知道如何解决此问题，请回复。谢谢

Answer 1

试试这个：

Sub DeleteRowBasedOnCriteria()
Dim Ws As Worksheet
Dim Counter As Integer

Application.DisplayAlerts = False
Application.ScreenUpdating = False
For Each Ws In ActiveWorkbook.Worksheets
  Counter = 0
  For i = 14 To 70
      If Ws.Cells(i, 12) = "n/m" Then
          Counter = Counter + 1
      End If
  Next i
  If Counter >= 47 Then
      Ws.Delete
  End If
Next Ws
Application.DisplayAlerts = True
Application.ScreenUpdating = True

End Sub

Answer 2

如果我理解正确，请尝试此

Sub DeleteRowBasedOnCriteria()

Dim i As Long

For i = Sheets.Count To 1 Step -1
    If WorksheetFunction.CountIf(Sheets(i).Range("L14:L70"), "n/m") >= 47 Then
        If Sheets.Count > 1 Then
            Application.DisplayAlerts = False
            Sheets(i).Delete
            Application.DisplayAlerts = True
        Else
            MsgBox "Only 1 sheet left"
            Exit Sub
        End If
    End If
Next i

End Sub

Excel VBA：如何根据条件读取列数据并删除工作表

2 个答案: