用range("o65536").end(xlup).row即可獲取o列的最後一個非空單元格的行數

關於此例中用到的End的相關知識：

Range物件有一個End屬性，在別人的例子裡經常會看到如“[A65536].End(xlUp).Row”這樣的語句，這就是End屬性的利用。

　　End屬性應用於Range物件，同樣也返回一個Range物件。該物件代表包含源區域的區域結尾處的單元格。如果還是不明白，那可以在工作表裡試一試，分別按Ctrl+上、下、左、右方向鍵，看看得到的是什麼。End屬性返回的單元格就相當於在源單元格按住Ctrl鍵+上（或下、左、右）方向鍵所得到的單元格。它的語句格式簡單寫為：

　　源區域.End（移動方向）

　　移動方向可以是：

　　xlToLeft ：向左移動，相當於在源區域按Ctrl+左方向鍵。

　　xlToRight：向右移動，相當於在源區域按Ctrl+右方向鍵。

　　xlUp：向上移動，相當於在源區域按Ctrl+上方向鍵。

　　xlDown：向下移動，相當於在源區域按Ctrl+下方向鍵。

　　所以在程式設計的過程中，很多人喜歡用“[A65536].End(xlUp).Row”語句來返回A列的最後一個非空單元格的行號。

　　如果當前活動工作表的A列填寫的是學生的姓名，現在想在表中A列最後一個學生的後面增加一個叫“張三”的學生，則程式碼為：

　　ActiveSheet.Cells([A65536].End(xlUp).Row + 1, 1).Value = "張三"

語句 [A65536].End(xlUp).Row + 1中，行號加1的目的是在最後一個非空單元格的下一個單元格里輸入資料。需要注意的是：如果A列全為空的話，“[A65536].End(xlUp).Row”這個語句返回的是1。