|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
1. 엑셀 버전(95,97,2000,2002):2000
2. 윈도우즈의 버전(win95,win98,winME,winNT,win2000,winXP):98
3. CPU (486,PentiumI/II/III/IV...):3
4. RAM (32,64,128,256,512MB,1G...): 64
* 아래줄에 질문을 작성하세요 >>
첨부화일에 질문하였습니다. 부탁드립니다.....
==============[金鐘圭님 글에 대한 답변입니다]==============
안녕하세요? 金鐘圭 님!
함수로 행을 삽입할 수는 없습니다. 만약, 그럴 수 있다면, 그것은 함수가 아니랍니다.
간단히 VBA를 이용하세요...
훨씬 더 편하고 강력하답니다. 엘리베이터를 탈 줄 모르니 걸어서 올라가는 것은 조금 그렇지요?
Option Explicit
Sub dhInsertBlank()
Dim lngR As Long
Dim lngT As Long
With ActiveSheet
lngR = .Cells(65536, 1).End(xlUp).Row
For lngT = lngR To 3 Step -1
If Cells(lngT, 2).Value <> Cells(lngT - 1, 2).Value Then
Cells(lngT - 1, 2).Range("A2:A6").EntireRow.Insert
Else
End If
Next lngT
End With
End Sub
그럼...행운이 있으시길...!
|
|