数组精华

lmgz007

感谢楼主的分享，但此文已经列入知识树，所以有几个小问题需要指出来：
根据12楼提供的帖子，显然楼主并没有对原作进行深入的学习和理解，原文中的错误也照搬过来，且冠之以精华。

我仅指一例：
3.2，数组里搜索--数组精确搜索：

1.第一个错误：[a5].Resize(1, UBound(astrTemp) + 1) = Application.Transpose(astrTemp)，
  astrTemp本来就是一维数组，输出为一行不需要转置：[a5].Resize(1, UBound(astrTemp) + 1) = astrTemp即可。
2.ReDim Preserve astrTemp(lngLower To lngCount - 1)，此句纯属画蛇添足，仅拖累速度而已。
  去掉此句，只需修改一句：[a5].Resize(1, lngCount) = astrTemp即可。
3.lngLower = LBound(astrFilter)，此句多余，Filter决定了astrFilter的索引就是从0开始的。
  后面所有lngLower均用0即可。
4.如果只是为了获得代码所示的输出结果，那大多数代码都是没有任何意义的。
  下面几行即可：
  Sub FilterExactMatch()
   Dim astrFilter() As String
   Dim astrTemp() As String
   astrItems = Array("a", "sas", "s", "Sas", "s", "f", "f", "f", "f", "sas", "s", "sas", "a", "a", "Sas", "s", "s")
   strSearch = "Sas"
   astrFilter = Filter(astrItems, strSearch)
   [a5].Resize(1, UBound(astrFilter) + 1) = astrFilter
End Sub

  如果是要体现在原数组中循环查找，那 astrFilter = Filter(astrItems, strSearch)又是多余的了。

李桥贵

谢谢无私的分享。

gwjkkkkk

学习收藏。。。。