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

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、点击工具栏中的执行，

这样就可以了。

“otg是oh.the.go的缩写，主要用于各种不同设备或移动设备之间的连接，进行数据交换。通过otg，usb接口配件可以扩展到智能终端。从而丰富智能终端的功能。OTG是USB实现者论坛于2001年12月18日发布的USB 2.0规范的补充标准。OTG是On-The-Go的缩写，是近年来发展起来的一种技术。由USB标准化组织于2001年12月18日发布，主要用于连接不同设备或移动设备进行数据交换。

---