如何應(yīng)用Range對象的UsedRange屬性解決問題
發(fā)布時(shí)間:2022-11-04 10:19 [ 我要自學(xué)網(wǎng)原創(chuàng) ] 發(fā)布人: 秋文-27173 閱讀: 1342

1.求活動工作表中已使用區(qū)域包含的行數(shù):

Sub 包含的行數(shù)()
MsgBox "包含的行數(shù)為:" & ActiveSheet.UsedRange.Rows.Count
End Sub

2. 求活動工作表中已使用區(qū)域包含的列數(shù):

Sub 包含的列數(shù)()
MsgBox "包含的列數(shù)為:" & ActiveSheet.UsedRange.Columns.Count
End Sub

3. 求活動工作表中已使用區(qū)域包含的單元格個(gè)數(shù):

Sub 包含的單元格個(gè)數(shù)()
MsgBox "包含的單元格個(gè)數(shù)為:" & ActiveSheet.UsedRange.Cells.Count
End Sub

4. 求活動工作表中已使用區(qū)域第一列和最后一列列號:

Sub 首列和末列號()
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
MsgBox "首列列號為:" & Rng.Cells(1).Column
MsgBox "末列列號為:" & Rng.Cells(Rng.Cells.Count).Column
End Sub

5.求活動工作表中已使用區(qū)域第一行和最后一行行號:

Sub 首行和末行號()
Dim Rng As Range
Set Rng = ActiveSheet.UsedRange
MsgBox "首行行號為:" & Rng.Cells(1).Row
MsgBox "末行行號為:" & Rng.Cells(Rng.Cells.Count).Row
End Sub

Excel VBA入門教程2020
我要自學(xué)網(wǎng)商城 ¥60 元
進(jìn)入購買
文章評論
添加表情
遵守中華人民共和國的各項(xiàng)道德法規(guī),
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。
V
特惠充值
聯(lián)系客服
APP下載
官方微信
返回頂部
分類選擇:
電腦辦公 平面設(shè)計(jì) 室內(nèi)設(shè)計(jì) 室外設(shè)計(jì) 機(jī)械設(shè)計(jì) 工業(yè)自動化 影視動畫 程序開發(fā) 網(wǎng)頁設(shè)計(jì) 會計(jì)課程 興趣成長 AIGC