무작위로 입력한 자료를 품목별로 나누기

Step 1: 어떤 질문이었을까요?

비밀 메일로 보내신 것으로 보아… 예제 파일을 하나 만들고 이것으로 설명을 하는 것이 좋을 듯 합니다. 아래 버튼을 클릭하면 요런 모양의 데이터가 이렇게 정리됩니다.

아이엑셀러

아이엑셀러

위의 두 그림을 보면 무엇을 어떻게 처리해 달라는 것인지 이해가 되시지요?

왼쪽 그림과 같이 담당자별로 매출 실적이 발생할 때마다 자유롭게(?) 매출장부에 기록을 합니다. 그런 다음 하루 마감을 할 때, 각자가 기록한 것을 펼쳐 놓고 품목별로 뭐가 얼마나 팔렸는지 결산을 하는데 이것을 자동화 할 방법이 없느냐는 것입니다.

버튼을 눌러서 보셨듯이 가능합니다.

Step 2: 코드 살펴보기

Option Base 1
'배열의 아래 첨자(Lbound) 하한값을 1로 설정합니다.

Sub DivideDataByItem()

    Dim shtSheet As Worksheet
    Dim shtAdd As Worksheet
    Dim rngSource As Range
    Dim rngItem As Range
    Dim rngAmount As Range
    Dim rngUnique As Range
    Dim varUnique As Variant
    Dim lngRow As Long
    Dim i As Integer

    'Workplace 시트에서 사용된 영역(UsedRange)을 rngSource 변수에 할당하고 행수를 카운팅하여
    'lngRow 변수에 담아 둡니다.
    Set shtSheet = Worksheets("Workplace")
    Set rngSource = shtSheet.UsedRange
    lngRow = rngSource.Rows.Count

    Set rngItem = rngSource.Columns(1).SpecialCells(xlTextValues)
    Set rngAmount = rngItem.Offset(1, 1)
    Set shtAdd = Worksheets.Add

    With shtAdd
    '새로운 시트를 한 장 삽입합니다. 고급 필터를 이용하여 상품명 중에서 중복되지 않는 항목들을
    ' 걸러 냅니다.

        rngItem.AdvancedFilter Action:=xlFilterCopy, CopyToRange:=.Range("A1"), Unique:=True
        Set rngUnique = .Range(.Range("A2"), .Range("A2").End(xlDown))
    End With

    With rngUnique
        .Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, OrderCustom:=1
        varUnique = .Value
        '중복되지 않는 값들을 varUnique 변수에 저장합니다.

    End With

    For i = LBound(varUnique) To UBound(varUnique)
    'varUnique 변수, 즉 상품명별로 판매수량 데이터를 필터 기능을 이용하여 하나씩 가져옵니다.
     '잘 이해가 안되는 분은 연필과 종이를 이용하여 순환문을 3바퀴 정도만 돌려보면 로직을 이해
     '할 수 있으리라 생각합니다.

        rngSource.AutoFilter Field:=1, Criteria1:=varUnique(i, 1)
        rngAmount.SpecialCells(xlCellTypeVisible).Copy
        rngUnique(i, 1).Offset(0, 1).PasteSpecial Transpose:=True
    Next i

    rngSource.AutoFilter
    Range("A1").Select

End Sub

다음 시간에…

정리 — 품목별 나누기 코드 핵심

자주 묻는 질문 (FAQ)

마치며

필터 기능 두 가지와 붙여넣기 옵션만 조합해도 수작업 결산을 자동으로 바꿀 수 있습니다. 순환문이 잘 이해되지 않으면 연필과 종이로 세 바퀴만 돌려 보세요!