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
承擔(dān)因您的行為而導(dǎo)致的法律責(zé)任,
本站有權(quán)保留或刪除有爭議評論。
參與本評論即表明您已經(jīng)閱讀并接受
上述條款。