|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007):2013
* 아래줄에 질문을 작성하세요 >>
우측 같은값을 데이터를 기준으로 좌측에 빈셀이 있는데,
빈 셀을 위칸채우기를 해야 됩니다.
사용자 함수(function)로 부탁드립니다.
==============[정선택님 글에 대한 답변입니다]==============
첨부화일 참고하세요
' 빈간 채우기
Function getData(rCell As Range)
Application.Volatile
getData = IIf(rCell = "", rCell.End(xlUp).Value, rCell)
End Function
' 조건에 맞는 합계구하기
Function getSum(rRef As Range, rCri As Range)
Dim rEach As Range
Dim rA As Range, rB As Range, rC As Range
Application.Volatile
Set rA = IIf(rCri.Cells(1, 1) = "", rCri.Cells(1, 1).End(xlUp), rCri.Cells(1, 1))
Set rB = IIf(rCri.Cells(1, 2) = "", rCri.Cells(1, 2).End(xlUp), rCri.Cells(1, 2))
Set rC = IIf(rCri.Cells(1, 3) = "", rCri.Cells(1, 3).End(xlUp), rCri.Cells(1, 3))
For Each rEach In rRef.Rows
If rEach.Cells(1, 1) = rA And rEach.Cells(1, 2) = rB And rEach.Cells(1, 3) = rC Then
getSum = getSum + rEach.Cells(1, 4)
End If
Next
End Function |
|