[已解决]再求筛选与导出

cyj153

筛选导出生成新工作簿2.rar (41.07 KB, 下载次数: 14)

2014-3-20 10:03 上传

点击文件名下载附件 谢谢！

最佳答案

月排行榜 / 总排行榜

grf1973

2014-3-20 11:18

请看附件。

跳转到最佳答案楼层

grf1973

1. Private Sub CommandButton1_Click()
   
2.    Dim CopyRng As Range
   
3.    Dim i As Integer, PathStr As String
   
4.    Dim Flag As Boolean
   
5.    Flag = False
   
6.    With Sheet3
   
7.         arr = .[a1].CurrentRegion
   
8.         Set CopyRng = .[A1:L1]
   
9.         For i = 2 To UBound(arr)
   
10.             If arr(i, 1) = ComboBox1 And arr(i, 3) = ComboBox2 Then
    
11.                 Flag = True
    
12.                 Set CopyRng = Union(CopyRng, .Range("A" & i & ":L" & i))
    
13.             End If
    
14.         Next
    
15.    End With
    
16.    If Flag = True Then
    
17.         Workbooks.Add
    
18.         With ActiveSheet
    
19.            CopyRng.Copy .[a1]
    
20.            .Cells.EntireColumn.AutoFit
    
21.         End With
    
22.         ActiveWorkbook.SaveAs ThisWorkbook.Path & "" & ComboBox1 & "-" & ComboBox2
    
23.         ActiveWorkbook.Close
    
24.    Else
    
25.         MsgBox "无符合条件的数据"
    
26.    End If
    
27.    Application.ScreenUpdating = True
    
28. End Sub
    

复制代码

grf1973

请看附件。

锋速vba

高手，厉害！

薄荷语冰

不愧是高手，都看不懂。