Sub 모든시트내용지우기()
Dim WS_Count As Integer
Dim i As Integer
WS_Count = ActiveWorkbook.Worksheets.Count
' Begin the loop.
For i = 1 To WS_Count
' 여기에 원하는 코드를 넣는다. 열린 파일에 숨긴 시트가 있으면 에러날 때가 있음
Debug.Print ("시트 변경함 : " + ActiveWorkbook.Worksheets(i).name)
ActiveWorkbook.Worksheets(i).Select
Cells(1, 1).Select
'모든 셀 내용 삭제
Cells.Select
Selection.ClearContents
Next i
End Sub
댓글 없음:
댓글 쓰기