选择性筛选

lvp9527

各位大仙，表1为源数据，要求在表2，符合良率在0~50之间的，从第二行开始显示，不是Vloopup那种的，中间不能有乱码，我上传的附件为很少的源数据，真实用的时候有十几万行，所以需要一行挨着一行显示，每行显示的不是单个单元格的值，还是一整行内容。

求救。
大神们。

高

几万行最好用vba,否则，公式设置好后，每次打开或者保存什么的都要用些时间。如果你在不意打开慢，请说声。大家帮你做公式。

lvp9527

高 发表于 2017-10-21 20:43
几万行最好用vba,否则，公式设置好后，每次打开或者保存什么的都要用些时间。如果你在不意打开慢，请说声。 ...

大神，我百度了一下VBA用法，看明白了，两个单元格内容求和的用法，但是百思不得其解我这个选择性筛选如何使用VBA，请大神帮忙编写公式，小弟这这里拜谢了。

我的很多良率分析报表，都是用公式套公式，电脑运行慢，所以申请的I7 CPU, 8G内存运行我的Excel统计表。
VBA我是第一次听说，具体用法我再研究一下。谢谢大神提点。

大灰狼1976

附件解压后怎么没有文件？

lvp9527

不好意思，压缩出点问题，重新上传附件。

lvp9527

大灰狼1976 发表于 2017-10-23 10:41
附件解压后怎么没有文件？

亲，我重新上传了附件。

大灰狼1976

良率0~50之间，含0和50吗？

lvp9527

大灰狼1976 发表于 2017-10-23 12:42
良率0~50之间，含0和50吗？

含

大灰狼1976

附件请测试。

1. Private Sub CommandButton1_Click()
   
2. Dim rng As Range
   
3. Set rng = Sheets(1).[a1].CurrentRegion
   
4. Application.ScreenUpdating = False
   
5. Sheets(2).[a1].CurrentRegion.Offset(1).ClearContents
   
6. With rng
   
7.   .AutoFilter Field:=7, Criteria1:=">=0", Operator:=xlAnd, Criteria2:="<=50"
   
8.   .Offset(1).Copy Sheets(2).[a65536].End(3).Offset(1)
   
9.   .AutoFilter
   
10. End With
    
11. Application.ScreenUpdating = True
    
12. End Sub

复制代码

高

请先把excel宏安全性设为低，才能运行vba.