Excel & VBA---Brain Training

정렬하고 병합대상범위 찾아서 병합하기

아래의 코드를 실행하면
이런 테이블이 만들어진다..

Sub sortAndMerge()
With Worksheets.Add
    With .Range("A1").Resize(, 6)
        .Value = Array("DATA_A", "DATA_B", "DATA_C", "DATA_D", "DATA_E", "DATA_F")
        .Interior.ColorIndex = 15
    End With
   With .Range("A2").Resize(30, 4)
        .Columns(1) = "=CHOOSE(INT(RAND()*5)+1,""A"",""B"",""C"",""D"",""E"")"
        .Columns(2) = "=CHOOSE(INT(RAND()*5)+1,""AB"",""BC"",""CD"",""DE"",""EF"")"
        .Columns(3) = "=CHOOSE(INT(RAND()*5)+1,""ABC"",""BCD"",""CDE"",""DEF"",""FGH"")"
        .Columns(4) = "=CHOOSE(INT(RAND()*5)+1,""ABCD"",""BCDE"",""CDEF"",""DEFG"",""FGHI"")"
        .Columns(5) = "=CHOOSE(INT(RAND()*5)+1,""ABCDE"",""BCDEF"",""CDEFG"",""DEFGH"",""FGHIJ"")"
        .Columns(6) = "=INT(RAND()*100)+100"
        .Value = .Value
    End With
End With
End Sub

왼쪽의 것이 위의 코드로 만들어지고, 오른쪽것이 여러분이
풀어 보셔야 할 문제

아래화일을 실행하면 아하..이런 방향으로 병합을 진행하면
간단하구나!!!
생각의 차이가 코딩을 편하게 한다