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

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