-
[& Chronicle] 파트별 생산 합계 구하기VB(A)/당근쨈 & Chronicle 2017. 5. 5. 08:03
http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=275916203
위 그림과 같이 파트별 생산 합계를 구하는 질문입니다.
타트타임이 모두 채워져있다면 쉽게 해결될 문제입니다만 어쩐 이유에서인지 그렇게는 안 되나봅니다.Chronicle님은 위와 같이 LookUp을 이용하여 풀어냈습니다. - http://blog.naver.com/asaph16/220997871985
이번 문제를 풀어낸 흐름은 맨 마지막에서 End(xlUp)로 위 데이터로 차례로 올라가며 파트별 생산합계를 구하는 방식입니다. 불규칙하게 반복되는 경우는 Do Loop문이 역시 편리합니다.
통합 문서2.xlsmSub Macro()Dim r As Integer'기존자료 삭제Range("E4").CurrentRegion.Columns(7).Offset(1).ClearContents'마지막 행번호r = Cells(Rows.Count, 5).End(3).Row'밑에서 위로 올라가면서 부분합 실행DoWith Cells(r, 6).End(3).Offset(, 4) = WorksheetFunction.Sum(Range(Cells(r, 6), .Cells).Offset(, 3))r = .Row - 1End WithLoop While r > 5End Subcs 'VB(A) > 당근쨈 & Chronicle' 카테고리의 다른 글
[& Chronicle] 일치하는 패턴 개수 (0) 2017.05.08 [& Chronicle] 그룹별 합계 구하기 (0) 2017.05.07 [& Chronicle] 상대참조 주소 유지하여 수식 복사하기 (0) 2017.05.04 [& Chronicle] 공급업체가 다를 경우 행삽입 하기 (0) 2017.05.03 [& Chronicle] 불규칙한 그룹의 문자열 구분 (0) 2017.05.03 댓글