Excel 函數與 VBA - Android 台灣中文網

點擊文件名下載附件
目前作用中單一儲存格 ActiveCell.Address  例如 $H$4
☆抓最後(底)一筆資料的列號。從起始點觀看，向下(Down)盡頭(End)的最後一筆資料(非空白)所在列號數字(row)
            ActiveCell.End(xlDown).row

☆抓最後(右)一筆資料的欄號。從起始點觀看，向右(ToRight)盡頭(End)的最後一筆資料(非空白)所在欄號數字(column)
column 回傳數字，計算控制迴圈範圍 ☆英文轉數字例如 6 = F
            ActiveCell.End(xlToRight).column

目前被框選的儲存格範圍（最左上角起始點儲存格～最右下結束儲存格）Selection.Address 例如 $H$4:$J$8
（起始 = ActiveCell.Address）形成一個陣列範圍  ，
            Dim SelectStr
            Dim SelectAll() As String
            SelectStr = Selection.Address
            SelectAll() = Split(SelectStr, ":") "分割字串
            Debug.Print SelectAll(0) "左上角起始儲存格 = ActiveCell.Address
            Debug.Print SelectAll(1) "右下角結束儲存格
            Selection.Rows.Count "計算框選範圍內有幾列
            Selection.Columns.Count    "計算框選範圍內有幾欄
   ☆ Ranges 轉Cells (靈活運用寫迴圈) +偏移 Offset(x,y) " x= 列 y = 欄

【Excel 基礎教學 PAPAYA 電腦教室】