2 วิธีด่วนในการรับขนาดข้อมูลของแต่ละแผ่นงานในสมุดงาน Excel

ถ้าคุณต้องการรับขนาดข้อมูลของแต่ละแผ่นงานในสมุดงาน Excel อย่างรวดเร็วคุณสามารถอ้างถึงบทความนี้ ที่นี่เราจะแบ่งปัน 2 วิธีที่มีประโยชน์กับคุณ

ในบางครั้งเมื่อจัดการกับสมุดงาน Excel ซึ่งประกอบด้วยแผ่นงานจำนวนมากคุณอาจต้องการขนาดข้อมูลของแต่ละแผ่นงาน อย่างไรก็ตามไม่มีคุณลักษณะดั้งเดิมสำหรับข้อกำหนดนี้ ดังนั้นคุณต้องใช้วิธีแก้ปัญหาบางอย่างเช่นวิธีที่ 1 ต่อไปนี้หรือคุณสามารถใช้วิธีที่ 2 ที่ชาญฉลาดกว่ามากเพื่อรับขนาดข้อมูลของแผ่นงานทั้งหมดเป็นกลุ่ม

วิธีที่ 1: รับขนาดข้อมูลแผ่นงานทีละรายการด้วยตนเอง

1. ในตอนแรกให้เปิดสมุดงาน Excel เฉพาะ
2. จากนั้นคัดลอกเนื้อหาของแผ่นงาน Excel
3. จากนั้นสร้างสมุดงานใหม่และวางแผ่นงานที่คัดลอกไว้ในแผ่นงาน 1
4. จากนั้นบันทึกสมุดงานใหม่ลงในโฟลเดอร์ Windows
5. สุดท้ายคุณสามารถตรวจสอบขนาดข้อมูลของสมุดงานใหม่เท่ากับขนาดข้อมูลของเวิร์กชีตใน Windows Explorer ดังที่แสดงในภาพหน้าจอต่อไปนี้
6. ตอนนี้คุณสามารถใช้วิธีนี้เพื่อรับขนาดข้อมูลของแผ่นงานอื่น ๆ ทีละแผ่น

วิธีที่ 2: Batch รับขนาดข้อมูลของแผ่นงานทั้งหมดผ่าน VBA

1. เริ่มต้นด้วยการเปิดตัวแก้ไข Excel VBA ตาม "วิธีเรียกใช้รหัส VBA ใน Excel ของคุณ"
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 ตั้งแต่การปิดเครื่องหรือรีสตาร์ทโดยไม่คาดคิด ไปจนถึงปัญหาร้ายแรง xlsx ทุจริตปัญหาที่ยุ่งยากที่สุดอย่างไม่ต้องสงสัยคือไฟล์ Excel ที่เสียหาย เนื่องจากไม่สามารถแก้ไขได้ง่ายๆ จำเป็นต้องใช้เครื่องมือแก้ไข Excel ภายนอก เช่น DataNumen Excel Repair.

บทนำผู้เขียน:

Shirley Zhang เป็นผู้เชี่ยวชาญด้านการกู้คืนข้อมูลใน DataNumen, Inc. ซึ่งเป็นผู้นำระดับโลกด้านเทคโนโลยีการกู้คืนข้อมูล ได้แก่ ทุจริต SQL Server และผลิตภัณฑ์ซอฟต์แวร์ซ่อมแซมแนวโน้ม ดูข้อมูลเพิ่มเติมได้ที่ wwwdatanumenด้วย.