nØthing special

여러 워크시트나 통합문서에서 동일한 셀 위치(가령 A1:A3처럼)의 값을 편리하게 처리할 수 있는 방법이 없을 까 고민해 본 적이 있다. 가령 Sheet1!A9과 Sheet2!A9의 값을 합산하는 등등...또는 다른 워크북의 A9셀값과 현재 워크북의 A9셀값을 합쳐야 하는 경우

Function CUBESUM(rng As Range, ParamArray location())
    Dim i As Long
    Dim sum As Double
    
    For i = 0 To UBound(location)
        sum = sum + WorksheetFunction.sum(Range(location(i) & rng.Address))
    Next
    CUBESUM = sum
End Function

다음은 사용예이다.


Sheet1,2,3의 각각의 셀영역 A1:B5의 합계를 낸다.
함수이름을 CUBE~로 정했는데, 데이터 마이닝과는 큰 관계는 없다. 이번에는 비록 단순히 합계만 내는 함수이지만 좀 더 다양한 기능을 가진 함수를 만들어 볼 생각이다.