返回列表 上一主題 發帖

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

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
1# 跳轉到 »
發表於 2013-8-14 13:31 | 顯示全部帖子
可用find方法快速找到最大列號與最大欄號
  1. r = Cells.Find("*", , , , 1, 2).Row
  2. c = Cells.Find("*", , , , 2, 2).Column
  3. Range(Cells(2, 1), Cells(r, c)).Select
複製代碼

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

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

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題