페이지

2010년 6월 16일 수요일

일괄적 행삽입

1. 먼저 엑셀시트의 시트이름에 우측마우스 클릭

2. 코드보기 선택

3. VBA창이 열림
- 보이지 않을 경우, 메뉴바에 보기>프로젝트 탐색기 선택

4. 윈도우 창에 아래 코드 복사, 붙여넣기
Sub ins()
For i = 100 To 1 Step -1 '<-- 100=행삽입의 끝행, 1=행삽의 시작행 입력
Rows(i).Select
Selection.Insert Shift:=xlDown
Next
End Sub

5. 다시 엑셀 시트로 컴백

6. Alt + F8 또는, 메뉴바 보기 -> 매크로 -> 매크로 보기 -> 파일명을 선택후 실행 누르기

댓글 없음:

댓글 쓰기