如何在100多个工作表中筛选数据？

发布网友 发布时间：2022-03-06 23:43

我来回答

共6个回答

懂视网 时间：2022-03-07 04:04

产品型号：Dell 灵越5000

系统版本：Windows 10

软件版本：Microsoft Office Excel 2020

1、打开电脑上的Excel，选中需要筛选的数据。

2、点击右上角的筛选功能，选择需要筛选的内容点击确定即可。

总结

1.打开Excel表格。

2.选中需要筛选的数据。

3.选择筛选。

4.找到筛选内容即可。

热心网友 时间：2022-03-07 01:12

Sub GongXu()
Dim d1 As New dictionary
Dim d2 As New dictionary
Dim rag As Range
Dim ws As Worksheet
Dim wb As Workbook
Dim newname As String
Dim arr
d1.RemoveAll
d2.RemoveAll
i% = 0
For Each ws In ThisWorkbook.Worksheets
If ws.Name = "统计" Then
For Each rag In ws.Range("F3:F" & ws.Range("F" & ws.Rows.Count).End(xlUp).Row)
If rag.Value <> "" Then
d1(UCase(rag.Value)) = rag.Value
End If
Next
Else
If ws.Range("E3").Value = "工序" Then
For Each rag In ws.Range("E4:E" & ws.Range("E" & ws.Rows.Count).End(xlUp).Row)
If rag.Value <> "" Then
d2(UCase(rag.Value)) = i%
i% = i% + 1
End If
Next
End If
End If
Next
Application.Calculation = xlCalculationManual
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Set wb = Workbooks.Add
newname = Replace(ThisWorkbook.Name, "生产统计", "效率动态观察器")
wb.SaveAs (ThisWorkbook.Path & "\" & newname)
wb.Activate
For Each ws In wb.Worksheets
If ws.Name <> "Sheet1" Then
ws.Delete
End If
Next
arr = d2.Keys
For i% = 0 To d2.Count - 1
Sheets.Add after:=Sheets(Sheets.Count)
ActiveSheet.Name = arr(i%)
Columns("O:O").NumberFormatLocal = "0.00%"
[A1:P1] = Array("日期", "产品编号", "订单编号", "订单数量", "姓名", "工序", "标准工时/PCS", "标准产量/H", "目标产量/H", "实际产量/H", "标准需求时间", "实际工作时间", "实际完成数量", "目标需求时间", "目标达成率", "合计时间")
j% = 2
For Each ws In ThisWorkbook.Worksheets
k& = ws.Range("E65536").End(xlUp).Row
If ws.Name <> "统计" Then
For Each rag In ws.Range("E3:E" & k&)
If UCase(rag.Value) = arr(i%) Then
Range("A" & j%).Value = Mid(ws.Range("A2").Value, 4)
Range("B" & j% & ":P" & j%).Value = ws.Range("A" & rag.Row & ":O" & rag.Row).Value
j% = j% + 1
End If
Next
End If
Next
Next i%
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
Application.DisplayAlerts = True
Worksheets("sheet1").Select
Columns(1).Clear
Range("A1") = "工作表名称"
For Each ws In Worksheets
Cells(Rows.Count, 1).End(xlUp).Offset(1).Value = ws.Name
Next
wb.Save
wb.Close
End Sub

热心网友 时间：2022-03-07 02:30

CTRL+F, 然后点击OPTIONS(选项），把SHEET改成WORKBOOK,即把工作表改成工作簿。即可。
不好意思，因为我的EXCEL是英文版07，所以不晓得中午翻得对不对。

热心网友 时间：2022-03-07 04:05

数据->筛选->自动筛选，选择筛选过滤的条件就可以了

热心网友 时间：2022-03-07 05:56

在“查找”里的“高级选项”选择范围是“工作薄”就可以了

热心网友 时间：2022-03-07 08:04

花点钱做个管理软件吧。

就能解决 你所有问题。一天几十个EXCEL表去算，人都疯了