不連續的資料範圍抓取 - Excel程式區

terow5310

小學生 Rank: 1

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

11^# 跳轉到 »

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

大大感謝你的分享~~~

TOP

Kubi

中學生 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]

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

13^#

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

回復 12# Kubi

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

TOP

Kubi

中學生 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]

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

oobird

　頭銜: 街友一族

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

TOP

GBKEE

超級版主 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元的贊助,人人有能力.

TOP

owen06

　暱稱: 阿軒

中學生 Rank: 2

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

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

18^#

發表於 2013-9-3 10:35 | 只看該作者

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

TOP

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

[收藏此主題] [關注此主題的新回復]

[通過 QQ、MSN 分享給朋友]