- 帖子
- 559
- 主題
- 58
- 精華
- 0
- 積分
- 626
- 點名
- 0
- 作業系統
- win8
- 軟體版本
- office2013
- 閱讀權限
- 50
- 性別
- 男
- 來自
- TW
- 註冊時間
- 2010-11-22
- 最後登錄
- 2024-6-14
|
回復 4# sammay
要花一點時間~ 了解~ 基本儲存格的用法~
就可以自行修改~ 加油~- Sub ex()
- A = Range("C65536").End(xlUp).Row '以C欄位來確定資料最後一筆
- For Each A In Range("C2:C" & A) 'A是一個變動的位置
- A.Offset(, 2) = DateDiff("D", A, A.Offset(, 1))
- A.Offset(, 3) = Format(A.Offset(, 1) - A - DateDiff("D", A, A.Offset(, 1)), "h:mm:ss")
- Next
- End Sub
|
|
發表於 2012-3-22 13:40
| 