- 帖子
- 5
- 主題
- 1
- 精華
- 0
- 積分
- 12
- 點名
- 0
- 作業系統
- windows
- 軟體版本
- 7
- 閱讀權限
- 10
- 性別
- 男
- 註冊時間
- 2013-11-22
- 最後登錄
- 2013-11-24
|
Sheets("工作表1").Select
x = Application.WorksheetFunction.CountA(Range("A:A")) '欄位有值範圍計算
假設X=10
for i = 3 to x
next
可以執行
for i = x to 3
next
可以改成：- Sheets("工作表1").Select
- total = ActiveSheet.UsedRange.Rows.Count
- start = 3
- For i = total+start To start Step -1
- '執行
- Next
|
|
發表於 2013-11-23 11:02
| 