## Range.End 函數 下面的程式碼取得第1欄的最後一列 ```vb= Dim end_row As Long end_row = Cells(Rows.Count, 1).End(xlUp).Row ```