[已解决]【怎么写】寻找A列至L列中最远的非空单元格的行号

青城山苦丁茶

以前还真没注意，在不同地方引用自定义函数，其中用到的CurrentRegion所得到的结果居然是不同的，怪事，怎么回事呢？

shwanghuafeng

爱疯 发表于 2015-12-18 14:41
Public Function Qst()
    Dim ar
    ar = Sheet1.Range("a1").CurrentRegion

此处手滑，去掉多余的r还是不行，依然是#value

爱疯

Function test1()
    Dim ar
'    ar = Sheets(1).Range("a1").Resize(20, 1)    '绝对可以，arr必定是数组，函数返回值必定不会发生错误。
    ar = Sheets(1).Range("a1").CurrentRegion    '可能出错
'    ar = Sheets(1).UsedRange                    '可能出错
    test1 = UBound(ar)
'    test1 = 123
End Function

Sub test2()
    Dim arr
    arr = Sheet1.Range("a1").CurrentRegion
    MsgBox UBound(arr)
End Sub

Sub test3()
    MsgBox test1()
    '当出现在子过程里时，Range("a1").CurrentRegion，或 Sheets(1).UsedRange ，可以是数组。
End Sub

Function test4()
    test4 = Range("a1").CurrentRegion    '11楼
    '至少说明，当出现在本过程里时，系统认为：Range("a1").CurrentRegion 等同于A1单元格。
    '也就是说，即使是数组，也只看作一个数值。（也许系统认为这是能确保安全吧）
    '那么对于test1中的 Ubound(ar)，也就视为 类型不匹配
End Function

Function test5()
    test5 = [a1]
End Function



D7单元格2.rar (13.2 KB, 下载次数: 5)

2015-12-18 16:49 上传

点击文件名下载附件




1）类似帖：http://www.excelpx.com/thread-326147-1-1.html

2）个人觉得，通过CurrentRegion、UsedRange等方式来获取一个数组，不是“绝对安全”的方式。
     系统对此作何解释，我还是没找到相关说明。

know

shwanghuafeng 发表于 2015-12-18 15:32
此处手滑，去掉多余的r还是不行，依然是#value

在工作表中使用自定义函数是会有很多限制的

shwanghuafeng

青城山苦丁茶 发表于 2015-12-18 15:03
以前还真没注意，在不同地方引用自定义函数，其中用到的CurrentRegion所得到的结果居然是不同的，怪事，怎么 ...

13L做出了解释，你看看能不能参考解决你的问题，我回头再仔细想想，这帖我先结了，谢谢回答

shwanghuafeng

爱疯 发表于 2015-12-18 16:50
Function test1()
    Dim ar
'    ar = Sheets(1).Range("a1").Resize(20, 1)    '绝对可以， ...

从来没想过会有这种问题，谢谢大大的耐心解答，我再想一想