Members - Question and Answer
병합된 셀 찾아서 처리하기
병합된 셀(Merge)을 찾아서 해제하고 싶은데 어떻게 하지요??
아래의 첫째 프로시져는 빈시트에 병합셀을 30개 만들어주는 것이고
두번째는 해당시트의 병합셀을 찾아서 해제한다
병합된 셀을 만들때 중복되지 않게 만든다고 하는 것은
병합된 셀이 있는지 확인하는 절차가 포함되겠지!!!
<![CDATA[
셀 랜덤으로 병합하기
Sub makeMerge()
Dim iX As Integer
Dim rCell As Range
Worksheets.Add
For iX = 1 To 30
Do
Set rCell = _
Cells(Int(Rnd() * 50) + 1, Int(Rnd() * 50) + 1)
Loop While rCell.Resize(2, 2).MergeCells
With rCell.Resize(2,2)
.Merge
.Interior.ColorIndex = 5
End With
Next
End Sub
병합된 셀 찾아서 병합해제하기
Sub clearMerge()
Dim rUsed As Range, rX As Range
Set rUsed = ActiveSheet.UsedRange
For Each rX In rUsed.Cells
If rX.MergeCells Then
rX.MergeArea.Interior.ColorIndex = xlNone
rX.UnMerge
End If
Next
End Sub
]]>
MergeCells 속성은 병합이 되었는지 안되었는지를 알아내준다
병합이 되었다면 TRUE아니면 FALSE
