VBA抢答：筛选工作表数组的自定义函数

liuguansky

1. Function myarr(ar, t As String)<br/>&nbsp;&nbsp;&nbsp; If IsArray(ar) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; For i = LBound(ar) To UBound(ar)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; If Application.Evaluate("=" &amp; ar(i) &amp; t) Then<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ar(i) = ar(i) &amp; vbTab<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; Next i<br/>&nbsp;&nbsp;&nbsp; End If<br/>&nbsp;&nbsp;&nbsp; myarr = Filter(ar, vbTab)<br/>&nbsp;&nbsp;&nbsp; Application.Volatile<br/>End Function

复制代码

<br/>[em03]

dongqing1998

先看一下别人的

青城山苦丁茶

偷窥偷窥

thmmy

<p>弄好多次都不行，只好用两个循环，哎</p><p><br/></p>

saomai

<p>前来取经</p><p></p><p></p><p></p>

E-H-P

都是来学习的。

amulee

<p>来晚了。。。。</p><p>

游客，如果您要查看本帖隐藏内容请回复

</p>

zhxsky

俺是来学习的。

欢欢

看看看看看看

ksjbt

学习一下。。。谢谢