- 帖子
- 2035
- 主題
- 24
- 精華
- 0
- 積分
- 2031
- 點名
- 0
- 作業系統
- Win7
- 軟體版本
- Office2010
- 閱讀權限
- 100
- 性別
- 男
- 註冊時間
- 2012-3-22
- 最後登錄
- 2024-2-1
|
經過實際資料處理後,我把觀察兩種不同方式執行之結果敘述如下,以期幫助其他尚須瞭解的同學們來共同分享:
' 目前實際完整匯入資料範圍為: A1:Z1712 ; 但是從 X1:Z2000 欄位儲存的是計算公式(估計最多資料項為 2000 列,所以從 X1713:Z2000 其欄位值均為 0)
' 傳回 2000 列,轉述register313回帖:所有使用儲存格所組成四方形區域之最後一列之列號
' 傳回 1712 列,轉述register313回帖:B 欄所使用儲存格之最後一格之列號- Sub Test()
- Dim total_row As Single
-
- Cells(2, 22).Value = ActiveSheet.UsedRange.Rows.Count
- Cells(2, 23).Value = Range("B" & Rows.Count).End(xlUp).Row
- End Sub
複製代碼- ' 執行結果:
- '
- ' V (22) W (23)
- ' 1 --------------------
- ' 2 2000 1712 ' 1712 為實際匯入資料之行數
- ' 3
複製代碼 所以在此時實務處理上, 如採以 ActiveSheet.UsedRange.Rows.Count 方式,尚須再次過濾部分空白與非真實匯入資料的問題列。
再次感謝大大的解說! |
|