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

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

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

　暱稱: 阿軒

中學生 Rank: 2

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

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
點名: 0
作業系統: 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

超級版主 Rank: 8 Rank: 8

帖子: 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

Option Explicit
Sub Ex()
Range("A2", UsedRange.SpecialCells(11)).Select
End Sub

複製代碼

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

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 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參數可在不論那一欄的資料多都可取得最大列號
但還是有盲點，當刪除某些資料後，最大列號還是不會改變！

超級版主 Rank: 8 Rank: 8

帖子: 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元的贊助,人人有能力.

中學生 Rank: 2

帖子: 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]

　暱稱: 阿軒

中學生 Rank: 2

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

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

13^#

發表於 2013-9-2 08:32 | 只看該作者

回復 12# Kubi

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

中學生 Rank: 2

帖子: 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]

小學生 Rank: 1

帖子: 1
主題: 0
精華: 0
積分: 7
點名: 0
作業系統: win 7
軟體版本: 專業版
閱讀權限: 10
性別: 男
註冊時間: 2013-8-28
最後登錄: 2013-9-3

11^#

發表於 2013-8-29 17:08 | 只看該作者

大大感謝你的分享~~~

大學生 Rank: 4

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

10^#

發表於 2013-8-14 16:56 | 只看該作者

回復 7# oobird
好方法，通用!

回復 8# owen06
表頭不是問題，可以其他方法截掉，
usedrange主要問題是其他儲存格有動過格式就可能會包含
例如儲存格底色設定無填滿也會含在內。

如果確定不會動到，才可使用usedrange

靜思自在 : 滴水成河。粒米成蘿，勿輕己靈，勿以善小而不為。

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