標題: [發問] Range的起始結束 [打印本頁]

---

作者: acdx    時間: 2015-3-30 17:05     標題: Range的起始結束

假設將rngSPL選取為K4~K24
我想要找出該範圍內起始與結束的欄位(Row)
起始:rngSPL.Row
結束:rngSPL.Rows.Count + a - 1  --->有更好的寫法嗎?

1. Sub SPL()
   
2. Dim rngSPL As Range
   
3. 
   
4. On Error Resume Next
   
5. Set rngSPL = Application.InputBox(prompt:="Select Data", Type:=8)
   
6. If Err.Number <> 0 Then Exit Sub
   
7. On Error GoTo 0
   
8. a = rngSPL.Row
   
9. b = rngSPL.Rows.Count + a - 1
   
10. ...
    
11. End Sub

複製代碼

---

作者: stillfish00    時間: 2015-3-30 17:24

本帖最後由 stillfish00 於 2015-3-30 17:26 編輯

回復 1# acdx
b = rngSPL.Cells(rngSPL.count).Row
差不多，自己用習慣的就好

---

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