OfficeTutor.com
배움터 나눔터 교육센터 오튜장터
 통합검색  
  Home > 나눔터 > 엑셀 > 묻고답하기
엑셀
워드
액세스
파워포인트
아웃룩
프런트페이지
인포패스
원노트
비지오
쉐어포인트
포토드로우
퍼블리셔
오피스공통
MVP 안내
MVP 명예의 전당
MVP 카페

 

 

 

 
엑셀에 대한 질문과 답변을 올려주세요. 단, 취지에 맞지 않는 글은 운영자가 삭제합니다.
 "000 님, 도와주세요", "부탁 드립니다.", "급합니다!" 등과 같이 막연한 제목을 달지 말아주세요.
[필독] 빠르고 정확한 답변을 얻는 16가지 Tip !
[필독] 저작권법 개정에 따른 이용안내

작성자:  

 조훈 (xyzkor)

추천:  0
파일:     제목 없음2.png (114.4KB) 조회:  168
제목:   회원님들께 도움을 청합니다 vba관련.
     
  * 답변하시는 분들께 도움이 되도록 자신의 환경을 아래 항목 옆에 기재해 주세요.

 - 엑셀 버전(95,97,2000,xp,2003,2007):

* 아래줄에 질문을 작성하세요 >> 엑셀 2007 버전



안녕하세요 문의드릴게 있어서요

Option Explicit

Sub samename_sum()

Dim rngc As Range
Dim rngall As Range
Dim rngtarget As Range
Dim cnt, i As Double
Dim sum_cnt As Double
Application.ScreenUpdating = False


Set rngtarget = Range([a2:c2], Cells(Rows.Count, "c").End(3))
For Each rngc In rngtarget
rngc.Offset(0, 7).Value = rngc.Value
Next rngc

Set rngall = Range("h2:j2", Cells(Rows.Count, "j").End(3))
Cells(1, "j").Value = "ingredient"
For Each rngc In rngall
cnt = Application.CountIf(rngall, rngc)
If cnt > 1 Then
rngc.Resize(, 1).Clear
End If
Next rngc
With Range([j2], Cells(Rows.Count, "j").End(3))
.Sort key1:=Range("j2"), order1:=xlAscending

End With

sum_cnt = 0
Columns("k:k").EntireColumn.ClearContents
Cells(1, "k").Value = "총사용량"
For Each rngc In rngall
For i = 2 To Cells(Rows.Count, "c").End(3).Row
If rngc.Value = Cells(i, "c").Value Then
sum_cnt = sum_cnt + Cells(i, "f").Value

rngc.Offset(0, 1).Value = sum_cnt
rngc.Offset(0, 1).NumberFormat = "0.00000000"

End If
Next i
sum_cnt = 0
Next rngc

Set rngall = Nothing
Set rngtarget = Nothing

MsgBox "working complete"

End Sub


현재 이런 수식을 완성했습니다.

현재 c열이 중복처리 후 우측에 j열에 함량계산으로 식이 나오게 했습니다

그런데 실무자가 a열과 b열의 정렬된 c열의 동일행값이

우측에도 중복처리후 동일하게 나와줘야 한다고 합니다.

값이 동일하게 나오려면 어떻게 수정을 해야하나요?

현재 c값이 j열에 나타나지는것은 중복제거후 오름차순 정렬까진 되는데 ab의 데이터값이 c값을 따라가주지 못합니다.

알려주세요 감사합니다.
 
[불량 게시물 신고]  
        
  

작성일 : 2017-07-11(16:05)
최종수정일 : 2017-07-11(18:57)
 
 
 
회사소개 | 이용약관 | 개인정보 처리방침 | 회원정보수정 | 교육신청 및 문의 | 이메일무단수집거부 위로

오피스튜터 블로그 오피스튜터페이스북 오피스튜터유투브
110-722 서울 종로구 세종대로23길 47, 601-74 ㈜오피스튜터 ☎1544-4102 대표이사 : 전경수
개인정보관리책임자 : 이희진(privacy@officetutor.com) 사업자등록번호 120-86-14501
통신판매업신고 2013-서울종로-0547
norton
Copyright ⓒ OfficeTutor.com 이 페이지의 저작권은 ㈜오피스튜터와 콘텐츠 제공자에게 있습니다. 무단 복제를 금합니다.
Microsoft 및 Office 로고는 미국, 대한민국 및/또는 기타 국가에서의 Microsoft Corporation 등록 상표 또는 상표입니다.