標題: [發問] (已解決)儲存格選取有點像shift效果怎麼做？ [打印本頁]

---

作者: freeffly    時間: 2012-4-23 14:08     標題: (已解決)儲存格選取有點像shift效果怎麼做？

本帖最後由 freeffly 於 2012-4-23 14:37 編輯

我想做一個動作就是選取儲存格所在的區域
如果使用CurrentRegion會選取到所有資料

原本我想用activecell向左end(xltoleft)再向下（xldown)的方式
選取所在資料那幾列
如activecell為range("N7")時我想選row("7:9")這三列資料
這樣要怎麼寫？

[attach]10603[/attach]

---

作者: freeffly    時間: 2012-4-23 14:36

本帖最後由 freeffly 於 2012-4-23 14:39 編輯

弄了好久
Rows(n & ":" & x).Select  方法一
Range(Cells(n, 1), Cells(x, 1)).EntireRow.Select 方法二
原來是要這樣寫
不過不知道有沒有比較好的方式

1. Sub Macro5()
   
2.     n = ActiveCell.End(xlToLeft).Row
   
3.     x = ActiveCell.End(xlToLeft).End(xlDown).Row
   
4.     Rows(n & ":" & x).Select
   
5. End Sub

複製代碼

---

作者: oobird    時間: 2012-4-23 14:45

Range(ActiveCell, ActiveCell.End(4)).EntireRow.Select

---

作者: freeffly    時間: 2012-4-23 15:45

回復 3# oobird

    謝謝版主
    相當簡潔
   end()裡面的數字是分別代表xlup這些，由1開始編嗎?

---

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