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

shwanghuafeng

比如A列最后一个数据是A20，B列是B565，...，L列是L357，那么每列相比，最后一行的最大值是565
我想得到这个565作为另一个变量的值，应该怎么写
dim i,n
for i=A to L
   if n>()  then
       n=()
   end if
next i
...
这样直接用列名定义i的范围好像会出错？括号内应该怎么填(能否用end(3)，能的话怎么写)？

最佳答案

月排行榜 / 总排行榜

爱疯

2015-12-18 16:50

(, 下载次数: 100)

上传

点击文件名下载附件




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



(, 下载次数: 5)

上传

点击文件名下载附件




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

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

跳转到最佳答案楼层

sry660

1. dim arr,i
   
2. arr=[a1].currentregion
   
3. for i=1 to ubound(arr)
   
4.     if ... then
   
5.      ...
   
6.     end if
   
7. next
   
8. 'ubound(arr)即是你要的最大行号
   

复制代码

shwanghuafeng

sry660 发表于 2015-12-17 12:49

谢谢大大，我尝试了一下
public sub Qst()
  dim arr
  arr=Sheet3.Range("a1").CurrentRegion
  msgbox ubound(arr)
end sub
像这样写可以运行，但如果改用function
public function Qst(a)
  dim arr
  arr=Sheet3.Range("a1").CurrentRegion
  Qst=ubound(arr)
end function
这样就不行，为什么呢？应该怎么改？

青城山苦丁茶

msgbox Range("A:L").Find("*", , , , , xlPrevious).Row

shwanghuafeng

青城山苦丁茶 发表于 2015-12-17 15:47
msgbox Range("A:L").Find("*", , , , , xlPrevious).Row

谢谢，大神帮我解决好几个问题啦，能不能再麻烦大神看一下3楼的问题？

青城山苦丁茶

shwanghuafeng 发表于 2015-12-17 20:51
谢谢，大神帮我解决好几个问题啦，能不能再麻烦大神看一下3楼的问题？

没问题呀，如果Sheet3存在的话

know

shwanghuafeng 发表于 2015-12-17 13:51
谢谢大大，我尝试了一下
public sub Qst()
  dim arr

public function Qst(a)

这个函数里的参数A 在过程里并没有用到，所以参数就是个忽悠，，

随便给一个值都能运行这个函数，只不过参数没参与而已

shwanghuafeng

青城山苦丁茶 发表于 2015-12-18 09:14
没问题呀，如果Sheet3存在的话

请看附件，一共就这俩过程，一个sub一个function，sub行但是function会显示错误
表格是新建的，所有设定都没有修改过

shwanghuafeng

know 发表于 2015-12-18 09:46
public function Qst(a)

这个函数里的参数A 在过程里并没有用到，所以参数就是个忽悠，，

我知道呀，这个a在后面才会用到，反正也不影响嘛，请看8L哦~

爱疯

shwanghuafeng 发表于 2015-12-18 13:17
请看附件，一共就这俩过程，一个sub一个function，sub行但是function会显示错误
表格是新建的，所有设定 ...

Public Function Qst()
    Dim ar
    ar = Sheet1.Range("a1").CurrentRegion
    Qst = UBound(arr)
End Function



数组名称错误，多了个r