04080获取单元格区域的行数
Public Sub 4_080()
Dim myRange As Range
Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域
MsgBox "指定单元格区域的行数为 " & myRange.Rows.Count
End Sub
04081获取单元格区域的列数:
Public Sub 4_081()
Dim myRange As Range
Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域
MsgBox "指定单元格区域的列数为 " & myRange.Columns.Count
End Sub
Public Sub 4_080()
Dim myRange As Range
Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域
MsgBox "指定单元格区域的行数为 " & myRange.Rows.Count
End Sub
04081获取单元格区域的列数:
Public Sub 4_081()
Dim myRange As Range
Set myRange = ActiveSheet.UsedRange '指定任意的单元格区域
MsgBox "指定单元格区域的列数为 " & myRange.Columns.Count
End Sub