[已解决]请教怎么删除C列2022年12月以外的行

小雨饰品

请教老师：怎么用VBA删除C列不是2022年12月以外的行内容（C列单元格中内容是由日期和几点几分几秒组成，比如：2022/12/1 9:32:28  ，从中可看出此行是2022年12月份的数据）  ？谢谢啦

最佳答案

月排行榜 / 总排行榜

风林火山

2022-12-9 08:57

1. Sub TEST()
   
2.     Dim K
   
3.     For K = Cells(Rows.Count, 3).End(3).Row To 2 Step -1
   
4.         If Cells(K, 3) < 44896 Then Rows(K).Delete
   
5.     Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

cutecpu

Sub demo()
   a = [a2].CurrentRegion
   For i = 2 To UBound(a)
      If Format(a(i, 3), "yyyyMM") <> "202212" Then GoTo 1
   Next
1  [a2].CurrentRegion.Offset(i - 1).EntireRow.Delete
End Sub

zjdh

Sub TEST()
    For I = Range("A65536").End(3).Row To 3 Step -1
        If Format(Cells(I, "C"), "YYYY-MM") <> "2022-12" Then Rows(I).Delete
    Next
End Sub

zjdh

cutecpu 发表于 2022-12-8 15:51
Sub demo()
   a = [a2].CurrentRegion
   For i = 2 To UBound(a)

如果有非12月记录夹在中间，就会误删啦。

小雨饰品

谢谢啦，特殊情况：我先排列下

风林火山

1. Sub TEST()
   
2.     Dim K
   
3.     For K = Cells(Rows.Count, 3).End(3).Row To 2 Step -1
   
4.         If Cells(K, 3) < 44896 Then Rows(K).Delete
   
5.     Next
   
6. End Sub
   

复制代码