【VBA2007】:同时筛选A列及B列,显示条件如下的内容:A列等于1且B列等于2的数据,并复制!

[复制链接]
查看11 | 回复1 | 2013-6-9 15:16:47 | 显示全部楼层 |阅读模式
sub filter()dim arr(),brr()arr=range("A1").currentregion.valueredim brr(1 to ubound(arr),1 to ubound(arr,2))n=1for i = 1 to ubound(arr)
if arr(i,1)=1 and arr(i,2)=2 then
for j = 1 to ubound(arr,2)
brr(n,j )=arr(i,j)
next
n=n+1
end ifn...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行