Excelに関する長年の不満の1つは、ヘッダーとフッターを作成および管理するための非常に堅牢な方法がないことです。

次のシナリオを検討してください。ワークシートを印刷したいが、2ページ目から始まるページ番号のみがあります。

この状況を処理するためのExcelには固有の方法はありません。いくつかの回避策があります。たとえば、最初のページを1つのワークシート（ヘッダーまたはフッターなし）に配置し、後続のページを別のワークシート（ヘッダーとフッターを含む）に配置できます。その後、1回のパスで2つのワークシートを印刷して、目標を効果的に達成できます。

必要に応じて、ワークシートを印刷するマクロを作成できます。次のマクロGoodPrintは、ヘッダーまたはフッターのないワークシートの最初のページを印刷し、その後、通常どおりすべての後続のページを印刷します。

Sub GoodPrint()

Dim hlft As String     Dim hctr As String     Dim hrgt As String     Dim flft As String     Dim fctr As String     Dim frgt As String

'save current header     hlft = ActiveSheet.PageSetup.LeftHeader     hctr = ActiveSheet.PageSetup.CenterHeader     hrgt = ActiveSheet.PageSetup.RightHeader

'save current footer     flft = ActiveSheet.PageSetup.LeftFooter     fctr = ActiveSheet.PageSetup.CenterFooter     frgt = ActiveSheet.PageSetup.RightFooter

'remove header and footer     With ActiveSheet.PageSetup         .CenterHeader = ""

.RightHeader = ""

.LeftHeader = ""

.CenterFooter = ""

.RightFooter = ""

.LeftFooter = ""

End With

'print page one     ActiveSheet.PrintOut 1, 1

'restore header and footer     With ActiveSheet.PageSetup         .LeftHeader = hlft         .CenterHeader = hctr         .RightHeader = hrgt         .LeftFooter = flft         .CenterFooter = fctr         .RightFooter = frgt     End With

'print the rest of the pages     ActiveSheet.PrintOut 2 End Sub

注：

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

linkここをクリックして、新しいブラウザタブでその特別なページを開きます。

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

このヒント（12101）は、Microsoft Excel 2007、2010、2013、および2016に適用されます。

Excelの古いメニューインターフェイス用のこのヒントのバージョンは、次の場所にあります：

linkSelective Headers andFooters。