abyul.com > Excel > Question & Answer

엑셀에 대해서 궁금한 것이 있으시면 마음껏 질문해주세요.

이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.

2012.11.26 11:19

고수가되고파님..

음.. 행을 지우면 그 만큼 전체적으로 위로 올라가겠죠..

아래 코드로 대체한다고 하더라도.. 행은 삭제되기 때문에 전체적으로 올라가는데요?

.Offset(1, 0).Resize(irow - 1, iColumn).EntireRow.Delete

암튼..

해당 행을 지우기 전에 남아 있을 행의 행높이를 지워질 행높이를 포함하는 크기로 조절한 다음 행을 삭제하면 될 것 같은데요..

코드 중에서 아래의 굵게 표시한 코드 한줄을 추가해보세요..

정확히 일치하지는 않지만.. 대충 비슷해집니다.

첨부파일을 참고하세요..

다운받기 : 예제(병합효과)-2.xlsm

                  End If
                  .MergeCells = False '셀병합 해제
                  .Resize(1, iColumn).HorizontalAlignment = xlCenterAcrossSelection '선택영역의 가운데로
                  .RowHeight = .RowHeight + .Offset(1, 0).RowHeight
                  .Offset(1, 0).Resize(irow - 1, iColumn).Delete shift:=xlUp
                  iCount = iCount + 1
              End If
          End With