VBA : 모든 워크 시트에서 셀을 선택하는 데 문제가 있음

Question

첫 번째 행 외에 모든 워크 시트의 모든 데이터를 삭제하는 쿼리가 있습니다. 나는이 셀 워크 시트 각각에서 셀 "A2"를 활성화하고 싶지만 실제로 이해할 수는 없습니다. 어떤 아이디어?

Sub ClearWorkbook() 
    Dim Current As Worksheet 
    For Each Current In Worksheets 
     Current.Rows("2:" & Rows.Count).ClearContents 
    Next 
End Sub 

Answer 1

는 의견을 요약하면 :

Sub ClearWorkbook() 

Dim Current As Worksheet 

For Each Current In Worksheets 
    If Current.Cells(Current.Rows.Count, "A").End(xlUp).Row >= 2 Then 
     Current.Rows("2:" & Current.Cells(Current.Rows.Count, "A").End(xlUp).Row).ClearContents 
    End If 
    Current.Activate 
    Current.Range("A2").Select 
Next 

End Sub