- 帖子
- 4901
- 主題
- 44
- 精華
- 24
- 積分
- 4916
- 點名
- 127
- 作業系統
- Windows 7
- 軟體版本
- Office 20xx
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台北
- 註冊時間
- 2010-4-30
- 最後登錄
- 2024-6-3
              
|
本帖最後由 Hsieh 於 2012-3-14 08:23 編輯
CurrentRegion
傳回 Range 物件，該物件代表目前的區域。目前區域是指以任意空白列及空白欄的組合為邊界的範圍
Arrth = Sheets("退戶客戶").[a1].CurrentRegion
就是把跟a1儲存格相連的範圍存成陣列Arrth
For col = 1 To UBound(Arr, 2) Step 6
因為Arr是A3:R?這範圍的陣列
所以是Arr(1 TO ?-3,1 TO 18)這是因為由範圍直接寫入陣列所以下標從1開始
UBound(Arr, 2)就是Arr的第2維上標界就等於18
Step 6就是每次跳6欄
For i = 1 To UBound(Arr)
UBound(Arr)就是第一維上標界
就是依照每列資料一一跑完 |
|
發表於 2010-8-20 18:18
| 