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

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

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

　暱稱: 阿軒

中學生 Rank: 2

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

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: 4

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

2^#

發表於 2013-8-14 09:58 | 只看該作者

回復 1# owen06
資料是否包含整列空白？

　暱稱: 阿軒

中學生 Rank: 2

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

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

3^#

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

回復 2# stillfish00

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

大學生 Rank: 4

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

4^#

發表於 2013-8-14 11:21 | 只看該作者

本帖最後由 stillfish00 於 2013-8-14 11:24 編輯

回復 3# owen06

Dim lMaxRow As Long
With ActiveSheet
lMaxRow = Application.WorksheetFunction.Max(.[A65535].End(xlUp).Row, _
.[B65535].End(xlUp).Row, _
.[C65535].End(xlUp).Row)
.Range("A2:C" & lMaxRow).Select
End With

複製代碼

　暱稱: 阿軒

中學生 Rank: 2

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

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

5^#

發表於 2013-8-14 12:15 | 只看該作者

回復 4# stillfish00

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

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

6^#

發表於 2013-8-14 12:18 | 只看該作者

用 usedrange 試一下

ss

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

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

論壇貢獻勳章

7^#

發表於 2013-8-14 13:31 | 只看該作者

可用find方法快速找到最大列號與最大欄號

r = Cells.Find("*", , , , 1, 2).Row
c = Cells.Find("*", , , , 2, 2).Column
Range(Cells(2, 1), Cells(r, c)).Select

複製代碼

　暱稱: 阿軒

中學生 Rank: 2

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

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

8^#

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

回復 6# sunnyso

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

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

高中生 Rank: 3 Rank: 3

帖子: 605
主題: 92
精華: 0
積分: 648
點名: 0
作業系統: windows
軟體版本: 7
閱讀權限: 50
性別: 男
來自: macau
註冊時間: 2013-4-5
最後登錄: 2019-2-10

熱烈參與勳章好學求知勳章

9^#

發表於 2013-8-14 15:49 | 只看該作者

usedrange + offset + resize

ss

大學生 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

靜思自在 : 為自己找藉口的人永遠不會進步。

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