를 사용하여 이전 날짜의 데이터가있는 모든 셀을 삭제합니다. 이 기사에서는 이전 날짜의 데이터를 삭제하는 매크로를 만듭니다. 이 매크로는 데이터를 확인하고 오늘의 데이터를 유지하며 이전 날짜의 모든 데이터를 삭제합니다.

이 예의 원시 데이터는 특정 날짜의 날짜, 에이전트 이름 및 개별 에이전트의 판매로 구성됩니다.

ArrowRawData

매크로를 실행하려면 “메인”시트의 버튼을 클릭하거나 단축키 Alt + F8을 눌러 실행할 수도 있습니다.

매크로는 이전 날짜의 모든 기록을 삭제합니다. 2016 년 12 월 14 일에이 매크로를 실행하면 출력에 해당 날짜에 대한 레코드 만 반영됩니다.

ArrowAfterRunningMacro

[_GoBack] # 논리 설명이 예제에서는“RemovePreviousData”매크로를 만들었습니다. 이 매크로는 역 FOR 루프를 사용하므로 루프가 반대 방향으로 실행됩니다. 루프는 마지막 행에서 시작하여 맨 위 행으로 이동합니다.

역 루핑을 사용하는 이유는 일반 FOR 루프를 사용했다면 각 행 삭제 후 데이터에있는 레코드가 위쪽으로 이동하여 각 행이 삭제 될 때마다 위치가 변경되기 때문입니다. 이에 대응하기 위해 역 루프를 사용했습니다.

역방향 루프를 위해 FOR 루프와 함께 Step 문을 사용했습니다. FOR 루프는 마지막 행에서 시작하여 11 ^ th ^ 행으로 반복됩니다.

아래 코드를 따르세요

Option Explicit

Sub RemovePreviousData()

Dim Counter, LastRow As Integer

'Finding the row number of last row

LastRow = ActiveSheet.Range("A1").SpecialCells(xlLastCell).Row

'Looping from last row to 11th row

For Counter = LastRow To 11 Step -1

If Cells(Counter, 1).Value < Date Then

'Deleting the row

Rows(Counter).Delete

End If

Next Counter

End Sub

이 블로그가 마음에 들면 Facebook 및 Facebook에서 친구들과 공유하십시오.

여러분의 의견을 듣고 싶습니다. 작업을 개선하고 더 나은 서비스를 제공 할 수있는 방법을 알려주십시오. [email protected]로 문의 해주세요