Excel 如何根据条件快速选择多个工作表，求助

发布网友 发布时间：2022-04-22 06:40

我来回答

共2个回答

热心网友 时间：2023-12-18 23:40

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、点击工具栏中的执行，
这样就可以了。

热心网友 时间：2023-12-18 23:40

用VB写代码实现

Sub test()

  Dim ws As Worksheet

  Dim r%, i%, m%

  Dim brr()

  m = 0

  For Each ws In Worksheets

    With ws

      If .Range("a1") > 0 Then

        m = m + 1

        ReDim Preserve brr(1 To m)

        brr(m) = ws.Name

      End If

    End With

  Next

  If m > 0 Then

    Worksheets(brr).Select

  End If

End Sub

具体看下实例文件