資料區域右下欄位獲取

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

2^#

發表於 2010-6-11 08:08 | 只看該作者

SpecialCells(xlLastCell)
除非原範圍是被clear或delete
就是連同格式清除
否則excel仍認為該範圍已使用
用CurrentRegion屬性試試

學海無涯_不恥下問

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

3^#

發表於 2010-6-11 08:17 | 只看該作者

本帖最後由 GBKEE 於 2010-6-11 13:07 編輯

回復 1# 巴克斯

SpecialCells(xlLastCell)永遠是工作表中已使用的儲存格之最後一個的儲存格

Sub Ex() 'ActiveCell只要位於一連續範圍中
Dim Rng As Range
Set Rng = ActiveCell.CurrentRegion
Rng(Rng.Rows.Count, Rng.Columns.Count).Select
End Sub

複製代碼

帖子: 32
主題: 9
精華: 0
積分: 122
點名: 0
作業系統: WINXP
軟體版本: Office XP
閱讀權限: 20
性別: 男
註冊時間: 2010-5-14
最後登錄: 2024-3-20

4^#

發表於 2010-6-11 12:43 | 只看該作者

回復 Hsieh

SpecialCells(xlLastCell)永遠是工作表中已使用的儲存格之最後一個的儲存格
GBKEE 發表於 2010-6-11 08:17

謝謝兩位板主回覆
可是是不是可以不管ActiveCell有沒有在連續區域,都可找到右下角區域
我試著把資料弄得更亂些,請問如何找到右下角橘色位置?
謝謝

Book1.rar (6.29 KB)

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

5^#

發表於 2010-6-11 13:11 | 只看該作者

For Each a In Range(Cells.SpecialCells(xlCellTypeConstants).Address)
If a.Row > r Then r = a.Row
If a.Column > k Then k = a.Column
Next
MsgBox Cells(r, k).Address

學海無涯_不恥下問

GBKEE

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

6^#

發表於 2010-6-11 13:32 | 只看該作者

回復 4# 巴克斯

Sub Ex()
Dim E As Range, R&, C&
For Each E In Cells.SpecialCells(xlCellTypeConstants).Areas
If E(E.Rows.Count, E.Columns.Count).Row > R Then R = E(E.Rows.Count, E.Columns.Count).Row
If E(E.Rows.Count, E.Columns.Count).Column > C Then C = E(E.Rows.Count, E.Columns.Count).Column
Next
Cells(R, C).Select
End Sub

複製代碼

帖子: 32
主題: 9
精華: 0
積分: 122
點名: 0
作業系統: WINXP
軟體版本: Office XP
閱讀權限: 20
性別: 男
註冊時間: 2010-5-14
最後登錄: 2024-3-20

7^#

發表於 2010-6-11 20:07 | 只看該作者

回復 6# GBKEE

謝謝兩位板主提供Cells.SpecialCells(xlCellTypeConstants)的用法
又多學了一種用法,一種是由區域內各非空白欄位找出最右及最下位置
一種是由區域內各連續區塊的右下,逐一找出最右及最下位置,
於小資料測試ok,可是當我用到資料多且複雜區域時
因為需逐欄位去檢測位置,就掛在那裡

只好另想辦法,試著也從SpecialCells(xlLastCell),但從外部倒找回去
請版主指教,謝謝

book1.rar (12.31 KB)

Hsieh

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 255
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-11-25

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章

8^#

發表於 2010-6-11 23:24 | 只看該作者

回復 7# 巴克斯

由後往前推

Sub NN()
Set Rng = Sheet1.UsedRange
r = Rng.Rows.Count
k = Rng.Columns.Count
Do Until Application.CountA(Rng.Columns(k)) <> 0
k = k - 1
Loop
Do Until Application.CountA(Rng.Rows(r)) <> 0
r = r - 1
Loop
MsgBox Cells(r, k).Address
End Sub

複製代碼

學海無涯_不恥下問

帖子: 32
主題: 9
精華: 0
積分: 122
點名: 0
作業系統: WINXP
軟體版本: Office XP
閱讀權限: 20
性別: 男
註冊時間: 2010-5-14
最後登錄: 2024-3-20

9^#

發表於 2010-6-12 05:19 | 只看該作者

回復 8# Hsieh

謝謝Hsieh版主回應,我本來也想使用counta來往前推
可是不會使用,現在又學了一種用法
這一帖獲益良多,感謝

帖子: 32
主題: 9
精華: 0
積分: 122
點名: 0
作業系統: WINXP
軟體版本: Office XP
閱讀權限: 20
性別: 男
註冊時間: 2010-5-14
最後登錄: 2024-3-20

10^#

發表於 2010-6-12 05:38 | 只看該作者

回復 9# 巴克斯

不過剛剛又想到,先前測試也有用過類似從外往內找的方法
但如果也是資料異動多的時候(ex:從30000筆變1000筆)
這時候用counta找到非空白row還是必須找29000次
所以覺得若要適合多資料狀況
可能還是從cells(65536,1).end(3).row到cells(cells(65536,ActiveCell.SpecialCells(xlLastCell).column).row,找到最大row
頂多不會超過256次