【エクセルが重い？】シート容量を自動取得！高速化対策も解説！

重いシートを見つけたいけど、シートが多くて調べきれない…
それぞれのシートがどのくらいの容量なのか確認したい！

エクセルが重くなってきたとき、列数が多いシートを改善すると、軽くなることがあります。ただ、エクセルのシートが増えてくると、重いシートを特定するのが難しくなります。

そんな時、シートごとの使用セルを調べるVBAを使えば、シート容量を確認できます。これを使えば、手作業でチェックする必要がなくなり、VBAの実装もそれほど難しくありません。

さらに今回の記事では、容量の大きいシートへの対処法や、見つからなかったときの対処方法も紹介します。ぜひそちらも参考にして、効率化を行ってみてください！

このブログでは、効率化に関する様々な情報を発信しています。仕事の効率化だけでなく、Youtubeの文字起こし改善のような題材も取り扱っていますので、ぜひほかの記事も見ていただけると嬉しいです！

【コピペで使える！】シート毎の容量(使用セル数)確認VBA

はじめにコピペで使えるコードを紹介します。

以下のコードをそのまま使えば、シートごとの最終行・最終列・総サイズ（行×列）を自動的に取得できます。


Sub ExportSheetSizes()
    Dim ws As Worksheet
    Dim resultSheet As Worksheet
    Dim lastRow As Long
    Dim lastCol As Long
    Dim totalSize As Long
    Dim i As Long
    Dim usedRange As Range
    
    ' 出力用のシートを作成
    Set resultSheet = ThisWorkbook.Sheets.Add
    resultSheet.Name = "シートサイズ一覧"
    
    ' ヘッダーを設定
    resultSheet.Cells(1, 1).Value = "シート名"
    resultSheet.Cells(1, 2).Value = "最終行"
    resultSheet.Cells(1, 3).Value = "最終列"
    resultSheet.Cells(1, 4).Value = "総サイズ(行×列)"
    
    i = 2 ' データ出力用の行を設定
    
    ' 各シートのサイズを取得
    For Each ws In ThisWorkbook.Sheets
        ' 出力用シート自身を除外
        If ws.Name <> resultSheet.Name Then
            ' シート全体のUsedRangeを取得
            On Error Resume Next ' 空のシートがある場合のエラー対策
            Set usedRange = ws.UsedRange
            On Error GoTo 0
            
            If Not usedRange Is Nothing Then
                ' 最終行と最終列を計算
                lastRow = usedRange.Row + usedRange.Rows.Count - 1
                lastCol = usedRange.Column + usedRange.Columns.Count - 1
            Else
                ' データが全くない場合
                lastRow = 0
                lastCol = 0
            End If
            
            ' 総サイズを計算
            totalSize = lastRow * lastCol
            
            ' 結果を出力
            resultSheet.Cells(i, 1).Value = ws.Name
            resultSheet.Cells(i, 2).Value = lastRow
            resultSheet.Cells(i, 3).Value = lastCol
            resultSheet.Cells(i, 4).Value = totalSize
            i = i + 1
        End If
    Next ws
    
    MsgBox "シートサイズ一覧を出力しました。", vbInformation
End Sub