Clear, ClearContents, Delete

Sub clearall()
    Range("F7:L29").Clear
End Sub


Sub clearvalue()
    Range("F7:L29").ClearContents

End Sub


Sub deleterow()
    Range("7:26").Delete
End Sub


'clear은 행과 열을 그래로 두고 내용을 지우는 것이고
'delete는 행과 열을 지운다.

Sub clearformats()
    Range("F7:L29").clearformats
End Sub


'for문은 이용해서 한 행씩 지울때는 맨 아래부터 지워야 한다.
Sub test01()
    Dim i As Long
    
    For i = 26 To 7 Step -1
        If Cells(i, "G") = "남" Then
'셀.entireRow : 셀의 전체행
'셀.entireColumn : 셀의 전체 열
            'Cells(i, "G").EntireRow.Delete
            Rows(i).Delete
        End If
    
    Next i
End Sub

Sub hw()
    Dim lngR As Long
     lngR = Range("F10000").End(xlUp).Row
    For i = lngR To 7 Step -1
        If Cells(i, "G") = "남" Or Cells(i, "L") <= 70 Then
            Cells(i, "G").EntireRow.Delete
        End If
        
    Next i
End Sub

 

 

각각의 차이점

Range("A1").Clear             :셀은 그대로 두고 전체 지우기

Range("A1").ClearContents :셀은 그대로 두고 내용만 지우기

Range("A1").ClearFormats  :셀은 그대로 두고 서식만 지우기

Range("A1").ClearComments :셀은 그대로 두고 메모만 지우기