[已解决]怎么筛选行数据

mmc998 · 发表于 2015-9-25 23:28

本帖最后由 mmc998 于 2015-9-27 06:48 编辑

工作簿筛选.rar (188.97 KB, 下载次数: 18)

dsmch · 发表于 2015-9-26 06:16

自动筛选，结果只有1389行符合要求

mmc998 · 发表于 2015-9-26 07:17

dsmch 发表于 2015-9-26 06:16
自动筛选，结果只有1389行符合要求

能用代码吗

高 · 发表于 2015-9-26 07:46

本帖最后由高于 2015-9-26 07:50 编辑

这样

mmc998 · 发表于 2015-9-26 07:56

高发表于 2015-9-26 07:46
这样

能用代码吗

高 · 发表于 2015-9-26 08:18

能，但是结果是要怎样的，是把不符合条件的隐藏，还是把符合条件的放在哪，还是只要行号

mmc998 · 发表于 2015-9-26 08:33

高发表于 2015-9-26 08:18
能，但是结果是要怎样的，是把不符合条件的隐藏，还是把符合条件的放在哪，还是只要行号

符合条件的放在第二张表格

高 · 发表于 2015-9-26 09:19

工作薄筛选是在原表隐藏不符合条件的，
工作薄筛选2是在把符合条件的复制到第二个工作表的

mmc998 · 发表于 2015-9-26 22:38

高发表于 2015-9-26 09:19
工作薄筛选是在原表隐藏不符合条件的，
工作薄筛选2是在把符合条件的复制到第二个工作表的

筛选出的三个数据,前两个不符合,第三个符合

dsmch · 发表于 2015-9-27 05:30

本帖最后由 dsmch 于 2015-9-27 05:39 编辑

Sub Macro1()

Dim arr, brr, i&, j%, s%

Sheet2.UsedRange.ClearContents

Const n% = 9

arr = Sheet1.Range("K10").CurrentRegion

For i = 1 To UBound(arr)

s = 0

For j = UBound(arr, 2) - n + 1 To UBound(arr, 2)

If arr(i, j) = 1 Then s = s + 1

Next

If s = n Then

s2 = s2 + 1

Sheet1.Rows(i + 9).Copy Sheet2.Cells(s2, 1)

End If

Next

End Sub
复制代码

		自动登录	找回密码
密码			注册