12
返回列表 上一主題 發帖

[發問] 不連續的資料範圍抓取

terow5310

帖子
1 
主題
0 
精華
0 
積分
7 
點名
0  
作業系統
win 7 
軟體版本
專業版 
閱讀權限
10 
性別
男 
註冊時間
2013-8-28 
最後登錄
2013-9-3 
11# 跳轉到 »
發表於 2013-8-29 17:08 | 只看該作者
大大感謝你的分享~~~

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
12#
發表於 2013-9-1 21:50 | 只看該作者
Range("A2:C" & Cells.SpecialCells(11).Row).Select
[b]Kubi[/b]

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
13#
發表於 2013-9-2 08:32 | 只看該作者
回復 12# Kubi


這個真的厲害！可以順便請教一下SpecialCells(11)這是什麼意思嗎？

TOP

Kubi

帖子
163 
主題
1 
精華
0 
積分
170 
點名
0  
作業系統
Window 7 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-9-5 
最後登錄
2022-7-20 
14#
發表於 2013-9-2 09:28 | 只看該作者
也可再簡化：
Range("A2", Cells.SpecialCells(11)).Select

SpecialCells(11)=SpecialCells(xlCellTypeLastCell)
[b]Kubi[/b]

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
15#
發表於 2013-9-2 10:17 | 只看該作者
回復 13# owen06




感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
16#
發表於 2013-9-2 13:09 | 只看該作者
SpecialCells(11) = SpecialCells(xlCellTypeLastCell)
工作表使用範圍的最右下角。
SpecialCells(11).Row參數可在不論那一欄的資料多都可取得最大列號
但還是有盲點，當刪除某些資料後，最大列號還是不會改變！

TOP

GBKEE

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

2017 雞年全勤獎章2016猴年全勤獎章2015羊年全勤獎章2014馬年全勤獎章2013蛇年全勤獎章2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章2011兔年全勤獎章
17#
發表於 2013-9-2 15:10 | 只看該作者
但還是有盲點，當刪除某些資料後，最大列號還是不會改變！oobird 發表於 2013/9/2 13:09
  1. Option Explicit
  2. Sub Ex()
  3.     Range("A2", UsedRange.SpecialCells(11)).Select
  4. End Sub
複製代碼
感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限,  一天1元的贊助,人人有能力.

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

帖子
396 
主題
12 
精華
0 
積分
425 
點名
1  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
20 
性別
男 
來自
台中 
註冊時間
2013-7-2 
最後登錄
2024-8-23 

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
18#
發表於 2013-9-3 10:35 | 只看該作者
恩~你們實在都好厲害！讓我獲益良多
用版主的語法後，的確就都OK了
如果要指定欄位的話，就用KUBI大教的：
Range("A2:C" & UsedRange.SpecialCells(11).Row).Select

TOP

        靜思自在 : 【行善要及時】行善要及時，功德要持續。如燒開水一般，未燒開之前千萬不要停熄火候，否則重來就太費事了。
12
返回列表 上一主題