欧美极品高清xxxxhd,国产日产欧美最新,无码AV国产东京热AV无码,国产精品人与动性XXX,国产传媒亚洲综合一区二区,四库影院永久国产精品,毛片免费免费高清视频,福利所导航夜趣136

標題: 用VBA自定義函數獲取最后非空單元格的行序 [打印本頁]

作者: xiaos 時間: 2015-4-3 23:21
標題: 用VBA自定義函數獲取最后非空單元格的行序
獲取最后一非空單元格的行序或列序除了可以直接引用外還可以自定義函數來實現：

Public Function End_Col(rag As Range) As Integer'自定義函數獲取最后非空單元格的行序-
'ActiveCell.Row-
Dim aa As Integer-
-
For Each temp In rag-
If temp.Value <> "" Then-
aa = temp.Row'獲取行序-
'aa=temp.column'獲取列序-
End If-
Next temp-
End_Col = aa-
End Function-
-
示例:-
只有B23非空,則End_Col(A2:B100)=23-

歡迎光臨 (http://www.raoushi.com/bbs/)