ExcelでXNUMXページに長い列を印刷するにはどうすればよいですか？

200列に5行程度の長いデータのリストがあり、それらを印刷する必要があると仮定しますが、印刷するときは、左側にXNUMX列だけで、多くの空白がある約XNUMXページの用紙を使用します。右側。 つまり、列を作成することはできますが、Excelにはこの機能がありません。 長いリストのデータをXNUMXページに印刷して、紙を節約するにはどうすればよいですか。

式を使用してXNUMXページに長い列を印刷する

VBAコードを使用してXNUMXページに長い列を印刷する

Kutools forExcelを使用してXNUMXページに長い列を印刷する

式を使用してXNUMXページに長い列を印刷する

ここでは、この問題を解決するための長い公式を紹介します。次のようにしてください。

1。 アクティブなブックの新しいワークシートに、数式を入力します =IF(OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)="","",OFFSET(Sheet1!$A$1,(COLUMN()-1)*45+ROW()-1,0)) セルA1に。

2。 次に、セルA1を選択し、塗りつぶしハンドルを行45までドラッグしてから、データが表示されるまで塗りつぶしハンドルを右にドラッグし続けます。 また、長い列は、新しいワークシートのXNUMXページに収まるように、いくつかの列に分割されています。 スクリーンショットを参照してください：

VBAコードを使用してXNUMXページに長い列を印刷する

次のVBAコードは、データの長いリストを複数の列に分割して、データを印刷して紙を節約するのにも役立ちます。

1。 を押し続けます Alt + F11 キー、そしてそれは開きます アプリケーション向け Microsoft Visual Basic 窓。

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

Sub SingleToMultiColumn()
    Dim rng As Range
    Dim iCols As Integer
    Dim lRows As Long
    Dim iCol As Integer
    Dim lRow As Long
    Dim lRowSource As Long
    Dim x As Long
    Dim wks As Worksheet
    Set rng = Application.InputBox _
      (prompt:="Select the range to convert", _
      Type:=8)
    iCols = InputBox("How many columns do you want?")
    lRowSource = rng.Rows.Count
    lRows = lRowSource / iCols
    If lRows * iCols <> lRowSource Then lRows = lRows + 1
    Set wks = Worksheets.Add
    lRow = 1
    x = 1
    For iCol = 1 To iCols
        Do While x <= lRows And lRow <= lRowSource
            Cells(x, iCol) = rng.Cells(lRow, 1)
            x = x + 1
            lRow = lRow + 1
        Loop
        x = 1
    Next
End Sub

3。 次に、 F5 キーを押してこのコードを実行し、ポップアップダイアログボックスで分割するリストデータを選択します。スクリーンショットを参照してください。

4に設定します。 OK をクリックします。 OK、および分割する列の数を入力します。 スクリーンショットを参照してください：

5。 をクリックします OK、新しいワークシートでは、長い列がXNUMXつの列に分割されています。 スクリーンショットを参照してください：

Kutools forExcelを使用してXNUMXページに長い列を印刷する

長い式とVBAコードの両方が難しい場合があります。ここでは、この問題を解決するための簡単で便利な方法を紹介します。 Kutools for Excelさん 列に分割 関数を使用すると、長い列を複数の列にすばやく分割して、合理的に印刷できるようになります。

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

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

1に設定します。 OK をクリックします。 クツールズプラス > 列に分割、スクリーンショットを参照してください：

2ポップアップしたダイアログボックスで、

• 最初のクリック  ボタンをクリックして範囲のタイトルを選択し、XNUMX番目をクリックします  ボタンをクリックして、分割する列を選択します。
• 次に、ページごとに配置する行数を指定します。 印刷ページあたりの行数、およびXNUMXページに必要な列数を下に入力します セグメント数。 スクリーンショットを参照してください：

3。 次に、をクリックします OK、ロングリストデータはXNUMXページでXNUMX列に分割されています。 スクリーンショットを参照してください：