2012年7月30日 星期一

獲得最後一個非空儲存格

    獲得指定列(或欄)中最後一個非空儲存格,以下程式碼會尋找A欄的最後一個有內容的儲存格列號
Sub 找最後一個非空儲存格()
    Dim last As Range
    Set last = ActiveSheet.Range("A65536").End(xlUp)
    MsgBox last.Row
    Set last = Nothing
End Sub

沒有留言:

張貼留言