作者：绿色风
分类：
时间：2022-08-17
浏览：95
楼主
amulee |
Q：如何使自定义函数返回的数组结果自适应数组区域？
如图所示：自定义函数功能为返回指定区域的不重复值。结果以数组形式返回，其数组区域不定，要求自定义函数返回值能够自动适应数组区域。
A：Application.Caller和Application.ThisCell都可以返回自定义函数所在的单元格，在单个单元格中使用这两个对象没有任何差别。但是在区域中使用联合数组公式则两个函数返回值不同。
Application.Caller能够返回联合数组公式所在的单元格区域，而Application.ThisCell仅能返回该区域的第一个单元格。
因而，利用Application.Caller的这个属性，能够编写一个自适应的函数。代码参考如下：
- Function Unique(Rng As Range)
- Dim ArrJG() As String
- Dim d, arr, stra
- Set d = CreateObject("Scripting.Dictionary")
- ReDim ArrJG(1 To Application.Caller.Rows.Count, 1 To Application.Caller.Columns.Count)
- arr = Rng.Value
- For i = 1 To UBound(ArrJG)
- For j = 1 To UBound(ArrJG, 2)
- For Each stra In arr
- If Not d.exists(stra) Then
- d(stra) = 1
- Exit For
- End If
- Next
- ArrJG(i, j) = stra
- Next j
- Next i
- Unique = ArrJG
- End Function
 如何使自定义函数返回的数组结果自适应数组区域.rar
|
2楼
kevinchengcw |
好帖，谢谢分享！ |
3楼
水星钓鱼 |
感谢分享，thiscell这个还真没注意 |
4楼
rongjun |
感谢分享！ |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一