ワークブックの各ワークシートのサイズを確認するにはどうすればよいですか？

複数のワークシートを含む大きなワークブックがあり、各ワークシートのサイズを調べて、どのシートを縮小する必要があるかを判断するとします。 このタスクに対処するための簡単な方法はありますか？

VBAコードで各ワークシートのサイズを確認してください

Kutools forExcelで各ワークシートのサイズを確認してください

VBAコードで各ワークシートのサイズを確認してください

次のVBAコードを使用すると、ブック内の各ワークシートのサイズをすばやく取得できます。 このようにしてください：

1。 を押し続けます Alt + F11 キー、そしてそれは開きます Microsoft Visual Basic forApplicationsウィンドウ.

2に設定します。 OK をクリックします。 インセット > モジュール、次のコードをに貼り付けます モジュールウィンドウ.

VBAコード：ワークブックの各ワークシートのサイズを確認してください</ p>

Sub WorksheetSizes()
'Update 20140526
Dim xWs As Worksheet
Dim Rng As Range
Dim xOutWs As Worksheet
Dim xOutFile As String
Dim xOutName As String
xOutName = "KutoolsforExcel"
xOutFile = ThisWorkbook.Path & "\TempWb.xls"
On Error Resume Next
Application.DisplayAlerts = False
Err = 0
Set xOutWs = Application.Worksheets(xOutName)
If Err = 0 Then
    xOutWs.Delete
    Err = 0
End If
With Application.ActiveWorkbook.Worksheets.Add(Before:=Application.Worksheets(1))
    .Name = xOutName
    .Range("A1").Resize(1, 2).Value = Array("Worksheet Name", "Size")
End With
Set xOutWs = Application.Worksheets(xOutName)
Application.ScreenUpdating = False
xIndex = 1
For Each xWs In Application.ActiveWorkbook.Worksheets
    If xWs.Name <> xOutName Then
        xWs.Copy
        Application.ActiveWorkbook.SaveAs xOutFile
        Application.ActiveWorkbook.Close SaveChanges:=False
        Set Rng = xOutWs.Range("A1").Offset(xIndex, 0)
        Rng.Resize(1, 2).Value = Array(xWs.Name, VBA.FileLen(xOutFile))
        Kill xOutFile
        xIndex = xIndex + 1
    End If
Next
Application.ScreenUpdating = True
Application.Application.DisplayAlerts = True
End Sub

3. 次に、 F5 このコードを実行するためのキーと、という名前の新しいワークシート Kutools for Excel 各ワークシート名とファイルサイズを含む現在のワークブックに挿入され、単位はビットです。 スクリーンショットを参照してください：

Kutools forExcelで各ワークシートのサイズを確認してください

あなたが持っている場合 Kutools for Excelそのと 分割ワークブック ユーティリティを使用すると、ブック全体を個別のファイルに分割してから、特定のフォルダに移動して各ファイルのサイズを確認できます。

Kutools for Excel 300以上の便利なExcelツールが含まれています。 30日以内に制限なしで無料でお試しいただけます。 今すぐ入手.

Kutools for Excelをインストールした後、次の手順を実行します。

1。 各ワークシートのサイズを確認するブックを開き、[ クツールズプラス > ワークブック > ワークブックを分割します。

2。 の中に 分割ワークブック ダイアログで、すべてのワークシートを確認し、をクリックします スプリット ボタンをクリックし、新しいワークブックファイルを配置するフォルダーを指定します。 スクリーンショットを参照してください：

3。 次に、現在のワークブックの各ワークシートが個別のExcelファイルとして保存されます。特定のフォルダーに移動して、各ワークブックのサイズを確認できます。

この分割ワークブック機能の詳細を知るため。

関連記事：

ブックを分割してExcelでExcelファイルを分離するにはどうすればよいですか？

シートとワークシートをExcelで新しいブックとしてエクスポートして保存するにはどうすればよいですか？