你问题有点不明确。。。。你先看看这个
Sub cx() Dim astring For i = 2 To 10 If Cells(i, 1) > 20 And Cells(i, 2) < 170 Then astring = astring & " " & i End If Next i MsgBox "第" & astring & "行符合条件"End Sub
同样 if 多条件判断 按实际问题处理
