12
返回列表 上一主題 發帖

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

sunnyso

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

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
8#
發表於 2013-8-14 14:45 | 只看該作者
回復 6# sunnyso


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

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

TOP

oobird
　頭銜: 街友一族

超級版主Rank: 8Rank: 8

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

論壇貢獻勳章
7#
發表於 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

sunnyso

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

熱烈參與勳章好學求知勳章
6#
發表於 2013-8-14 12:18 | 只看該作者
用 usedrange 試一下
ss

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
5#
發表於 2013-8-14 12:15 | 只看該作者
回復 4# stillfish00

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

TOP

stillfish00

帖子
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
  1.   Dim lMaxRow As Long
  2.   
  3.   With ActiveSheet
  4.     lMaxRow = Application.WorksheetFunction.Max(.[A65535].End(xlUp).Row, _
  5.                                                 .[B65535].End(xlUp).Row, _
  6.                                                 .[C65535].End(xlUp).Row)
  7.     .Range("A2:C" & lMaxRow).Select
  8.   End With
複製代碼

TOP

owen06
　暱稱: 阿軒

中學生Rank: 2

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

2015羊年全勤獎章2014馬年全勤獎章熱烈參與勳章
3#
發表於 2013-8-14 10:10 | 只看該作者
回復 2# stillfish00

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

TOP

stillfish00

帖子
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
資料是否包含整列空白？

TOP

        靜思自在 : 多做多得。少做多失。
12
返回列表 上一主題