[땡큐엑셀vba & 엑셀매크로] 값찾아 누적카운트

땡큐 누적카운트1

 

땡큐 누적카운트4

 

헬로우 누적카운트1

'http://kin.naver.com/qna/detail.nhn?d1id=1&dirId=102020101&docId=279712065
'
'B1셀에 원하는 이름을 입력하고
'A4나 아무곳에 있는 매크로 실행 버튼을 누르면
'C2부터 C열 아래로 B1에 쓴 이름이 누적해서 나열되고,
'D2부터 D열 아래로는 누적횟수가 기록되는 매크로를 만들고싶네요.
'ex) 밑에 화면에서
'헬로'를 5명이나 희망한 사람이 있는데 다른 사람이 쓰면 '헬로' 옆에수가 6명으로 증가하게끔요.
'해피'를 B1에 입력하고 매크로를 실행하면 허니 밑에 해피가 추가되고, 옆에 수가 1명이 되게끔요.


'
'source by 땡큐엑셀vba & 엑셀매크로
'
Sub 누적카운트()

    마지막행 = Cells(Cells.Rows.Count, "C").End(xlUp).Row
    
    '찾는값의 위치는 알맞게 변경하여 사용하세요.
    찾는값 = Cells(1, "B")
    
    '맨 마지막행부터 1행까지 거꾸로 올라가면서 C열에서 찾는다
    For i = 마지막행 To 1 Step -1
        'C열이 아닌 다른 열일경우 변경하여 사용하세요.
        If Cells(i, "C") = 찾는값 Then
            '찾는값인 경우 카운트증가
            현재값 = Cells(i, "C").Offset(0, 1)
            Cells(i, "C").Offset(0, 1) = 현재값 + 1
            Exit For
        End If
    Next i
    
    '새로운 값인경우 끝에 추가
    If i = 0 Then
        Cells(마지막행 + 1, "C") = 찾는값
        Cells(마지막행 + 1, "C").Offset(0, 1) = 1
    End If
    
    

    MsgBox "완료되었습니다", vbInformation, "땡큐엑셀vba & 엑셀매크로"

End Sub

값찾고누적카운트-Rows.Count_Offset_End-땡큐엑셀vba.xlsm

0.05MB