엑셀 각행마다 빈칸삽입 (지식in)

 

이런식의 데이타가 20000건이 있습니다.

우선 두번째 열을 기준으로 필터를 이용해서 중복되는 이름으로 해서 걸렀습니다.

이제 중복되는 행마다 끝나고 빈 행을 삽입하고 싶은데 ..

이런식으로...

 

한두개면 수작업을 하겠지만 20000건이라서..

메크로로 가능할까여? 가능하다면 도와주세요..

내공 다 겁니당!!

의견 쓰기

• 신고

질문자 채택된 경우, 추가 답변 등록이 불가합니다.

re: 메크로 반복작업 빈칸 삽입 도와주세요 ㅠㅠ내공다겁니다.

sjs0351 

답변채택률99.4%

 

2011.10.25 18:47

답변 추천하기

• 0
• 0

질문자 인사

답변 내용이 도움 많이 되었습니다~

B열의 데이터를 대상으로 작업 처리.....! 코드는 상황에 맞게 수정 하시면 됩니다.

 

사용 코드

 

Sub 행삽입()
Dim R, M
Application.ScreenUpdating = False ' 화면갱신 정지
For R = Range("B" & Rows.Count).End(3).Row To 2 Step -1
    With Range("B" & R)
         If .Value <> M Then Rows(R + 1).Insert
          M = .Value
    End With
Next R
Application.ScreenUpdating = True ' 화면갱신 설정
End Sub

' To 2 Step 의 2값은 작업영역의 시작열값+1의 열값입니다.
'예) 행삽입 처리할 데이터가  B3:B10 에 있다는 가정하에
' 작업영역의 시작열값(3) + 1 을 한 4가 됩니다.

 

   

 

적용에 어려움이 있으면 댓글 남기세요.