nØthing special

지난 번 MERGE함수를 소개한 포스팅에서 약속한 바와 같이 개량된 버전을 만들어 보았다. 이번 버전에서는 셀 영역의 갯수를 2개 이상 사용할 수 있다는 점이다. VBA에서 미리 갯수가 정해져 있지 않는 매개변수를 받으려면 ParamArray를 사용한다. 이번 버전에서는 코드를 다이어트하기 위해 불필요한 변수와 함수를 확 줄였다.

Function MERGE(ParamArray ParamRngs())
    Dim i As Long, col As Long, row As Long, r As Long, c As Long
    
    For i = 0 To UBound(ParamRngs)
        col = WorksheetFunction.Max(col, ParamRngs(i).Columns.Count)
        row = row + ParamRngs(i).Rows.Count
    Next

    ReDim ru(row, col)

    row = 0
    For i = 0 To UBound(ParamRngs)
        For r = 1 To ParamRngs(i).Rows.Count
            col = 0
            For c = 1 To ParamRngs(i).Columns.Count
                ru(row, col) = ParamRngs(i)(r, c)
                col = col + 1
            Next
            row = row + 1
        Next
    Next
    
    MERGE = ru
End Function