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

SunshineBoyLuXing

已于 2022-05-01 10:32:37 修改

阅读量7.2k

点赞数 2

分类专栏：工作相关文章标签： excel vba 筛选简化操作脚本

于 2022-05-01 10:30:17 首次发布

本文链接：https://blog.csdn.net/qq_38801934/article/details/124523635

版权

本文介绍如何通过Excel中的VBA脚本来实现批量筛选工作表中的fail内容，并将其汇总到新的工作表中，从而简化操作。步骤包括编写VBA脚本，导入宏，执行脚本以及遇到问题的解决办法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

一、背景

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