Bir Excel Çalışma Kitabındaki Her Çalışma Sayfasının Veri Boyutunu Elde Etmenin 2 Hızlı Yolu

Bir Excel çalışma kitabında her çalışma sayfasının veri boyutunu hızlı bir şekilde almak istiyorsanız bu makaleye başvurabilirsiniz. Burada 2 kullanışlı yöntemi sizlerle paylaşacağız.

Bazen, çok sayıda çalışma sayfasından oluşan bir Excel çalışma kitabıyla uğraşırken, her çalışma sayfasının veri boyutunu almak isteyebilirsiniz. Ancak, bu gereksinim için yerel bir özellik yoktur. Bu nedenle, aşağıdaki Yöntem 1 gibi bazı geçici çözümleri kullanmanız gerekir. Veya tüm çalışma sayfalarının veri boyutlarını toplu olarak almak için çok daha akıllı Yöntem 2'yi kullanabilirsiniz.

Yöntem 1: Çalışma Sayfası Veri Boyutunu Tek Tek Manuel Olarak Alın

1. İlk başta, belirli Excel çalışma kitabını açın.
2. Ardından, bir Excel çalışma sayfasının içeriğini kopyalayın.
3. Ardından, yeni bir çalışma kitabı oluşturun ve kopyalanan çalışma sayfasını Sayfa 1'e yapıştırın.
4. Daha sonra, yeni çalışma kitabını bir Windows klasörüne kaydedin.
5. Son olarak, aşağıdaki ekran görüntüsünde gösterildiği gibi, yeni çalışma kitabının veri boyutunun çalışma sayfasının veri boyutuna eşit olduğunu Windows Gezgini'nde kontrol edebilirsiniz.
6. Şimdi, diğer çalışma sayfalarının veri boyutlarını tek tek almak için bu yolu kullanabilirsiniz.

Yöntem 2: VBA aracılığıyla Tüm Çalışma Sayfalarının Veri Boyutlarını Toplu Olarak Alın

1. Başlamak için, Excel VBA düzenleyicisini “ göre açın.Excel'inizde VBA Kodunu Nasıl Çalıştırırsınız?".
2. Ardından, aşağıdaki kodu bir projeye veya modüle yerleştirin.

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. Ardından bu makroyu hemen çalıştırmak için “F5” tuşuna basın.
4. Sonunda, makro tamamlandıktan sonra çalışma kitabına geri dönün.
5. En başında, aşağıdaki resimdeki gibi her bir çalışma sayfasının boyutunu içeren yeni bir çalışma sayfası göreceksiniz.

karşılaştırma

Sinir bozucu PST Sorunlarını Düzeltin

Kullanıcılar MS Excel'de beklenmedik kapanma veya yeniden başlatmadan ciddi sorunlara kadar her türlü rahatsız edici sorunla karşılaşabilirler. xlsx bozulmasıŞüphesiz ki, en karmaşık sorun, kolayca çözülemeyen hasarlı Excel dosyasıdır. Bu tür sorunlar için harici bir Excel onarım aracı kullanmanız gerekir, örneğin... DataNumen Excel Repair.

Yazar Tanıtımı:

Shirley Zhang, bir veri kurtarma uzmanıdır. DataNumendahil olmak üzere veri kurtarma teknolojilerinde dünya lideri olan , Inc. yozlaşmış SQL Server ve görünüm onarım yazılım ürünleri. Daha fazla bilgi için ziyaret edin www.datanumen.com