Excel 통합 문서에서 각 워크 시트의 데이터 크기를 가져 오는 2 가지 빠른 방법

Excel 통합 문서에서 각 워크 시트의 데이터 크기를 빠르게 확인하려면이 문서를 참조하세요. 여기에서는 두 가지 편리한 방법을 공유합니다.

때로는 많은 양의 워크 시트로 구성된 Excel 통합 문서를 다룰 때 각 워크 시트의 데이터 크기를 얻고 싶을 수 있습니다. 그러나이 요구 사항에 대한 기본 기능은 없습니다. 따라서 다음 방법 1과 같은 몇 가지 해결 방법을 사용해야합니다. 또는 훨씬 더 스마트 한 방법 2를 사용하여 모든 워크 시트의 데이터 크기를 대량으로 가져올 수 있습니다.

방법 1 : 워크 시트 데이터 크기를 하나씩 수동으로 가져 오기

1. 먼저 특정 Excel 통합 문서를 엽니 다.
2. 그런 다음 Excel 워크 시트의 내용을 복사합니다.
3. 다음으로 새 통합 문서를 만들고 복사 한 워크 시트를 Sheet 1에 붙여 넣습니다.
4. 나중에 새 통합 문서를 Windows 폴더에 저장합니다.
5. 마지막으로 다음 스크린 샷과 같이 Windows 탐색기에서 워크 시트의 데이터 크기와 동일한 새 통합 문서의 데이터 크기를 확인할 수 있습니다.
6. 이제이 방법을 사용하여 다른 워크 시트의 데이터 크기를 하나씩 가져올 수 있습니다.

방법 2 : VBA를 통해 모든 워크 시트의 데이터 크기 일괄 가져 오기

1. 시작하려면“에 따라 Excel VBA 편집기를 엽니 다.Excel에서 VBA 코드를 실행하는 방법".
2. 그런 다음 프로젝트 또는 모듈에 다음 코드를 넣습니다.

Sub GetEachWorksheetSize()
    Dim strTargetSheetName As String
    Dim strTempWorkbook As String
    Dim objTargetWorksheet As Worksheet
    Dim objWorksheet As Worksheet
    Dim objRange As Range
    Dim i As Long
    Dim nLastEmptyRow As Integer

    strTargetSheetName = "Sheet Sizes"
    strTempWorkbook = ThisWorkbook.Path & "\Temp Workbook.xls"

    With ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
         .Name = strTargetSheetName
         .Cells(1, 1) = "Sheet"
         .Cells(1, 1).Font.Size = 14
         .Cells(1, 1).Font.Bold = True
         .Cells(1, 2) = "Size"
         .Cells(1, 2).Font.Size = 14
         .Cells(1, 2).Font.Bold = True
    End With

    Set objTargetWorksheet = Application.Worksheets(strTargetSheetName)

    For Each objWorksheet In Application.ActiveWorkbook.Worksheets
        If objWorksheet.Name <> strTargetSheetName Then
           objWorksheet.Copy

           Application.ActiveWorkbook.SaveAs strTempWorkbook
           Application.ActiveWorkbook.Close SaveChanges:=False

           nLastEmptyRow = objTargetWorksheet.Range("A" & objTargetWorksheet.Rows.Count).End(xlUp).Row + 1

           With objTargetWorksheet
                .Cells(nLastEmptyRow, 1) = objWorksheet.Name
                .Cells(nLastEmptyRow, 2) = FileLen(strTempWorkbook)
           End With

           Kill strTempWorkbook
         End If
    Next
End Sub

3. 그 후 "F5"를 눌러이 매크로를 즉시 실행하십시오.
4. 결국 매크로가 완료된 후 통합 문서로 돌아갑니다.
5. 맨 처음에 다음 이미지와 같이 각 워크 시트의 크기가 포함 된 새 워크 시트가 표시됩니다.

비교

격렬한 PST 문제 수정

사용자는 예기치 않은 종료 또는 해상도에 이르기까지 MS Excel에서 모든 종류의 방해 문제에 직면 할 수 있습니다.tart ~ 심한 xlsx 손상. 의심 할 여지없이 most Knotty 문제는 쉽게 해결할 수 없다는 점에서 Excel 파일이 손상됩니다. 다음과 같은 외부 Excel 수정 도구를 적용해야합니다. DataNumen Excel Repair.

저자 소개 :

Shirley Zhang은 데이터 복구 전문가입니다. DataNumen, Inc.는 다음과 같은 데이터 복구 기술 분야의 세계적 리더입니다. 부정한 SQL Server 및 전망 수리 소프트웨어 제품. 자세한 내용은 WWW.datanumen.COM