열의 날짜 값을 기준으로 여러 행 식별 및 선택

Question

테이블의 열 (오늘부터 1 주일)에있는 모든 날짜 값을 식별하고 선택하는 방법을 파악하려고합니다. findnext과 함께 range.find 메서드를 시도하는 데 어려움을 겪었으나 원격으로 작업을 수행 할 수 없습니다. 이것에 대한 초기 생각은 이러한 모든 데이터 행을 식별하고, 선택하고 (피벗 캐시로 사용할 가능성이 큰) 새 테이블을 작성하는 것이 었습니다.

필자가이 글을 쓰면서 생각한 것처럼, vba를 사용하여 테이블과 복사/붙여 넣기를 필터링하는 것이 훨씬 쉬울까요? 이것을 조금하려고 시도합니다.

Answer 1

내가 왜 이렇게 많은 어려움을 겪었는지 확실하지 않은 결과는 매우 간단합니다. 데이터를 삭제하고 싶지 않은 날짜를 필터링하고 있습니다. 네트워크 날짜를 식별하는 쉬운 방법을 아직 찾지 못했지만 이것이 필요한 정확하게 수행하고있는 것 같습니다.

Sub Filter_Week_Old() 
Dim t As Date 

t = Format([Today()] - 7, "mm/dd/yy") 
    With Range("Table1") 
    .AutoFilter field:=4, Criteria1:=">" & t 
    Application.DisplayAlerts = False 
    .Delete 
    Application.DisplayAlerts = True 
    .AutoFilter field:=4 
    End With 
End Sub