FormBoardView

Title 해당내용은 지원여부를 검토하도록 하겠습니다

Writer 기술지원팀

Written time 2026-04-08 오전 10:09:49

Hits 7

Attached File

답변> 안녕하십니까. 오토베이스 기술지원팀입니다. 문의주신 내용을 검토해본 결과, 기존 코드와 건의 주신 코드에서 유의미한 차이가 있습니다. 건의 주신 내용을 사용할 경우, 말씀해주신대로 데이터 처리 속도에서 개선은 있으나 실제 출력 시트의 디자인이 여러줄 요소 결과값에 따라 바뀌는 변경점이 있습니다. 해당 내용들은 기술지원팀에서 검토해보고 추후 개선할 수 있도록 지원여부를 검토하도록 하겠습니다. 추가로, VBA 를 통하여 엑셀리포트 기능을 현장 상황에 맞게 사용하셔도 됩니다. 더욱 자세한 답변이나 다른 문의사항이 있으시면 저희 기술지원팀으로 문의하여 주시기 바랍니다. 감사합니다. 질문> 안녕하세요. 현재 VBA 코드에서 행 복사 및 삽입 시 처리 속도가 느려 문의 드립니다. 기존에는 여러 번의 Select / Copy / Insert를 사용하고 있습니다. 해당 방식은 셀 선택과 클립보드를 사용하기 때문에 처리 속도가 저하되는 문제가 있습니다. (1) 기존 코드 If nRow < rowCount And bInsertItem = True Then Rows(y + nRow).Select Selection.Copy Rows(y + nRow + 1).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False End If (2) 변경 요청 코드 If nRow < rowCount And bInsertItem = True Then Sheets(nSheet).Rows(y + nRow + 1).Insert Sheets(nSheet).Rows(y + nRow + 1).FormulaR1C1 = _ Sheets(nSheet).Rows(y + nRow).FormulaR1C1 End If (3) 변경 요청 코드 2 Rows(y).Copy Rows(y + 1 & ":" & y + nRow - 1).PasteSpecial xlPasteFormats Application.CutCopyMode = False (1)의 코드를 (2)의 코드로 변경하고 nRow을 사용하는 for문 밖에 (3)의 코드를 추가하는 방식으로 변경 요청을 드리고, 안되면 변경해서 사용해도 되는지 문의 드립니다.

Title	해당내용은 지원여부를 검토하도록 하겠습니다
Writer	기술지원팀
Written time	2026-04-08 오전 10:09:49
Hits	7
Attached File
답변> 안녕하십니까. 오토베이스 기술지원팀입니다. 문의주신 내용을 검토해본 결과, 기존 코드와 건의 주신 코드에서 유의미한 차이가 있습니다. 건의 주신 내용을 사용할 경우, 말씀해주신대로 데이터 처리 속도에서 개선은 있으나 실제 출력 시트의 디자인이 여러줄 요소 결과값에 따라 바뀌는 변경점이 있습니다. 해당 내용들은 기술지원팀에서 검토해보고 추후 개선할 수 있도록 지원여부를 검토하도록 하겠습니다. 추가로, VBA 를 통하여 엑셀리포트 기능을 현장 상황에 맞게 사용하셔도 됩니다. 더욱 자세한 답변이나 다른 문의사항이 있으시면 저희 기술지원팀으로 문의하여 주시기 바랍니다. 감사합니다. 질문> 안녕하세요. 현재 VBA 코드에서 행 복사 및 삽입 시 처리 속도가 느려 문의 드립니다. 기존에는 여러 번의 Select / Copy / Insert를 사용하고 있습니다. 해당 방식은 셀 선택과 클립보드를 사용하기 때문에 처리 속도가 저하되는 문제가 있습니다. (1) 기존 코드 If nRow < rowCount And bInsertItem = True Then Rows(y + nRow).Select Selection.Copy Rows(y + nRow + 1).Select Selection.Insert Shift:=xlDown Application.CutCopyMode = False End If (2) 변경 요청 코드 If nRow < rowCount And bInsertItem = True Then Sheets(nSheet).Rows(y + nRow + 1).Insert Sheets(nSheet).Rows(y + nRow + 1).FormulaR1C1 = _ Sheets(nSheet).Rows(y + nRow).FormulaR1C1 End If (3) 변경 요청 코드 2 Rows(y).Copy Rows(y + 1 & ":" & y + nRow - 1).PasteSpecial xlPasteFormats Application.CutCopyMode = False (1)의 코드를 (2)의 코드로 변경하고 nRow을 사용하는 for문 밖에 (3)의 코드를 추가하는 방식으로 변경 요청을 드리고, 안되면 변경해서 사용해도 되는지 문의 드립니다.