[VBA 제 59강] InsertRows 썸네일 이미지
[VBA 제 59강] InsertRows
콘텐츠 타입 MS 오피스 엑셀 2003(2007, 2010가능), Windows XP 이상
용량0KB
조회1,193
즐겨찾기
[VBA 제 59강] InsertRows를 즐겨찾기 한 횟수는 0 0입니다.
이용등급 프리미엄
제품 상세정보

 




[ 기초 강좌 ]

 

제 59 강

InsertRows

 

Excel의 생명이라고 할 수 있는 InsertRows

그 사용법을 알아봅니다.

이럴 때 필요해요

 

사용자가 직접 입력한 데이터의 행 수를 늘릴 때 사용합니다.

이렇게 사용해요

아래와 같은 데이터를 작성하고,(시트잘 확인!)

 

 

아래의 시트에 작성한 다음,

 

 

아래와 같은 수식을 작성해주면,

Sub InsertRows()
 Application.ScreenUpdating = False
  n = Val(InputBox("삽입할 행 수를 입력하세요", "삽입행 수 입력"))
    r = Range("A2").Row + 1
      If n <= 0 Then Exit Sub
  For i = Cells(Rows.Count, 1).End(3)(2).Row To r Step -1
    Cells(i, 1).Resize(n).EntireRow.Insert
   Next i
End Sub

 

밑에 그림과같은 상자가 뜨는데, 적당한숫자(3 또는 4,5 등)을 입력하신 다음,

'확인'버튼을 눌러 보시기 바립니다.

 

 

그러면 아래그림처럼 보여지게 됩니다.

 

 

저작권정보
1. 콘텐츠의 저작권은 쿠키(www.coukey.co.kr)에 있으며, 사용권한은 1인 1카피입니다.
2. 다운로드 받은 콘텐츠는 본인(본인회사)만 사용할 수 있습니다.
3. 다른 사람과 공유하거나 원본 또는 수정 후 무단전제,무단배포,무단판매,무단 공유할 수 없습니다.
4. 웹상에서 배포는 상업,비상업적 목적을 불문하고, 손해배상등 가중처벌됩니다.
[VBA 제 59강] InsertRows
이용후기

업무자동화 맞춤제작

고객님의 상황에 100% 맞춘 콘텐츠 제작 전문 서비스를 이용해 보세요.
프리미엄 무료 이벤트 중