エクセル上の縦長の表を特定の範囲で複数のシートに分ける方法を教えて下さ

質問

エクセル上の縦長の表を特定の範囲で複数のシートに分ける方法を教えて下さい。

当方、下請けの仕事でエクセルの資料をお借りしたのですが
同じ表（A4サイズの印刷設定有り）が縦に並んでおり
１シートに10ページから25ページの表があります。
ファイルも7ブックあり、1ブックに２シートのものや、４シート、５シートのブックもあります。

普段は下請けも少なく自社のデータで仕事しているのですが
仕事上、データを更新するのに１日に３、４ページ分の表しか更新しませんし
更新作業の入力も外注に発注しているので、データの確認や
必要な表のページ数を指定して印刷など、非常に手間が掛かってしまいます。
ひとつひとつ切り取り、貼り付けをしていましたがこれも手間が掛かってしまいました。

マクロの知識がないのですが、マクロで解決できないでしょうか。

使用しているのはExcel2003です。
借りた資料の表は１ページが
「９列・３１行」のA4縦サイズが縦に繋がって並んでいます。

宜しくお願い致します。

回答No.3

imogasi · ベストアンサー

＞マクロの知識がないのですが、
それでは質問のことは多分出来ないでしょう。エクセルVBAでも（ワード、アクセスVBAに比べて一番易しいだろうが）、勉強するといっても１，２ヶ月でできる代物でもないとおもう。
質問文章の書き方からして、プログラム作成には現段階では向いてないのではと思う。
ーー
またエクセルではページという指定（考え）は無いといっても良いと思う。ページ設定などは出てくるが、例えば、あるシートの第２ページ（だけ）を捉える（印刷する）のも非常に難儀する。私が出来ないだけではないと思う。
印刷された結果では現前（厳然）としてページはあるが、データとの関連では、観念的なもので、シート上では意識しにくい（意識しない建前になっていると思う）。それをやるなら１ページ１シートにでもするやり方を採ることになろうが、その方法だと、適切に１ページに納める管理は使用者の負担になって大変な面が出てくる。
WorkSheets("予算").Range("a1:M10")).PrintOutはA１：M１０のセル範囲を印刷するVBAで簡単だが
WorkSheets("予算").Pages(2).PrintOut
というように書かしてくれたらよいが、そうは行かないようだ。
いま開いているブックの中のシートで、シート名を指定して、そのシート（だけ全頁）を印刷するぐらいならVBAも簡単。
また列的に１ページに収まらずページが分かれる場合もあるのでなお難しくなる。
また使用者が改ページ位置を設定できるので難しくする。
多分PageBreaksしか手がかりが無いのではと思うが、VBAの市販解説書にも、詳しくは踏み込んでない。
ーーー
VBAの熟達者なら何とか目的のVBAは組めるかもしれないとは推測するが。
１ページ分のデータ行が各ページ決っていて、１ページに収まる列数・列幅なら
またページの最初を区別する内容が在るなら
何ページ目を抜き出すことは比較的たやすい。
＞仕事上、データを更新するのに１日に３、４ページ分の表しか更新しませんし
更新作業の入力も外注に発注しているので、データの確認や
必要な表のページ数を指定して印刷
は最後のほうに書いているが、何をしなければならないのか（例えば入力が正確かどうか印刷してじっくり検討をするのか、）
そういうことをまず最初のほうに（箇条書きにでも）書いて質問すべきであろう。
・データの有様（シート、ブック）。数が多数に渉るといだけでは質問には不十分。
・それに対してやりたい処理のこと（目的もあわせて）

お礼

今一度、自分の中で皆さんに言われたことを整理して、改めて質問いたします。
解りやすいように画像や業務に関して解りやすいよう工夫してみます。
VBAに関しても、仕組み、流れだけでも理解しておきます。

これで一旦質問を閉じますが、考えが纏まり質問した際には宜しくお願い致します。

回答No.5

nattocurry

> 解決して下さるならどのような方法でも宜しくお願いします。

だ　か　ら。
何がしたくて、何に困っているのかが解らないので、解決のしようがありません。

回答No.4

shinkami

１つのシートに毎日追加され、追加された行のみ印刷したいということなら
印刷済の列を追加してフィルタ機能を活用しては
フィールターの設定は表中の任意のセルで［データ］ツール内の［フィルター］ツールをクリック
すると項目欄に▼ご表示され表示（印刷）対象を絞り込むことができます。

回答No.2

keithin

方法１：
表示メニューから「改ページプレビュー」を選んで印刷ページ番号を画面上に表示させ，作業対象のセル範囲を見つける助けにします。
設定すると画面のズームが75%とかになるので，ツールバーにあるズームボックスで100%の普通サイズに戻して使います。

方法２：
＞借りた資料の表は１ページが「９列・３１行」の

たとえば今空いているＪ列に（Ａ列に空列を挿入してよければＡ列でも。また邪魔だと思うならもっと遠い列でも。）
J1:
=INT((ROW(J1)-1)/31)+1
と記入して表の下端までコピーしておくと，３１行ずつ１，２，３と増える言わば「ページ番号」が各行に計算できます。
オートフィルタで絞って該当の「ページ」の３１行を表示して，更新も印刷も出来ます。

＃あるいは「実際の表のレイアウト」は「１ページ３１行」とちょっと違っているような気はしますが，そこいらの省略した所は適宜自力で補って工夫してみてください。

回答No.1

nattocurry

困っていそうなのは何となく解るのですが、最終的に何がしたくて、何に困っているのかがよく解りません。

「縦長の表を特定の範囲で複数のシートに分ける」というのも、困っていることの解決手段としてあなたが考えた方法であって、それ自体が目的じゃないんですよね？
それとも、最終目的が「縦長の表を特定の範囲で複数のシートに分ける」ことなのでしょうか？

補足

過去に「横長の表を特定の列ごとに切り離したものを新規のシートを作って・・・。」というのをどこかで見たので
今回のエクセルもそれでできないかなと、私が勝手に思った解決法です。すみません。

解決して下さるならどのような方法でも宜しくお願いします。