EXCEL 資料表上的資料固定刪除時間 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » EXCEL 資料表上的資料固定刪除時間

返回列表下一主題上一主題發帖

[發問] EXCEL 資料表上的資料固定刪除時間

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2848
主題: 10
精華: 0
積分: 2903
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2026-7-25

1^# 跳轉到 »

發表於 2015-9-25 18:06 | 顯示全部帖子

超過９０天才刪，以獨立程序執行：

Sub 刪除()
Dim R&
R = Application.CountIf([Database!C:C], "<" & Date - 90)
If R > 0 Then [Database!A2:C2].Resize(R).Delete Shift:=xlUp
　
R = Application.CountIf([Database!F:F], "<" & Date - 90)
If R > 0 Then [Database!D2:F2].Resize(R).Delete Shift:=xlUp
End Sub

複製代碼

靜思自在 : 盡多少本份，就得多少本事。

返回列表下一主題上一主題