Note: The other languages of the website are Google-translated. Back to English

모든 워크 시트를 값으로 만 저장하는 방법은 무엇입니까?

여러 수식이 포함 된 통합 문서가있는 경우 이제이 파일을 다른 사용자에게 배포해야합니다. 수식을 표시하지 않고 값만 표시합니다. 일반적으로 데이터를 값으로 만 복사하여 붙여 넣어 워크 시트를 값으로 빠르게 저장할 수 있습니다. 그러나 어떻게 모든 워크 시트를 하나씩 복사하여 붙여 넣지 않고 값으로 만 저장할 수 있습니까?

VBA 코드로만 모든 워크 시트를 값으로 저장


화살표 블루 오른쪽 거품 VBA 코드로만 모든 워크 시트를 값으로 저장

다음 VBA 코드를 사용하면 모든 시트를 수식없이 값으로 빠르게 저장하고 모든 셀 서식을 유지할 수 있습니다. 다음과 같이하십시오 :

1. 누르고 ALT + F11 키를 눌러 응용 프로그램 용 Microsoft Visual Basic 창.

2. 딸깍 하는 소리 끼워 넣다 > 모듈을 클릭하고 다음 코드를 모듈 창문.

VBA 코드 : 모든 워크 시트를 값으로 만 저장합니다.

Sub Saveasvalue()
'Updateby Extendoffice
    Dim wsh As Worksheet
    For Each wsh In ThisWorkbook.Worksheets
        wsh.Cells.Copy
        wsh.Cells.PasteSpecial xlPasteValues
    Next
    Application.CutCopyMode = False
End Sub

3. 그런 다음 F5 이 코드를 실행하려면 전체 통합 문서가 값으로 만 저장되었으며 모든 수식은 한 번에 제거되었으며 값은 셀 서식으로 유지됩니다.

주의 사항: 코드를 적용하기 전에 먼저 통합 문서의 사본을 저장할 수 있습니다.


최고의 사무 생산성 도구

Excel용 Kutools는 대부분의 문제를 해결하고 생산성을 80% 증가시킵니다.

  • 재사용: 빠르게 삽입 복잡한 공식, 차트 그리고 이전에 사용한 모든 것; 셀 암호화 암호로; 메일 링리스트 생성 이메일 보내기 ...
  • 슈퍼 포뮬러 바 (여러 줄의 텍스트와 수식을 쉽게 편집 할 수 있습니다.) 레이아웃 읽기 (많은 수의 셀을 쉽게 읽고 편집합니다.) 필터링 된 범위에 붙여 넣기...
  • 셀 / 행 / 열 병합 데이터 손실없이; 셀 내용 분할; 중복 행 / 열 결합... 중복 셀 방지; 범위 비교...
  • 중복 또는 고유 선택 행; 빈 행 선택 (모든 셀이 비어 있음); 슈퍼 찾기 및 퍼지 찾기 많은 통합 문서에서; 무작위 선택 ...
  • 정확한 사본 수식 참조를 변경하지 않고 여러 셀; 참조 자동 생성 여러 시트에; 글 머리 기호 삽입, 확인란 등 ...
  • 텍스트 추출, 텍스트 추가, 위치 별 제거, 공간 제거; 페이징 부분합을 만들고 인쇄합니다. 셀 내용과 주석 간 변환...
  • 슈퍼 필터 (다른 시트에 필터 구성표 저장 및 적용) 고급 정렬 월 / 주 / 일, 빈도 등 특수 필터 굵은 기울임 꼴로 ...
  • 통합 문서와 워크 시트 결합; 키 열을 기반으로 테이블 병합; 데이터를 여러 시트로 분할; xls, xlsx 및 PDF 일괄 변환...
  • 300개 이상의 강력한 기능. Office / Excel 2007-2021 및 365를 지원합니다. 모든 언어를 지원합니다. 기업 또는 조직에서 쉽게 배포할 수 있습니다. 전체 기능은 30일 무료 평가판입니다. 60일 환불 보장.
kte 탭 201905

Office Tab은 Office에 탭 인터페이스를 제공하여 작업을 훨씬 쉽게 만듭니다.

  • Word, Excel, PowerPoint에서 탭 편집 및 읽기 사용, Publisher, Access, Visio 및 Project.
  • 새 창이 아닌 동일한 창의 새 탭에서 여러 문서를 열고 만듭니다.
  • 생산성을 50% 높이고 매일 수백 번의 마우스 클릭을 줄입니다!
officetab 하단
코멘트 (18)
아직 평가가 없습니다. 가장 먼저 평가하세요!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
감사해요! VBA 코드는 훌륭하게 작동했습니다.
하지만 내가 알아차린 한 가지는 일부 셀에 필터가 있는 통합 문서에서 사용하려고 했을 때 작동하지 않는다는 것입니다.
필터를 비활성화하지 않고 이 코드가 작동하도록 하는 해결 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
필터와 함께 VBA 코드를 사용할 때도 같은 문제가 있습니다. 그것에 대한 해결책이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
헐 이거 고칠 수 있었어? 나는 같은 문제가있다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
매우 좋은! 그것은 내 많은 문제를 해결했습니다. 정말 감사합니다. 문안 인사.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
형님 감사합니다..대박입니다..많은 도움이 되었습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
하위 Saveasvalue()
'업데이트바이 Extendoffice 20161025
워크시트로 Dim wsh
ThisWorkbook.Worksheets의 각 wsh에 대해
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues ​​- 런타임 오류 1004 발생 - 누구든지 이에 대해 도움을 받을 수 있습니다.
다음
Application.CutCopyMode = False
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
해당 코드를 실행하면 "Getting Run time Error 1004" 오류가 발생합니다.
참고로 내 엑셀에는 셀 병합이 있습니다.

누군가 솔루션을 제공하면 도움이 될 것입니다

고맙습니다
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕, 미르나
위의 코드는 내 통합 문서에서 잘 작동합니다. 어떤 Excel 버전을 사용하십니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
잘 작동한다. 감사해요.

@mirna: 시트나 셀의 보호를 해제해야 합니다. VB는 보호 모드를 좋아하지 않습니다 :)
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
펑시오노!! 무이토 봄!!!
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
Tengo ese codigo, si bien es cierto funciona pero quisiera que no thinke algunas hojas de mi archivo excel. 세푸에데?
인사말.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
모든 시트의 모든 필터/보호 장치를 제거합니다. 완벽하게 작동해야 합니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
좋은! 훌륭한! 필요한데 시트가 없어요
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그룹화되어 Excel 기반 재무제표를 게시해야 합니다. 이것은 모든 수식을 지우고 숫자만 남기는 데 효과가 있었습니다. 내가 시도한 다른 방법은 그룹화를 지웠습니다.
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
공식 버전을 먼저 저장하는 것을 잊은 경우 이 작업을 실행 취소할 수 있는 방법이 있습니까?
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
그것은 잘 실행되지만 많은 Excel 통합 문서에 대한 값으로 붙여 넣기의 VBA가 필요합니다.



이 댓글은 사이트의 중재자에 의해 최소화되었습니다
안녕,
이것이 내가 사용하는 것입니다(파일을 자동으로 종료하므로 실수로 값만 저장하지 않습니다).

하지만 나는 지키고 싶었다 한 장만 "정상적으로" 저장됨 파일을 공유할 때 잃어버리고 싶지 않은 드롭다운 목록이 있기 때문입니다.


아무도 내가 이것을 할 수 있습니까?

감사합니다!


하위 Saveasvalue()

워크시트로 Dim wsh
ThisWorkbook.Worksheets의 각 wsh에 대해
wsh.Cells.Copy
wsh.Cells.PasteSpecial xlPasteValues
다음
Application.CutCopyMode = False

savename = Application.GetSaveAsFilename(fileFilter:="엑셀 파일(*.xlsx), *.xlsx")
ActiveWorkbook.SaveAs 파일 이름:=savename, 파일 형식:=51

Application.DisplayAlerts = False '경고 없이 종료
응용 프로그램. 종료
최종 하위
이 댓글은 사이트의 중재자에 의해 최소화되었습니다
sämst shjkjhgasghjdfsjhkfdgsdjhgafgb,ja u fdsvjkhgfkjahfg 카 khdfzhjkg
아직 코멘트가 없습니다
여러분의 의견을 남겨
게스트로 게시
×
이 게시물 평가 :
0   등장 인물
추천 위치

Follow Us

저작권 © 2009 - WWW.extendoffice.com. | 판권 소유. 에 의해 구동 ExtendOffice. | | 사이트 맵
Microsoft 및 Office 로고는 미국 및 / 또는 기타 국가에서 Microsoft Corporation의 상표 또는 등록 상표입니다.
Sectigo SSL로 보호