|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2002
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):98
3. CPU (486,PentiumI/II/III/IV...):pen 3
4. RAM (32,64,128,256,512MB,1G...): 128
* 아래줄에 질문을 작성하세요 >>
A B C
1 나무 1
2 대나무 2
3 합계 3
4 사과 1
5 배 1
6 합계 2
b1열에 합계(수백개있음) 부분의 다음 열을
일괄 행(하나씩) 삽입하고자 합니다.
매크로를 가르처 주세요
예)
A B C
1 나무 1
2 대나무 2
3 합계 3
4 사과 1
5 배 1
6 합계 2
==============[은별님 글에 대한 답변입니다]==============
허접한 코드입니다..
파일 참고 하시길.....
Sub Line_Insert_Test()
Dim r As Long
Dim i As Long
Application.ScreenUpdating = False
With Sheets("sheet2") ' Sheet2를 대상으로 실행합니다
r = .Range("B65536").End(xlUp).Row ' B열을 기준으로
For i = r To 2 Step -1
If .Cells(i, 2).Value = "합계" Then ' 합계가 있으면
.Rows(i + 1).EntireRow.Insert ' 새로 행삽입
End If
Next i
End With
Application.ScreenUpdating = True
End Sub
|
|