|
* 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.
- 엑셀 버전(95,97,2000,xp,2003,2007): 2016
* 아래줄에 질문을 작성하세요 >>
첨부와 같이 도면번호별 각각의 항목 갯수가 아랫열에 있는데
필요로하는 항목에 대해서만 전체 합계를 구하고 싶습니다.
물론 아랫열의 항목이 한행 밑뿐 아니라 여러행으로도 되어 있으며
구분은 도면번호로 구분이 되었으면 합니다.
==============[경로우대님 글에 대한 답변입니다]==============
첨부화일 참고하세요.
Sub EachUserSum()
Dim sht As Worksheet
Dim rData As Range
Dim rFind As Range, sAddr As String
Dim rX As Range
Dim lRow As Long, lCol As Long
Dim sWhat As String
Dim lSum As Long
Set sht = Worksheets("조립품 양식")
lRow = sht.Cells(Rows.Count, 1).End(xlUp).Row
lCol = sht.Cells(2, 1).End(xlToRight).Column
Set rData = Range(sht.Range("A2"), sht.Cells(lRow, lCol))
For lRow = 4 To sht.Cells(Rows.Count, "O").End(xlUp).Row
sWhat = sht.Cells(lRow, "O")
Set rFind = rData.Find(What:=sWhat, LookAt:=xlWhole)
If Not rFind Is Nothing Then
sAddr = rFind.Address
Do
lSum = lSum + getSum(rFind)
Set rFind = rData.FindNext(rFind)
Loop While Not rFind Is Nothing And rFind.Address <> sAddr
sht.Cells(lRow, "P") = lSum
lSum = 0
End If
Next
End Sub
==============[dew님 글에 대한 답변입니다]=============
감사합니다.
잘 쓰도록 하겠습니다 |
|