数组精华

cunfu2010

感谢楼主，学习了

yzgx201

不错，学习了

yzgx201

vba真强大~

正月庚寅

学习一下~~~

zhougencai

谢谢楼主分享！！！

用心修炼

感谢楼主无私奉献的分享

qinnengbuzhuo

谢谢楼主分享

adud

写得不错，值得学习

wgh402

如果将单元格相对引用公式保存到数组

arr = [a4:c8].FormulaR1C1

如果a5=B4+1

[e4:g8]=arr     此时e5中的公式就＝E4+1;


最后一名中的=E4+1 应该是=F4+1

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)又是多余的了。