Excel中VBA筛选特定内容迁移到新sheet

一、背景

checklist中有多个工作表，对每个工作表筛选出fail项进行查看，费时费力

二、实现思路

在excel中编写VBA脚本，遍历每个表并进行筛选失败项，将fail项汇总到failResult表中

三、具体实现

'Private Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)
Sub 宏1()



'添加注释
Application.ScreenUpdating = False
'
Application.DisplayAlerts = False
  
' test2 宏
'Dim sheetCount As Integer
Dim resultSheetName As String
    Dim searchResultLocation As String
    'Dim sheetCopyRange As String
    'Dim sheetPasteRange As String
    
    Dim judge, currentSheetName As Excel.Worksheet, s$
    
    'Dim colmunsCount As Integer
    'Dim rowsCount As Integer
    'fail result name
    Dim FRN As String
        '判断是否存在failResult文件夹
         FRN = "failResult"
        s = "failResult"
        Set judge = CreateObject("Scripting