Sub MakeReportFiles()
    Dim shL As Worksheet     '// 목록
    Dim shR As Worksheet     '// 보고서
    Dim vCol As Variant      '// 목록 열번호
    Dim vAddr As Variant     '// 보고서 셀주소
    Dim vData As Variant, iR As Long, iC As Long, iLast As Long
    Dim sPath As String
 
    On Error Resume Next
    Set shL = Application.InputBox("목록시트를 선택하세요.", "목록", , , , , , 8).Parent
    If shL Is Nothing Then Exit Sub
 
    Set shR = Application.InputBox("보고서시트를 선택하세요.", "보고서", , , , , , 8).Parent
    If shR Is Nothing Then Exit Sub
    On Error GoTo 0
 
<strong>    vCol = <span style="color: #000000;">Array(<span style="color: #0000ff;">12, 13, 14, 16, 17</span>)</span>      '// 열번호
    vAddr = Split(<span style="color: #0000ff;">"L3,L2,L1,L5,L4"</span>, <span style="color: #ff0000;">","</span>)  '// 적용주소 이 2개의 쌍을 매핑한다</strong>
    shL.AutoFilterMode = False
    iLast = shL.Range("A100000").End(xlUp).Row
    vData = shL.Range("A1:Z" & iLast).Value2
    sPath = shR.Parent.Path & "\Report"
    If Dir(sPath, vbDirectory) = "" Then MkDir sPath
 
    For iR = 6 To UBound(vData, 1)
        For iC = LBound(vCol) To UBound(vCol)
            shR.Range(Trim(vAddr(iC))) = shL.Cells(iR, vCol(iC))
        Next iC
        shR.SaveAs sPath & "\단위테스트결과서_" & vData(iR, 6) & ".xlsx"
    Next iR
 
End Sub