主页 / coding / 问题 / 79414915
Accepted
Galactus_Confused
Asked: 2025-02-05 21:25:27 +0800 CST

VBA 当前年份保留所有其他行删除代码调整

  • 772

尝试修改此设置，以便只删除当前年份之外的记录。之前，我一直在研究滚动的 12 个月范围以证明这一概念，现在我只需要保留当前年份的数据。我尝试了几种不同的方法，但无法弄清楚，不想每个月都进入并将月份数更改 1，有没有办法说如果日期不在 2025 年之内，就将其删除

数据中日期格式的示例 13/09/2024 4:35:16 pm

以前使用的代码

 Sub Delete_Rows() 'DELETE HISTORICAL DATA OVER 1 YEAR OLD
With Sheets("HistoricalData")
lr = .Cells(Rows.Count, "C").End(xlUp).Row
For i = lr To 2 Step -1
If CDate(.Cells(i, "C").Value) < DateAdd("m", -12, Date) Then 'SETS THE MONTH COUNT TO MORE THAN 12 MONTHS OLD
.Rows(i).EntireRow.Delete ' DELETES ROW

End If
Next i
End With
End Sub
vba

1 个回答

  1. Best Answer

    如果您更改IF语句行来检查日期的年份，您的代码将完成这项工作。

     Sub Delete_Rows() 'DELETE HISTORICAL DATA OVER 1 YEAR OLD
With Sheets("HistoricalData")
lr = .Cells(Rows.Count, "C").End(xlUp).Row
For i = lr To 2 Step -1
'If CDate(.Cells(i, "C").Value) < DateAdd("m", -12, Date) Then 'SETS THE MONTH COUNT TO MORE THAN 12 MONTHS OLD
If Year(CDate(.Cells(i, "C").Value)) <> "2025" Then
.Rows(i).EntireRow.Delete ' DELETES ROW

End If
Next i
End With
End Sub
    • 1

相关问题