EXCEL中怎样从多个工作表中选出满足条件的所有行,并生成一个新表?

发布网友发布时间：2022-04-23 03:52

共3个回答

热心网友时间：2023-10-13 21:52

1打开需要处理的表格，按alt+f11，打开vba窗口，然后双击左侧的this sheet

在空白中输入程序：

Sub liyoushang()

Sheets(Sheets.Count).Cells.ClearContents

k = 1

For i = 1 To Sheets.Count - 1

For j = 1 To Sheets(i).Range("a6000").End(xlUp).Row

If WorksheetFunction.Trim(Sheets(i).Cells(j, 2).Text) = "B" Then 'B指公司名称，在此做相应替换

Sheets(i).Rows(j).Copy _

Destination:=Sheets(Sheets.Count).Cells(k, 1)

k = k + 1

End If

End Sub

5、点击工具栏中的执行，

就ok了。

热心网友时间：2023-10-13 21:52

如果用公式筛选的话可以这么做：
表1中f列公式填充=or(iserror(find("13",b1&c1&d1&e1,1)),iserror((find("14",b1&c1&d1&e1,1))))，
g列填充公式g2=f1
然后筛选g列筛选为false的项，剪切粘贴到表3中。表2同样做法

热心网友时间：2023-10-13 21:53

建议你把表1到10统一到一个新表中,然后用筛选或者数据透视表都可以实现你的效果