久久久久久久999_99精品久久精品一区二区爱城_成人欧美一区二区三区在线播放_国产精品日本一区二区不卡视频_国产午夜视频_欧美精品在线观看免费

 找回密碼
 立即注冊(cè)

QQ登錄

只需一步，快速開始

搜索
查看: 2388|回復(fù): 0
打印 上一主題 下一主題
收起左側(cè)

用VBA自定義函數(shù)獲取最后非空單元格的行序

[復(fù)制鏈接]
跳轉(zhuǎn)到指定樓層
樓主
ID:75926 發(fā)表于 2015-4-3 23:21 | 只看該作者 回帖獎(jiǎng)勵(lì) |倒序?yàn)g覽 |閱讀模式
獲取最后一非空單元格的行序或列序除了可以直接引用外還可以自定義函數(shù)來(lái)實(shí)現(xiàn)：

Public Function End_Col(rag As Range) As Integer'自定義函數(shù)獲取最后非空單元格的行序-
'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-

分享到:  QQ好友和群QQ好友和群 QQ空間QQ空間 騰訊微博騰訊微博 騰訊朋友騰訊朋友
收藏收藏 分享淘帖 頂頂 踩踩
回復(fù)

使用道具 舉報(bào)

本版積分規(guī)則

手機(jī)版|小黑屋|51黑電子論壇 |51黑電子論壇6群 QQ 管理員QQ:125739409;技術(shù)交流QQ群281945664

Powered by 單片機(jī)教程網(wǎng)

快速回復(fù) 返回頂部 返回列表
主站蜘蛛池模板： 免费国产视频在线观看 | 国产精品一区一区 | 日韩免费视频一区二区 | 天天综合久久 | www.9191| 99国产精品久久久久久久 | 欧美一级艳情片免费观看 | 视频1区| 亚洲欧美第一视频 | 久久免费大片 | 久久99蜜桃综合影院免费观看 | 911精品美国片911久久久 | 韩日精品一区 | 国产欧美在线视频 | 国产成人精品一区二区三区网站观看 | 中文字幕一区二区三区精彩视频 | 亚洲精品一区二区三区中文字幕 | 欧美成人不卡 | 欧美一级做a爰片免费视频 国产美女特级嫩嫩嫩bbb片 | 日韩一二区在线 | 日本成人中文字幕 | 亚洲第1页 | 日韩欧美一区二区三区在线播放 | 国产精品免费一区二区三区四区 | 成人性视频在线播放 | 国产成人精品久久二区二区91 | 国产一区在线免费观看视频 | 黄页网址在线观看 | 三区四区在线观看 | 日本 欧美 国产 | 久久亚洲一区 | 久久亚洲欧美日韩精品专区 | 国产欧美精品在线观看 | 视频在线亚洲 | 日本久久久久久 | 国产日韩精品久久 | 中文字幕一区二区三区精彩视频 | 亚洲欧美日韩精品久久亚洲区 | av片在线观看网站 | 欧美一级二级三级视频 | 狠狠婷婷综合久久久久久妖精 |