Excel & VBA---Brain Training

병합하려는데 엉뚱한 셀에 접근하여 원하는대로 되지 않는다..!!!...

병합을 하면 보기도 좋고..
또 데이타의 성격에 따라서 그렇게 만들어야 하는데
순환을 하면서 조건에 맞는 범위의 것을 병합하려고 하면
엉뚱한 셀에 접근하여 머리를 쥐어 뜯게 만든다
그것참..
그런 함정을 벗어 나면 된다
아래의 코드를 실행하면 그림과 같이 된다

Sub makeTest()
Dim Items As Variant
Items = Array("공종A", "공종B", "공종C", "시설A", "시설B", "상세코드", "명칭", _
 "단위", "규격", "물량", "자재단가", "자재금액", "노무단가", _
 "노무금액", "경비단가", "경비금액", "총액")
With Worksheets.Add.Range("A1").Resize(, UBound(Items) + 1)
    .Value = Items
    .Borders.LineStyle = Excel.XlLineStyle.xlContinuous
    .Borders.ColorIndex = 16
    .Font.Name = "맑은 고딕"
    .Font.Size = 10
    .HorizontalAlignment = xlCenter
End With
End Sub

위의 코드에 좀 살을 붙여서 아래의 그림과 같이 만들어 보기



힌트는 한꺼번에 하려고 하지 말고
필요에 따라서 변수를 만들어 사용하는 것이 숙달되면 좋을 것이다


각셀을 순환하면서
병합될 셀의 조건에 맞는 것은 집합체에 수집하여
한꺼번에 집합체를 순환하면서 처리한다..