[VBA기초] 셀 지우기

엑셀 VBA 에서 셀 지우기를 할 때 VBA 코드를 잘못짜면 본의아닌 데이터도 지워지게 됩니다.

이걸 방지하기 위해 코드를 한 줄 추가했습니다.

Sub CellClear_DataSheet()
    Dim LastRow As Double
   
    Application.ScreenUpdating = False      '// 화면 업데이트 (일시)정지
    LastRow = Cells(Rows.Count, "A").End(3).Row
    If LastRow < 3 Then Exit Sub              '// 지운값이 더 작으면 매크로 중단
    Range(Cells(3, "A"), Cells(LastRow, "I")).Clear  '// 지우고자 하는 범위
    Cells(3, "A").Select
End Sub

왜 범위를 이렇게 줬지? 하고 의심을 하시는 분도 있을 겁니다.

이유는 A열은 데이터가 전부 있는데 다른 열은 데이터가 있기도 하고 없기도 합니다.

그럴 경우 범위를 잘못 잡으면 데이터가 제대로 지워지지 않습니다.