麻辣家族討論版版 » Excel程式區 » 不連續的資料範圍抓取

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

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

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2013-8-14 09:42 | 顯示全部帖子

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

請問我有一筆資料要選取，但是內容並沒有連續，如圖所示：

圖示.jpg

圖示.jpg

我想要自動抓取有資料的範圍，以圖來說的話就是A2:C9
我有查到版上教的Range([a2], [a65536].End(xlUp)).Select，
可是這只能抓A欄，要怎麼涵蓋到C欄我就不會了…

然後又試另一個Range("A2").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
可是這樣只能抓連續的資料，中間有空白的他就會斷掉了@@
想請教該怎麼設定，才能讓系統去判定有資料的範圍呢？煩請賜教，謝謝~

樓主熱帖

收藏

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

2^#

發表於 2013-8-14 10:10 | 顯示全部帖子

回復 2# stillfish00

S大你好，以這張圖來說的話，假設A5:C5這整列都空白，也還是整個抓取A2:C9，
然後假如B10新輸入數字，資料範圍就會變成A2:C10，
請問這有辦法達成嗎？謝謝賜教~

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

3^#

發表於 2013-8-14 12:15 | 顯示全部帖子

回復 4# stillfish00

s大謝謝你，使用ok，感恩！

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

4^#

發表於 2013-8-14 14:45 | 顯示全部帖子

回復 6# sunnyso

sunnyso大，我有用過usedrange，可是他會把表頭一起包起來，所以沒辦法符合需求，不過也謝謝你~

oobird大，你的方法使用過後也可以達成我的需求，謝謝你~

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

5^#

發表於 2013-9-2 08:32 | 顯示全部帖子

回復 12# Kubi

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

　暱稱: 阿軒

中學生 Rank: 2

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

2015羊年全勤獎章 2014馬年全勤獎章熱烈參與勳章

6^#

發表於 2013-9-3 10:35 | 顯示全部帖子

恩~你們實在都好厲害！讓我獲益良多
用版主的語法後，的確就都OK了
如果要指定欄位的話，就用KUBI大教的：
Range("A2:C" & UsedRange.SpecialCells(11).Row).Select

靜思自在 : 做該做的事是智慧，做不該做的事是愚癡。

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