Sub 오늘날짜만_남기기()
Dim strToday As String
strToday = Format(Now(), "yyyy-mm-dd")
Range("F1").AutoFilter Field:=6, Criteria1:=strToday
For i = Rows.Count To 1 Step -1
If Rows(i).EntireRow.Hidden = True Then
Rows(i).EntireRow.Delete
End If
Next i
End Sub
숨긴 행인지 확인하고 하나하나 지우는 방식이라 시간이 많이 걸려서 개선하게 되었습니다. 개선한 버전 링크는이쪽.
