이 코드로 개선한 후 이전의 필터되지 않은 값을 각각 숨겨진 행인지 확인하고 지우는 방식보다 속도가 비약적으로 개선되었습니다.
아무래도 한 행씩 지우는 게 아니라 화면을 한꺼번에 delete 하는 구조라서 그런 듯합니다.
Sub 필터된_데이터만_지우기()
Dim strToday As String
Dim filteredRng As Range
Application.DisplayAlerts = False
strToday = Format(Now(), "yyyy-mm-dd")
Range("F1").CurrentRegion.AutoFilter Field:6, Criteria1:="<>*" & CStr(strToday) & "*"
Range("F1").CurrentRegion.Offset(1).SpecialCells(xlCellTypeVisible).Delete
ActiveSheet.ShowAllData
Application.DisplayAlerts = True
Set filteredRng = Nothing
End Sub()
