로그인 유지
이 게시판은 아별닷컴 회원만 질문을 올릴 수 있습니다. 회원에게 주어지는 특권인셈이지요. 회원이 아닌 분들은 열람만 가능합니다.
2012.10.11 15:00
고수가되고파님..
질문이 좀 많네요.. 하하.. ^-^;;;
아래 코드를 활용해보세요..
첫번째 출현하는 2개 셀을 병합한 다음에.. 병합된 셀을 복사하고..
나머지 셀에 서식으로 붙여넣기를 하여 셀 병합 효과를 나타나게 한 로직입니다.
셀들을 순환하면서 하나씩 병합하는 것보다 속도가 빠를겁니다.
Sub abFindAndMergeCells()
Dim rng As Range
Set rng = Cells.Find(What:="공 종 명", After:=Cells(1, 1), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Set rng = Range(rng.Offset(1), rng.Offset(1).End(xlDown))
Dim rngWork As Range
Set rngWork = rng.Resize(2, 1)
rngWork.Cells(2).ClearContents
rngWork.MergeCells = True
rngWork.Copy
rng.Resize(rng.Rows.Count - 2).Offset(2).PasteSpecial Paste:=xlPasteFormats
Union(rng.Offset(0, 1), rng.Offset(0, 3)).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub
새 창으로
선택한 기호
![[레벨:30]](http://abyul.com/zbxe/modules/point/icons/default/30.gif "포인트:141749point, 레벨:30/30"){kind=icon}
아별
고수가되고파님..
질문이 좀 많네요.. 하하.. ^-^;;;
아래 코드를 활용해보세요..
첫번째 출현하는 2개 셀을 병합한 다음에.. 병합된 셀을 복사하고..
나머지 셀에 서식으로 붙여넣기를 하여 셀 병합 효과를 나타나게 한 로직입니다.
셀들을 순환하면서 하나씩 병합하는 것보다 속도가 빠를겁니다.
Sub abFindAndMergeCells()
Dim rng As Range
Set rng = Cells.Find(What:="공 종 명", After:=Cells(1, 1), LookIn:=xlFormulas, LookAt _
:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
False, SearchFormat:=False)
Set rng = Range(rng.Offset(1), rng.Offset(1).End(xlDown))
Dim rngWork As Range
Set rngWork = rng.Resize(2, 1)
rngWork.Cells(2).ClearContents
rngWork.MergeCells = True
rngWork.Copy
rng.Resize(rng.Rows.Count - 2).Offset(2).PasteSpecial Paste:=xlPasteFormats
Union(rng.Offset(0, 1), rng.Offset(0, 3)).PasteSpecial Paste:=xlPasteFormats
Application.CutCopyMode = False
End Sub