[已解决]如何用循环进行多列筛选?

zhouxingyu

请教:附件中的宏代码能否优化成一个循环?多谢了!
多列筛选.zip (14.17 KB, 下载次数: 44)

2014-12-19 18:37 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

qh8600

2014-12-19 21:00

zhouxingyu 发表于 2014-12-19 20:29
完全符合要求,非常感谢!对我而言高深了点,不知用AutoFilter Field宏代码能否实现?那样我比较好理解.

1. Sub test()
   
2. For x = 1 To 9 Step 2
   
3. If x > 1 Then m = 2
   
4.     a = Cells(2, x)
   
5.     ActiveSheet.Range("$A:$i").AutoFilter Field:=x, Criteria1:= _
   
6.         "=" & a, Operator:=xlAnd
   
7. Range("a2:i" & [a65536].End(xlUp).Row).Copy Sheets("Sheet2").[a65536].End(xlUp).Offset(m, 0)
   
8. ActiveSheet.ShowAllData
   
9. Next
   
10. End Sub

复制代码

这样

跳转到最佳答案楼层

qh8600

1. Sub demo()
   
2.     Dim ar, br()
   
3.     ar = Range("a1").CurrentRegion
   
4.     ReDim br(1 To 60000, 1 To UBound(ar, 2))
   
5.     For x = 1 To UBound(ar, 2) Step 2
   
6.         For i = 1 To UBound(ar)
   
7.             If ar(i, x) = ar(2, x) Then
   
8.                 n = n + 1
   
9.                 For j = 1 To UBound(ar, 2)
   
10.                     br(n, j) = ar(i, j)
    
11.                 Next
    
12.             End If
    
13.         Next
    
14.         n=n+1
    
15.     Next
    
16.     Sheets("sheet2").Range("a1").Resize(n, UBound(br, 2)) = br
    
17. End Sub
    

复制代码

附件楼下

qh8600

多列筛选.rar (15.23 KB, 下载次数: 58)

2014-12-19 20:17 上传

点击文件名下载附件
楼主试试

zhouxingyu

qh8600 发表于 2014-12-19 20:17
楼主试试

完全符合要求,非常感谢!对我而言高深了点,不知用AutoFilter Field宏代码能否实现?那样我比较好理解.

qh8600

zhouxingyu 发表于 2014-12-19 20:29
完全符合要求,非常感谢!对我而言高深了点,不知用AutoFilter Field宏代码能否实现?那样我比较好理解.

1. Sub test()
   
2. For x = 1 To 9 Step 2
   
3. If x > 1 Then m = 2
   
4.     a = Cells(2, x)
   
5.     ActiveSheet.Range("$A:$i").AutoFilter Field:=x, Criteria1:= _
   
6.         "=" & a, Operator:=xlAnd
   
7. Range("a2:i" & [a65536].End(xlUp).Row).Copy Sheets("Sheet2").[a65536].End(xlUp).Offset(m, 0)
   
8. ActiveSheet.ShowAllData
   
9. Next
   
10. End Sub

复制代码

这样

zhouxingyu

qh8600 发表于 2014-12-19 21:00
这样

这样我就完全理解了.两个解答都非常满意,太谢谢你了!