EXCEL 2010 사용중 리소스가 부족하여 이작업을 완료 할수 없습니다.

Question

같은 엑셀파일내에 한 시트를 행 삽입시 " 리소스가 부족하여 이작업을 완료 할수 없습니다." 라는

메세지가 나옵니다. 파일 용량은 엑셀파일치고 꽤 큰편이구요..메모리도 많이 차지하네요..

참고로 PC 사양은 i7, Ram 4GB 입니다. 지금 업무에 많은 지장을 주네요... 빠른 답변 기다리겠습니다.

*** 개인 정보 보호를 위해 전화 번호가 삭제됨 ***

Answer 1

안녕하십니까? 명현노님.

Microsoft Office의 제품의 Excel 사이트를 방문해 주셔서 감사합니다.

EXCEL 2010 사용중 리소스가 부족하여 이작업을 완료 할수 없는 문제에 대해서 답변 드리겠습니다.

보통 파일 용량이 커지는 경우는 파일에 손상된 내용이 많이 포함되어 있는 경우가 그럴 수 있습니다.

(정확한 확인을 위해서 파일을 각각의 시트별로 따로 저장해 보시기 바랍니다. 어느 시트가 실제로 많은 용량을 차지하고 있는지 확인이 가능하십니다.)

1. 셀 스타일 확인

a. Excel 2010 프로그램을 실행합니다.

b. Excel 프로그램이 실행되면, 홈 탭의 [셀 스타일]을 확인합니다.

c. 고객님이 직접 지정하여 만드신 셀 스타일 이외에 다른 스타일들이 임의로 많이 포함되어 있지는 않은지 확인해 보시기 바랍니다.

(아래 그림이 정상적인 셀 스타일의 모습입니다.)

2. 이름 관리자 제거

a. Excel 2010 프로그램을 실행합니다.

b. Excel 프로그램이 실행되면, 수식 탭의 [이름 관리자]를 선택합니다.

c. 현재 사용되는 이름을 모두 선택 한 후 [삭제]를 선택합니다.

아래와 같이 진행하시는 부분도 도움이 될 것입니다.

해당 파일을 열고 ALT+F11 키를 눌러 Visual basic 창을 열어 봅니다.

그리고 삽입 - 모듈 메뉴를 클릭합니다.

빈 창이 하나 열리게 됩니다.

1. 아래 내용을 삽입합니다.

Sub CountShapes()

Dim w As Worksheet

Dim i As Integer

Dim iCount As Integer

For Each w In ThisWorkbook.Worksheets

i = w.Shapes.Count

Debug.Print "시트 : " & w.Name & " (" & i & ")개"

iCount = iCount + i

Next w

Debug.Print "총 : " & iCount & "개의 개체"

End Sub

Sub DeleteShapes()

Dim w As Worksheet

Dim s As Shape

On Error Resume Next

For Each w In ThisWorkbook.Worksheets

For Each s In w.Shapes

s.Visible = True

s.Delete

Next s

Next w

End Sub

6. 첫번째 프러시저인 Sub countShapes()와 End Sub 사이에 마우스 커서를 위치한 상태에서 Sub/사용자 정의 폼을 싱행합니다.

(F5키를 눌러도 됩니다.)

7. 직접 실행 창에 각 시트에 사용된 개체 수와 총 개체 수가 표시됩니다.

8. 두번째 프러시저인 Sub DeleteShapes()와 End Sub 사이에 마우스 커서를 위치한 상태에서 Sub/사용자 정의 폼 실행

(F5키를 눌러도 됩니다.) 각 시트의 모든 개체를 삭제하는 과정에서 수 분 정도의 시간이 소요 될 수도 있습니다.

9. 삭제 작업이 완료되면 5~6번 작업을 한 번 더 실행하여 각 개체들이 완전히 삭제된 것을 확인합니다.

10. 코드가 파일에 포함될 필요가 없기 때문에 삽입된 모듈의 이름을 선택한 후 마우스 우측 버튼을 클릭하여 [모듈제거]를 선택합니다.

11. 모듈 내보내기 창이 나타나면 [아니오] 버튼을 선택합니다.

12. 이후 파일을 다른 이름으로 저장 하셔서 문제를 다시 재현해 보시기 바랍니다. 증상이 나타나지 않는다면 해결 된 것입니다.

만약 정확한 확인이 어렵다면, 파일을 공개된 카페 또는 블로그에 올려 주신 후 링크를 주시면 확인 후 도움을 드릴 수 있습니다.

제가 문제에 대해 더 알아야 할 것이 있다면 응답 주시면 감사하겠습니다.

제시해 드린 답변이 도움이 되었기를 바랍니다.

응답이 문제 해결에 도움이 되었다면, 아래에 있는 답변으로 [표시] 버튼을 눌러 주시기 바랍니다. 이는 유사한 증상을 겪는 다른 사용자들에게 도움이 될 수 있습니다.