高级筛选

linda80200

高级筛选.zip (7.56 KB, 下载次数: 12)

2016-12-25 18:30 上传

点击文件名下载附件

详见附件，求各位老师指点，谢谢！

huang1314wei

这个手动高级筛选一下也很好做的吧

linda80200

huang1314wei 发表于 2016-12-25 20:55
这个手动高级筛选一下也很好做的吧

您好，谢谢您的回复～我也想过高级筛选，不知道条件区域怎么放。。

huang1314wei

linda80200 发表于 2016-12-25 21:15
您好，谢谢您的回复～我也想过高级筛选，不知道条件区域怎么放。。

自己151

两个条件同时满足吗？"a001".....和“a""b""c"

zhangzhang

Public Sub Test()
Dim Rng As Range
Dim arr, brr
Dim i As Long, n As Long

Set Rng = Sheets("数据源").Range("A1").CurrentRegion
Set Rng = Rng.Offset(1).Resize(Rng.Rows.Count - 1)
arr = Rng
ReDim brr(1 To UBound(arr), 1 To 2)

For i = 1 To UBound(arr)
    If (arr(i, 1) = "A01" Or arr(i, 1) = "A04" Or arr(i, 1) = "A05") And (arr(i, 2) = "A" Or arr(i, 2) = "B" Or arr(i, 2) = "C") Then
        m = m + 1
        brr(m, 1) = arr(i, 1)
        brr(m, 2) = arr(i, 2)
    End If
Next i

Range("A2").Resize(m, 2) = brr
End Sub

zhangzhang

供参考》》》》》》》》

lsc900707

Sub lsc()
    Dim i, j, arr, brr
    Sheets("Sheet2").Cells.Clear
    arr = Sheets("数据源").UsedRange
    ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
    For i = 1 To UBound(arr)
        If (arr(i, 1) = "A01" Or arr(i, 1) = "A04" Or arr(i, 1) = "A05") And _
            (arr(i, 2) = "A" Or arr(i, 2) = "B" Or arr(i, 2) = "C") Then
            j = j + 1
            brr(j, 1) = arr(i, 1): brr(j, 2) = arr(i, 2)
        End If
    Next
    Sheets("Sheet2").[a2].Resize(j, 2) = brr
    MsgBox "ok"
End Su

自己151

1. Public Sub 自己151()
   
2. Dim a%, arr, i%, j%
   
3. j = 2
   
4. a = Range("a65336").End(xlUp).Row
   
5. arr = Range("a2:b" & a)
   
6. For i = 1 To UBound(arr, 1)
   
7. If (arr(i, 1) = "A01" Or arr(i, 1) = "A04" Or arr(i, 1) = "A05") And (arr(i, 2) = "A" Or arr(i, 2) = "B" Or arr(i, 2) = "C") Then
   
8. Sheet2.Cells(j, 1) = arr(i, 1)
   
9. Sheet2.Cells(j, 2) = arr(i, 2)
   
10. j = j + 1
    
11. End If
    
12. Next i
    
13. End Sub
    

复制代码

莫离Ta

EH果真强大，想学的都可以找到，了解一下