stillfish00

¦^´_ 1# jerrystock

1. Sub Test()
   
2.     Dim i As Long
   
3.    
   
4.     With ActiveSheet
   
5.         '§R°£­n¥Ñ«á©¹«e§R
   
6.         For i = .Cells(.Rows.Count, "A").End(xlUp).Row To 1 Step -1
   
7.             If StrComp(.Cells(i, "A").Text, Format(Date, "yyyymmdd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
   
8.         Next
   
9.     End With
   
10. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 6# jerrystock
§Aı±oÀ³¸Ó«ç»ò§ï?

stillfish00

¦^´_ 8# jerrystock

For i = .Cells(.Rows.Count, "B").End(xlUp).Row To 2 Step -1
    If StrComp(.Cells(i, "B").Text, Format(Date, "yyyy/mm/dd"), vbTextCompare) <> 0 Then .Rows(i).Delete Shift:=xlUp
Next