麻辣家族討論版版 » Excel程式區 » Range的起始結束

返回列表下一主題上一主題發帖

[發問] Range的起始結束

中學生 Rank: 2

帖子: 132
主題: 56
精華: 0
積分: 190
點名: 0
作業系統: Win10
軟體版本: Office 365
閱讀權限: 20
性別: 男
註冊時間: 2012-5-17
最後登錄: 2024-4-29

1^# 跳轉到 » 正序看帖

字體大小: tT

發表於 2015-3-30 17:05 | 只看該作者

[發問] Range的起始結束

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

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

複製代碼

樓主熱帖

收藏

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

2^#

發表於 2015-3-30 17:24 | 只看該作者

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

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

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 慈悲沒有敵人，智慧不起煩惱。

返回列表下一主題上一主題