断断续续学了快半年，还是搞不定复杂筛选程序，求大神相助

link-k

Sub fhxy()
Dim arr, rng As Range
On Error Resume Next
arr = Sheets("数据源").Range("a1").CurrentRegion
Sheet4.Activate
s1 = [b1]: s2 = [b2]
For x = 2 To UBound(arr)
    If arr(x, 3) < s2 And arr(x, 3) > s1 Then
        With Sheets("数据源")
            If rng Is Nothing Then
                Set rng = .Range(.Cells(x, 1), .Cells(x, 10))
            Else
                Set rng = Union(rng, .Range(.Cells(x, 1), .Cells(x, 10)))
            End If
        End With
    End If
Next x
If Not rng Is Nothing Then
   rng.Copy Range("c1")
End If
End Sub
有点符合需求，但是变量是range,应该是要返回object,再想想吧