EXCEL大牛求解答！！！

Question

现在有ABCD四列。筛选出两行xy满足一下条件：xA大于yB且x+1A小于y+1B且xC大于yD且x+1C小于y+1D。xA是指第x行第A列的数值，x+1A是指第x+1行第A列的数值。

Answer 1

用两个循环做一下匹配就可以，
Myrow 是指一共有多少行数据，这里假设有11行数据。
把以下程序拷贝到Excel的VBA编辑画面，运行一下就可以得出结果。

Sub MyCount()
Dim x As Double
Dim y As Double
Dim Myrow As Integer
Myrow = 11
For x = 1 To Myrow - 1
For y = 1 To Myrow - 1
If Cells(x, 1).Value > Cells(y, 2).Value And _
Cells(x + 1, 1).Value < Cells(y + 1, 2).Value And _
Cells(x, 3).Value > Cells(y, 4).Value And _
Cells(x + 1, 3).Value < Cells(y + 1, 4).Value Then
MsgBox "满足条件行x= " & x & " ,y= " & y
End If
Next y
Next x

End Sub

追问

能不能请问一下您的qq，我有几个问题弄不懂
想直接问问

追答

用百度h!加联系人问我吧，我现在机子里没有QQ

追问

程序点运行了什么反应都没有啊！~怎么办》

追答

你要先有数据，把程序放到数据所在sheet的VBA编辑画里面
程序是测试通过了的、运行之后没反应是运行的方法不对。是怎么运行的?

Answer 2

这样描述不如直接上图或者传附件，看着这个解释有点累

追问

能不能给个qq。我加了问你