위 사진처럼 1차원으로 자료를 수집한 시트의 내용을 참고하여 3차원 매트릭스의 값을 추가하는 코드를 작성중입니다.

완성된 결과물은 사진 하단에 첨부한 피벗테이블과 유사한 형태가 되겠지요.


이를 위해서 코드를 짜봤는데 다음과 같은 문제가 발생하였습니다.

1. 중첩 for문이 무려 6개나 들어갑니다.
아무래도 이것보다 훨씬 깔끔하게 데이터를 뽑아내는 코드가 있을 것 같은데 제 깜으론 알 수가 없습니다.

2. 'next 컨트롤 변수 참조가 잘못되었습니다'라는 오류가 출력됩니다. 이를 찾아보니 상위 for순환문에서 참조한 순환변수를 하위 for순환문에서 참조할 때 오류가 발생한다고 하는데, 변수명을 다르게 선언하였음에도 오류가 출력됩니다.

3. 지난번에도 몇번 이런식으로 중첩 순환문을 이용해 코딩을 했었는데 그때마다 극심하게 느린 연산속도 때문에 몇번이나 포기하고 수기로 데이터 생산 작업을 진행했었습니다. 가능한 방법이 있다면 도와주십시오.



이하는 제가 짠 코드 전문입니다.

Option Explicit

Sub matrix()


Dim wkMat As Worksheet              '// 3차원 변환 시트
Dim wkTable As Worksheet            '// 기존 1차원 시트
Dim targetVal As Range              '// 3차원 변환 시트 합계값이 들어갈 셀
Dim tgtResult As Long               '// 조건에 맞는 합계값

Dim lastRow_Mat As Integer          '// 3차원 변환 시트의 마지막 행
Dim lastColumn_Mat As Integer       '// 3차원 변환 시트의 마지막 열

Dim lastRow_Table As Integer        '// 기존 1차원 시트의 마지막 행

Dim i As Integer
Dim j As Integer
Dim k As Integer                    '// 3차원 변환 시트의 행, 열 돌이

Dim ii As Integer
Dim jj As Integer
Dim kk As Integer                    '// 1차원 변환 시트의 행 돌이


Set wkMat = ThisWorkbook.Worksheets("matrix")
Set wkTable = ThisWorkbook.Worksheets("table")

lastRow_Mat = wkMat.Cells(Rows.Count, "A").End(xlUp).Row
lastColumn_Mat = wkMat.Cells(1, Columns.Count).End(xlToLeft).Column

lastRow_Table = wkTable.Cells(Rows.Count, "A").End(xlUp).Row

Set targetVal = wkMat.Cells(j, k).Offset(1, 2)
tgtResult = 0

For i = 1 To lastRow_Mat
For j = 1 To lastRow_Mat
For k = 1 To lastColumn_Mat
    
    For ii = 1 To lastRow_Table
    For jj = 1 To lastRow_Table
    For kk = 1 To lastRow_Table
            
            If wkMat.Cells(i, "A").Value = wkTable.Cells(ii, "A").Value And _
            wkMat.Cells(j, "B").Value = wkTable.Cells(jj, "B").Value And _
            wkMat.Cells(1, k).Value = wkTable.Cells(kk, "C").Value Then
                
                If tgtResult = 0 Then
                    tgtResult = wkTable.Cells(kk, "D").Value
                Else
                    tgtResult = tgtResult + wkTable.Cells(kk, "D").Value
                End If
            
            End If
    
    Next ii
    Next jj
    Next kk
    
    targetVal.Value = tgtResult
    tgtResult = 0

Next k
Next j
Next i

End Sub



질문 읽어주시는 분들께 모두 감사의 인사를 드립니다.