標題: 如何在顯示資料最後一筆後~將最後一筆顯示在第2列(G大謝謝) [打印本頁]

---

作者: av8d    時間: 2012-7-12 09:35     標題: 如何在顯示資料最後一筆後~將最後一筆顯示在第2列(G大謝謝)

本帖最後由 av8d 於 2012-7-12 15:47 編輯

顯示資料最後一筆   
ActiveSheet.Range("A1048576").End(xlUp).Select

最後一筆顯示在第2列，做法就是把右邊的棒子往下拉

---

作者: GBKEE    時間: 2012-7-12 14:42

回復 1# av8d
試試看

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim xlRow As Long
   
4.     xlRow = Rows.Count
   
5.     ActiveWindow.ScrollRow = ActiveSheet.Range("A" & xlRow).End(xlUp).Row - 1  '顯示2列
   
6. End Sub

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)