Excelは、あらゆる種類のデータを追跡するための便利なツールです。多くの人が職場でそれを使用して、さまざまな部門やプロジェクトのアドホックレポートを作成しています。データを操作するときに、特定の列の内容が変更されたときに改ページを自動的に挿入する方法について疑問に思うかもしれません。たとえば、部門名を含む列があり、各部門を新しいページから開始したい場合があります。

これは、Excelの組み込みの小計機能を使用して行うのはかなり簡単です。

あなたがする必要があるのはこれらのステップに従うことだけです:

。テーブルに列ラベルが含まれていることを確認してください。たとえば、列Aに部門名が含まれている場合、セルA1には「Department」などのラベルを含めることができます。すべての列にラベルが付いていることを確認してください。

。部門列をキーとして使用して、テーブル内のデータを並べ替えます。

。テーブル内のセルを選択したまま、[データ]メニューから[小計]を選択します。 Excelに[小計]ダイアログボックスが表示されます。

。 At Each Change Inドロップダウンリストを使用して、Departmentを選択します。

。 [関数の使用]ドロップダウンリストを使用して、[カウント]を選択します。

。 [小計の追加先]リストを使用して、小計を表示する列の名前を選択します。

。 [グループ間の改ページ]チェックボックスがオンになっていることを確認します。

。 [OK]をクリックします。 Excelは、指示に従って小計とページ数を追加します。

何らかの理由で小計機能を使用したくない場合は、ワークシート内のすべての改ページを削除してから、適切な場所に新しい改ページを追加するマクロをいつでも作成できます。次のマクロでうまくいきます:

Sub PageBreak()

Dim CellRange As Range     Dim TestCell As Range

ActiveSheet.ResetAllPageBreaks

Set CellRange = Selection     For Each TestCell In CellRange         If TestCell.Value <> TestCell.Offset(-1, 0).Value Then             ActiveSheet.Rows(TestCell.Row).PageBreak = xlPageBreakManual         End If     Next TestCell End Sub

マクロを使用するには、分割を行うためのキーとして使用するセルから、一番上のセルを除いたものを選択するだけです。たとえば、部門が列Aの行2から37にある場合、A3からA37の範囲を選択します。マクロを実行すると、古い改ページが削除され、新しい改ページが追加されます。

ワークシートで使用できる手動改ページの数に関しては、Excelには制限があることを理解しておく必要があります。ナレッジベースによると、その制限は約1024ブレークです。 (制限は、使用しているExcelのバージョンによってわずかに異なる場合がありますが、その前後です。)制限に関するあいまいな記述は次のとおりです。

http://support.microsoft.com/kb/284916

この制限の結果として、挿入する改ページがかなりある場合、ワークシートで改ページ制限を超えるとマクロがクラッシュします。エラーは、「PageBreakプロパティを設定できません」という行に沿って何かを示します。

注:

このページ(または_ExcelTips_サイトの他のページ)で説明されているマクロの使用方法を知りたい場合は、役立つ情報を含む特別なページを用意しました。

_ExcelTips_は、費用効果の高いMicrosoftExcelトレーニングのソースです。

このヒント(2792)は、Microsoft Excel 97、2000、2002、および2003に適用されます。Excel(Excel 2007以降)のリボンインターフェイス用のこのヒントのバージョンは、次の場所にあります。