excel vba多条件查找:vba多条件查找公式[朗读]

使用fornext将n个条件用&连接为1个条件,提高查找速度。

为什么非要用vba呢用条件格式不就可以了吗?例如l1,新建规则,选择使用公式设置单元格格式,公式=countif(l:l,l1)>1,设置好符合条件的填充色l:l根据实际情况选择范围就可以了？

submacro1()dimxrngasrange,firstrngasrangeifleft(range(＂a1＂),3)=＂d1[＂thensetfirstrng=range(＂a1＂)elsesetfirstrng=cells.find(＂d1[＂)endifsetxrng=cells.find(＂d1[＂,firstrng)ifxrngisnothingthenmsgbox＂没有了＂elsemsgboxxrng.rowendifendsub。

subaddrows()dimcasintegerforc=1to4activesheet.rows(6).insertshift:=xldownnextendsub。

在e1起输出结果subtest()setd=createobject(＂scripting.dictionary＂)r=range(＂a65536＂).end(xlup).rowarr=range(＂a1:c＂&r)fori=1torifarr(i,1)=＂。