• ベストアンサー
※ ChatGPTを利用し、要約された質問です(原文:【Excel】1,2行目+個人行→シート別に分ける)

【Excel】1,2行目+個人行をシート別に分ける方法

このQ&Aのポイント
  • Excelで、行が3000行強、列が110列ほどの名簿があります。1、2行目は見出しで、3行目から個人の情報がズラーーっと並んでいます。この表の1,2行目+個人の1行を1シートにまとめる方法を教えてください。
  • 目的は、「あなたの名簿にはこのような情報がありますよ~」を1枚の紙にまとめて、個人別に配布することです。3000人を超えているため、一気に作る方法を探しています。
  • 最終的には印刷するため、印刷しやすい形にデータを整理したいです。ご案内いただけると助かります。

質問者が選んだベストアンサー

  • ベストアンサー
回答No.4

#2です 補足から抜粋するときに余計なところにも入ってしまい文章がおかしくなっていました >>マクロを自動記録しつつ、書いてみた >>差し込みを一枚ずつやるのが嫌なんですよね 下の分は間違ってコピペした部分です。無視してください ちなみに、3000シートを作業グループ化して編集したら スムーズな編集は無理だった。(一つ編集するのに10秒近くかかった) 2007以降なら、マルチプロセッサの実力が発揮できてもうちょっと早いと思うけど非現実的だった。 >また、最終的には印刷しますので、印刷しやすい形にできたらしたいです。 印刷用のシートを作り、INDEX関数でデータを引っ張ってくる。 INDEX関数の第2引数としたセルを、マクロで+1して、印刷の繰り返しでできると思う (実際は 印刷→参照したセル+1 の順だけど)

全文を見る
すると、全ての回答が全文表示されます。

その他の回答 (3)

  • MackyNo1
  • ベストアンサー率53% (1521/2850)
回答No.3

>私にこれを頼んだ担当者が「差し込みを一枚ずつやるのが嫌なんですよね、シート別に分けてください」と言っていまして・・・ ワードの差し込み印刷でも、最後に文書に差し込みの処理をすれば、すべての個人票がまとめて表示されています。 個人データを、わざわざエクセルのシートに分ける意味が分からないのですが、どうしてもエクセルのシートに落としたいなら、以下のようなLoop処理したマクロを使うことになります。 http://pc.nikkeibp.co.jp/article/NPC/20070301/263710/ 例えば、上記のような印刷用のテンプレートシートを作成して、そのシートに関数式またはセル位置の指定で値を代入して、そのシートを追加するような手順になります。 ちなみに元データがVLOOKUP関数が使いにくいレイアウトなら、テンプレートの固定セルに対応するセルを順次代入するコードに変えてください。 上記のページなどを参考にして、ご自分でコードを作成し、わからない部分をポイントを絞って提示されるとよいと思います。

全文を見る
すると、全ての回答が全文表示されます。
回答No.2

>差し込みを一枚ずつやるのが嫌なんですよね の意味が不明なのですが、これが一番簡単だと思うんですよね。 マクロを自動記録しつつ、書いてみた 差し込みを一枚ずつやるのが嫌なんですよね Sub シートを追加する()     Dim tuika As Worksheet     Dim n As Long     Dim DSheet As String         DSheet = "Sheet1" 'データベースシート名         Sheets(DSheet).Select         For n = 3 To Range("A65536").End(xlUp).Row         Set tuika = Worksheets.Add         tuika.Move after:=Worksheets(Worksheets.Count)         tuika.Name = Worksheets.Count - 1         Worksheets(DSheet).Range("1:2," & n & ":" & n).Copy         tuika.Paste     Next n End Sub

全文を見る
すると、全ての回答が全文表示されます。
  • at9_am
  • ベストアンサー率40% (1540/3760)
回答No.1

> つまり3000行を一行ずつ1シートに抽出したいということです つまりは3000枚のシートをもつファイルを作りたい、ということですか? シート成型自体は難しくないんですが、3000シートも作ることがエクセルにできたっけ? という根本的な問題があります。出来たとしても、シート管理が酷く大変そうです。 シート以外を使う方法(例えば差し込み印刷)をつかってはいかがですか? 例えばこんな感じで。 http://kedu.kenet.ed.jp/hp/tips/tips017.pdf

kanative75
質問者

補足

at9_amさん、こんにちは。早速のアドバイスをありがとうございます。 私にこれを頼んだ担当者が「差し込みを一枚ずつやるのが嫌なんですよね、シート別に分けてください」 と言っていまして・・・ ブックはいくつかに分散されても大丈夫です。 とにかく、全行分のシートがほしいっぽいです。

全文を見る
すると、全ての回答が全文表示されます。

関連するQ&A

  • 一致するデータを複数シートから別のシートへ移動

    Sheet1~Sheet3を用いて、 Sheet1とSheet2でそれぞれのC列の項目が一致するデータを抽出し、 該当するデータの Sheet1B列⇒Sheet3D1 Sheet2A列⇒Sheet3A1 Sheet2B列⇒Sheet3B1 Sheet2C列⇒Sheet3C1 に移動するためのマクロを組みたいと思っています。 Sheet2からSheet1に検索をかけて、 Sheet2C列≠Sheet1C列であればSheet2のA1行を削除していき Sheet2C列=Sheet1C列であれば Sheet2A~C列をSheet3A~C列へ移動するところまでは出来ました。 ※なお、Sheet3のA1行に文字列があればセルを1行追加する設定にしています。 しかし、それはA1行の文字列をそのままコピペしているだけなので Sheet1B列の一致データをSheet3D1へ移動するやり方が思い浮かびません…。 Sheet2と同じくA1行を削除していこうとしてもうまくいきませんでした。 どんどんマクロも指示文ばかりが増えてわけが分からなくなってきてしまい、挫折しています。 シンプルにするにはどうすればいいでしょうか? また、マクロの内容を載せたいのですが 会社の業務端末で組んでいるため転記できません; 申し訳ありませんが、どうかご指導ください。

  • フィルタで選択した行を別シートにコピーするマクロ

    よろしくお願いします シート1 の一行目にタイトルがあって 二行目以降にデータ(30列目まで)が 入っております そのデータをオートフィルタで抽出して 抽出されたデータ(タイトル行は不要)を 選択してシート2のデータ最終行の 一行下へ貼り付けたいのですが。 シート1で Range(Cells(2, 1), Cells(Cells(65536, 1).End(xlUp).Row, 30)).Select こうやって選択した後の記述がわかりません。 このままシート2の最終行を 選択貼り付けしようとするとシート1の選択内容が 消えてしまう(シート2が最新の選択になるため?) 挿入の際に「下へ」「右へ」など聞かれるのも 面倒なので行選択したいのですが 御教授ねがいます

  • VBA Excel 特定の記号を含んだ行

    Excel VBAにて、質問します。お手数ですが宜しくお願いします。 画像の様に、E列に特定の記号"●"や"▲"含んだ行以外、抽出し 印刷のシート名に貼り付けしたいと思います。 ですが、条件がありまして、その条件とは、InputBoxを使って 抽出したい日付を入力し、入力した日付、時刻までの記号"●"や"▲"以外 を抽出できる様にしたいです。 例えば実行時の日付が8/21日ならば InputBoxに、8/28 20:00と入力したら、入力した日付、時刻までの 記号"●"や"▲"以外を抽出となります。 画像の様に、1行目の見出し名も貼り付けできる様に、VBAを使って できませんでしょうか? ※ 画像ではSheet1のみ載せましたが、 Sheet2とSheet3とSheet4とSheet5とSheet6まで似た内容のデータがあるので シート名を指定して動作できると良いです。 Array("Sheet1","Sheet2","Sheet3","Sheet4","Sheet5","Sheet6")見たいな 感じでできますでしょうか? 御面倒お掛けしますが宜しくお願いします。

  • VBA Excel 特定の記号を含む行で

    Excel VBAにて、質問します。お手数ですが宜しくお願いします。 画像の様に、E列に特定の記号"●"や"▲"含んだ行以外、抽出し 印刷のシート名に貼り付けしたいと思います。 ですが、条件がありまして、その条件とは、InputBoxを使って 抽出したい日付を入力し、入力した日付、時刻までの記号"●"や"▲"以外 を抽出できる様にしたいです。 例えば実行時の日付が8/21日ならば InputBoxに、8/28 20:00と入力したら、入力した日付、時刻までの 記号"●"や"▲"以外を抽出となります。 画像の様に、1行目の見出し名も貼り付けできる様に、VBAを使って できませんでしょうか? ※ 画像ではSheet1のみ載せましたが、 Sheet2とSheet3とSheet4とSheet5とSheet6まで似た内容のデータがあるので シート名を指定して動作できると良いです。 Array("Sheet1","Sheet2","Sheet3","Sheet4","Sheet5","Sheet6")見たいな 感じでできますでしょうか? どの様なコードを書けば良いでしょうか? 御面倒お掛けしますが宜しくお願いします。

  • エクセルで抽出した不特定数のデータを行数の決まった別シートに取り込む方法を教えてください

    エクセルでマクロを作り始めた初心者です。 Sheet1に、氏名、住所、TEL、会社名、担当者、金額・・・と続くデータが6000レコードほどあります。(レコードは随時増えていきます) Sheet2では、担当者名を条件にSheet1から必要な列(上記に記載したもの5つ)のみを抽出するマクロでデータを取り出すようになっています。 抽出したデータをsheet3のフォーマットに氏名、住所、金額の列だけ入れるのですが、入れられる行が20行と決まっており、最後の行には、合計欄が入るようになっています。 不特定数のレコードを20行ごとにページを区切って印刷するにはどうしたらよいでしょうか。ご教示お願いします。

  • 別シートから値のある行を検索し、別シートに転記

    シート1とシート2があり、 シート1のA7がシート2のB列にあり、シート1のB20がシート2のその行のD列の値と同じ場合、シート2該当行のF列の値をシート1のL20に書き込むのですが、どのようにマクロを記述すればいいでしょうか 例えば、 シート1のA7に「A社」、B20に「商品A」があり、 シート2のB10に「A社」が、D10に「商品A」がある場合、F10の値をシート1のL20に返す方法です。 シート2のB列には「B社」や「C社」もあるため、B列の中からシート1のA7と合致する行を検索することになります。

  • エクセル 関数 別シートへの抽出

    エクセル関数について質問します。 「数値の入ったセルだけを、その行ごと丸々別シートに抽出する方法」 について教えてください。 例、C列に空白セルと1、2や3など、数値の入ったセルがあります。空白セル以外の数値の入ったセルを、その行ごと別シートに抽出したい。 C3とC5に数値が入ってる→3行目と5行目を別シートに抽出する。 このようなことは関数でできるのでしょうか? マクロでないと無理でしょうか? お力をお貸しください。 よろしくお願いします。

  • 表から指定した行のみを別シートに抽出するには

    エクセル2002 ある表から、集計表として別のシートに行を抽出できる関数をおしえてください。 【シート1】      O列  P列  Q列  R列  S列  T列  U列    行9  種類  厚さ   w    H  枚数  か所   計 行10    行11 AAA  t6.8  1500  2000   3    3     9   | | 行15 AAA   t3   1000  2000   2    1     2 行16 bbb   t6.8  500   1500   1    3     3  : : という表から別のシートに 集計表として 【シート1】集計表AAA     O列  P列  Q列  R列  S列  T列  U列    行3  種類  厚さ   w   H   枚数 か所   計 行4  AAA  t3   1000  2000   2    1    2 行5  AAA  t6.8  1500  2000   3    3    9  | | 行15 AAA   t3   1000  2000   2    1    2 行16    : のように抽出する関数を教えてください。 出来れば集計表の横に種類ごとに選択したら、種類ごとに表示が変わるようならばよいのですが。。。  関数初挑戦のため大変なことになりそうな気もします。。。   皆様、ご教授のほどよろしくお願い致します。

  • ワークブック内の特定の複数シートの行を纏めるマクロ

    1つのワークブック内に複数のシートがあり その中で特定の2シートのみ別シートにまとめたいです どのシートも1行目は見出しとなるため 2行目以降のデータのみ必要となります またデータを結合させた別シートでは最後にA列を基準として並べ替えも行いたいです このような場合はどのようにすればいいのでしょうか? 全てのシートを1つにまとめるというようなマクロは見つかったのですが・・・

  • エクセルのマクロで行いたいのですが。シート1からシート3(ジャンル別の

    エクセルのマクロで行いたいのですが。シート1からシート3(ジャンル別の商品データ)にあるデータを入荷した商品名で検索し、その検索結果の行を入荷した数量分コピーして、シート4(印刷)に上から順に貼り付けます。その結果をバーコードラベルで印刷し、商品に貼り付けていきたのですがどなたか教えてください。現在は、いちいちシート毎で「Ctrl+F」で検索画面を出し、商品名を検索し、なければ別のシートで検索し、該当するものが見つかれば選択して、行をコピーして印刷シートに貼り付けています。とても時間がかかっています。 シート1から3の構成は、ジャンル別で分かれていますが、 A列:商品名、B列:メーカーコード、C列:自社コード、D列:売価、E列:原価、F列:登録日 です。バーコード印刷のマクロは出来てます。 複数のシートから検索し、コピーして、印刷シートに貼り付けるマクロです。 エクセルは2003で、OSはXPのSP3です。

専門家に質問してみよう