可以在 模組 中,建立下列程式碼
Function GetSelectedRows()
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Cells(1, "B") = Range(Selection, Selection.End(xlDown)).Count
End Function
可以直接運行,或是再加設一個按鈕在 Sheet 上,讓該按鈕執行 GetSelectedRows()。
也可參考http://pertonchang.blogspot.tw/2011/09/excel-vba.html#links