EXCEL中怎样从多个工作表中选出满足条件的所有行,并生成一个新表的解决方法如下:
1、打开要处理的excel文档,
2、按alt+f11,打开vba编辑窗口,
3、双击左侧的this sheet,
4、在右侧的空白中输入下面的程序
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
Next
Next
End Sub
5、点击工具栏中的执行,
这样就可以了。
温馨提示:答案为网友推荐,仅供参考