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

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

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

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

版主 Rank: 7 Rank: 7 Rank: 7

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

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

複製代碼

靜思自在 : 站在半路，比走到目標更辛苦。

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