返回列表 上一主題 發帖

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
1# 跳轉到 »
發表於 2013-8-14 09:58 | 顯示全部帖子
回復 1# owen06
資料是否包含整列空白？

TOP

stillfish00

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

stillfish00

帖子
1018 
主題
15 
精華
0 
積分
1058 
點名
0  
作業系統
win7 32bit 
軟體版本
Office 2016 64-bit 
閱讀權限
50 
性別
男 
來自
桃園 
註冊時間
2012-5-9 
最後登錄
2022-9-28 
3#
發表於 2013-8-14 16:56 | 顯示全部帖子
回復 7# oobird
好方法，通用!

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

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

TOP

        靜思自在 : 有多少力量就做多少事，不要心存等待，等待才會落空。
返回列表 上一主題