|
楼主 |
发表于 2012-11-2 09:37
|
显示全部楼层
hwc2ycy 发表于 2012-11-2 09:28
还是加上吧。
是application的属性。 Sub 查询() '数据按行遍历
Application.ScreenUpdating = False '关闭屏幕更新
Sheets("查询").Range("a2:n65536").Clear '首先清除Sheets("查询")工作表中上回查询的历史数据
n = 2 'n指行数,因为查询表内第一行是标题,所以从第2行开始存放数据
For i = 2 To Sheets("数据源").Range("b65536").End(xlUp).Row '从Sheets("数据源")工作表的第2行开始查询
If Sheets("数据源").Cells(i, "L") > 20 And Sheets("数据源").Cells(i, "N") > 15 And Sheets("数据源").Cells(i, "h") = "男" And Sheets("数据源").Cells(i, "d") = "中级" Then ''设置查询条件,L列大于20,N列大于15,H列等于男,D列等于中级(这里可以继续增加查询条件)
Sheets("数据源").Rows(i).Copy Rows(n) '(带原数据格式)把数据源的第i行数据复制到查询表的第n行
Cells(n, "a") = n - 1 'a表示编号所在列在a列,数据是从第2行开始,所以编号就为n-1
n = n + 1 'n+1,n行已写入数据,n号往下移一行
End If
Next i
Application.ScreenUpdating = True '恢复屏幕更新
End Sub
是这样的吗老师 |
|