也許有人會說計算多少行有什麼用，我看一下邊上的數字就知道有多少行，如果是這樣學程式碼就沒什麼意義了。假如是幾百萬行、幾百萬列你還能這麼說嗎？

下面是程式碼分享

Sub yu()

Dim sr As Range, sr2%, sr3% '申明變數

Set sr = Range("a1").CurrentRegion '獲取單元格區域

sr2 = sr.Rows.Count '計算有多少行

sr3 = sr.Columns.Count '計算有多少列

Cells(1, "f") = "有 " & sr2 & " 行" '給單元格賦值

Cells(1, "h") = "有 " & sr3 & " 列" '給單元格賦值

End Sub