主题：[求助]Excel报表 代码

’代码运行慢，结果没有数据。请大大们指点！

For r As Integer = 4 To 15
    For c As Integer = 7 To 9
        For n As Integer = 35 To 85  Step 5
            For n2 As Integer = 40 To 85 Step 5
Sheet(r, c).Value = DataTables("门诊日志").Compute("count(姓名)", "年龄 >= '"& n &"'  And 年龄 <  '"& n2 &"'  And 性别 = '男' and (收缩压 >= 140 or 舒张压 >= 90)")

            Next
        Next
    Next
Next