춤추는초코칩의 일상, 게임, 재테크

안녕하세요. 춤추는초코칩입니다.

=SUMIF(A, B, C)

A : 조건을 부여할 범위

B : 조건(텍스트를 사용할 경우 좌우로 쌍따옴표가 필요함)

C : 실제로 더해야하는 수치자료 범위

계, 원금, 이자 중 "계"의 수치의 합을 구하고 싶다면 아래와 같이 되겠죠. ^ㅡ^

"$" 표시는 범위를 고정하기 위해 사용합니다.

Sub Macro1()
    '중복을 확인할 컬럼 초기화
    x = Range("E1").Value
    '병합할 행의 갯수를 결정
    For i = 2 To 203
        '중복이면 병합
        If x = Range("E" & CStr(i)).Value Then
            '입력할 텍스트 내용은 마음대로
            y1 = y1 + "/(" + Range("G" & CStr(i)).Value + ")" + Range("H" & CStr(i)).Value
            y2 = y2 + "/(" + Range("G" & CStr(i)).Value + ")" + Range("I" & CStr(i)).Value
            'MsgBox (y1)
        '중복이 아니면 원하는 셀에 자료입력
        Else
            '병합된 자료입력
            Range("M" & CStr(i - 1)).FormulaR1C1 = y1
            Range("N" & CStr(i - 1)).FormulaR1C1 = y2
            '자료 초기화
            y1 = "(" + Range("G" & CStr(i)).Value + ")" + Range("H" & CStr(i)).Value
            y2 = "(" + Range("G" & CStr(i)).Value + ")" + Range("I" & CStr(i)).Value
            x = Range("E" & CStr(i)).Value
        End If
    Next i
End Sub