Excel աշխատանքային գրքում յուրաքանչյուր աշխատանքային թերթի տվյալների չափը ստանալու 2 արագ եղանակ

Եթե ​​ցանկանում եք արագորեն ստանալ յուրաքանչյուր աշխատանքային թերթի տվյալների չափը Excel- ի աշխատանքային գրքում, կարող եք հղվել այս հոդվածին: Այստեղ մենք ձեզ հետ կիսելու ենք 2 հարմար մեթոդներ:

Timesամանակ առ ժամանակ, Excel- ի աշխատանքային գրքի հետ գործ ունենալիս, որը բաղկացած է մեծ թվով աշխատաթերթերից, գուցե ցանկանաք ստանալ յուրաքանչյուր աշխատաթերթի տվյալների չափը: Այնուամենայնիվ, այս պահանջի համար բնիկ հատկություն չկա: Այսպիսով, ձեզ հարկավոր է օգտագործել որոշ լուծումներ, ինչպիսիք են հետևյալ մեթոդը 1. Կամ կարող եք օգտագործել շատ ավելի խելացի մեթոդը 2 ՝ բոլոր աշխատաթերթերի տվյալների չափերը զանգվածաբար ստանալու համար:

Մեթոդ 1. Ձեռքով ստացեք աշխատաթերթի տվյալների չափը մեկ առ մեկ

1. Սկզբում բացեք Excel- ի հատուկ աշխատանքային գիրքը:
2. Դրանից հետո պատճենեք Excel աշխատաթերթի բովանդակությունը:
3. Հաջորդը, ստեղծեք նոր աշխատանքային գրքույկ և պատճենեք աշխատաթերթը տեղադրեք թերթիկի 1-ում:
4. Ավելի ուշ, նոր աշխատանքային գիրքը պահեք Windows պանակում:
5. Ի վերջո, Windows Explorer- ում կարող եք ստուգել նոր աշխատանքային գրքի տվյալների չափը, որը հավասար է աշխատանքային թերթի տվյալների չափին, ինչպես ցույց է տրված հետևյալ նկարում:
6. Այժմ դուք կարող եք օգտագործել այս եղանակը `մեկ այլ մեկով ստանալու այլ աշխատանքային թերթերի տվյալների չափերը:

Մեթոդ 2. Փաթեթը ստացեք բոլոր աշխատաթերթերի տվյալների չափերը 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 և հեռանկարների նորոգման ծրագրակազմի արտադրանքները: Լրացուցիչ տեղեկությունների համար այցելեք www.datanumen.com