資料區域右下欄位獲取

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

19^#

發表於 2010-7-29 23:41 | 只看該作者

一句搞定。
MsgBox Cells(Cells.Find("*", , , , 1, 2).Row, Cells.Find("*", , , , 2, 2).Column).Address(0, 0)

巴克斯

中學生 Rank: 2

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

18^#

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

謝謝GBKEE 版主
解說得很清楚,我想最終這是最符合我的需求了

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

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

17^#

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

回復 15# 巴克斯

若row可以直接求出,那column是否可比照找到

Sub Ex()
Dim Rng As Object, E, R, C
Set Rng = ActiveSheet.Cells.SpecialCells(xlCellTypeConstants).Areas
R = Rng(Rng.Count)(Rng(Rng.Count).Count).Row
For Each E In Rng
If E(E.Count).Column > C Then C = E(E.Count).Column
Next
MsgBox Cells(R, C).Address
End Sub

複製代碼

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

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

16^#

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

本帖最後由 GBKEE 於 2010-6-13 08:03 編輯

回復 15# 巴克斯
Areas 屬性傳回集合，此集合代表多重範圍中的所有範圍
在 Set a = Cells.SpecialCells(xlCellTypeConstants).Areas
a=集合多重範圍中的所有範圍
a.Count=計算a所有範圍中多重範圍的數量
a(a的第幾個範圍)-->a(a.Count)=a(a中最後一個範圍)
a(a中最後一個範圍).Count=計算a(a中最後一個範圍)範圍中Cells數量
a(a中最後一個範圍)(a(a中最後一個範圍).Count)->a(a中最後一個範圍)(最後一個Cell)
所以 r = a(a.Count)(a(a.Count).Count).Row 是你要的

且若row可以直接求出,那column是否可比照找到找不到的

a(a.Count) 不一定是工作表最右邊的範圍
a(a.Count) 一定是工作表最下面的範圍

另測版主k = UsedRange.SpecialCells(xlCellTypeLastCell).Column用法時

UsedRange 如沒有指明是那一工作表的已用範圍程序必須是置於作用中Sheet 的物件模組中例: 作用中的工作表是 Sheet1 程序碼須置於 Sheet1的物件模組中可行
你可能將程序置於一般模組中(Module) 或 ThisWorkbook物件模組中
你必須指明是那一工作表ActiveSheet.UsedRange 或Sheet1.UsedRange

巴克斯

中學生 Rank: 2

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

15^#

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

回復 14# GBKEE

謝謝兩位板主回覆
版主寫的程式真是精簡
雖知道a(a.Count)(a(a.Count).Count).Row是為了求最下方row
可是看不懂結構用法,是否請版主解釋一下
且若row可以直接求出,那column是否可比照找到
我試著修改如下,可是column會往前多找一格,只好先用k+1,不知為什麼??

Sub aa()
Set a = Cells.SpecialCells(xlCellTypeConstants).Areas
r = a(a.Count)(a(a.Count).Count).Row
k = a(a.Count)(a(a.Count).Count).Column
Cells(r, k + 1).Select
End Sub

複製代碼

另測版主k = UsedRange.SpecialCells(xlCellTypeLastCell).Column用法時
會有錯誤發生,請問正確用法?
我先改用k = ActiveCell.SpecialCells(xlLastCell).Column可用
謝謝

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

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

14^#

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

工作表沒有修改任一儲存格的格式前提下可使用
Sub Ex()
With ActiveSheet.UsedRange
.Cells(.Rows.Count, .Columns.Count).Select
End With
End Sub

Hsieh

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

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

13^#

發表於 2010-6-12 07:42 | 只看該作者

回復 10# 巴克斯

Sub nn()
Set a = Cells.SpecialCells(xlCellTypeConstants).Areas
r = a(a.Count)(a(a.Count).Count).Row
k = UsedRange.SpecialCells(xlCellTypeLastCell).Column
Do Until Application.CountA(Columns(k)) > 0
k = k - 1
Loop
MsgBox Cells(r, k).Address
End Sub

複製代碼

學海無涯_不恥下問

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

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

12^#

發表於 2010-6-12 07:14 | 只看該作者

回復 10# 巴克斯
試試如 Hsieh 板主所說的由後往前推

Sub Ex()
Dim Rng As Range, i&, R&, C&
Set Rng = ActiveSheet.UsedRange
For i = Rng.Columns.Count To 1 Step -1
If Application.CountA(Rng.Columns(i)) <> 0 Then
C = Rng.Columns(i).Column
Exit For
End If
Next
For i = Rng.Rows.Count To 1 Step -1
If Application.CountA(Rng.Rows(i)) <> 0 Then
R = Rng.Rows(i).Row
Exit For
End If
Next
If R <> 0 And C <> 0 Then Cells(R, C).Select
End Sub

複製代碼

巴克斯

中學生 Rank: 2

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

11^#

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

[版主管理留言]

GBKEE(2010-6-12 07:18): 打錯字可在原文按編輯再修改即可不必重新再發一次文

本帖最後由巴克斯於 2010-6-13 05:46 編輯

回復 10# 巴克斯

sorry,打錯
cells(65536,1).end(3).row到cells(cells(65536,ActiveCell.SpecialCells(xlLastCell).column).end(3).row

瞭解了,以前舊版好像不能重編輯,所以我也沒注意到,順便測試一下~