• ベストアンサー

各部署から毎日、エクセルの１ブック１シートでデータが送られてきます。

それを少し編集し部署毎に月別ブックを作りデータを追加しています。ただ月別ブックも１シートのみで、1日から順に末尾行へ追加して、翌月は新たなブックに・・・という仕様です。 1日のデータは１行～数行あり、項目等は変わらす数値が変化し、行単位でのコピぺで対応しています、何とかマクロでできないかと。。。 現在、送られてくるデータを作業シートに読み込み、不要行抽出まではできました。 これを別ブック月報シートのデータ末尾行に追加上書きしていきたいのですが、 既存データ末尾を検索？貼り付けのマクロで四苦八苦です　TOT どなたかご指導願います。

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

  • ベストアンサー
  • hallo-2007
  • ベストアンサー率41% (888/2115)
回答No.1

>既存データ末尾を検索？貼り付けのマクロで四苦八苦です Range("A65536").End(xlUp).Offset(1, 0).Activate とか Range("A65536").End(xlUp).Offset(1, 0).PasteSpecial を参考にしてください。 A列の最も下の行(65536)から上へ移動して、空白でない行の1行下のセルをアクティブにします。 その後に、貼り付けを実行します。

zaikoman3
質問者

お礼

ありがとうございます！！参考になります。 だんだん理想の処理に近づいてきました^^

  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. オフィス系ソフト

関連するQ&A

  • シートの自動追加を新規ブックで実行したい

    こんばんは。 いつもお世話になっています。 営業月報を作成したいと思い、色々お知恵を借りながら試しています。 Sheet1：チームのメンバー表 Sheet2～3：名簿と目標値 Sheet4：月報の原版 このような構成のブックで、毎月Sheet1のメンバー表を書き換え（名簿ファイルから直接コピペでA1セルから下に向かってメンバーの名前）、 下記のマクロを実行してSheet4を複製しています。 今はこの追加を同じブック内で最後尾へどんどん追加しているのですが、複数のチームで共有する都合を考え、Sheet1にコピペしたメンバーの月報は新規ブックを自動で起こしてシートを追加したいと思っています。 ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ Sub シート追加() Dim 追加シート名 As String Dim i As Integer For i = 1 To Sheets("Sheet1").Range("a1").End(xlDown).Row 追加シート名 = Sheets("Sheet1").Cells(i, 1).Value Sheets("Sheet4").Copy After:=Sheets(Sheets.Count) Sheets("Sheet4" & " (2)").Name = 追加シート名 Next End Sub ＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊ 現在使用しているマクロはこのような内容なのですが、新規ブックでシートの追加をするには、どのようにすればよいのでしょうか？ よろしく御教示をお願いします。

  • 異なるブックのデータを同一シートに貼り付けるには

    いつもお世話になっております。 異なるExcelブックのデータ(リスト形式)を一枚のシートに貼り付けるにはどのようなプログラムを組めばよろしいでしょうか。 ・ExcelファイルはOutlookの受信メールにひとつずつ添付されており、各ブックにはシートが一枚のみがあるものとします。 ・受信メールは全て特定のメールフォルダに保存されています。 (1)受信メールの添付のExcelファイルを開く (2)シートの2行目から5行目を選択してコピー (3)"統合"シート(別ファイル)に貼り付け (4)Excelファイルを閉じる (5)次の受信メールのExcelファイルを開いて2行目から5行目をコピー→"統合"シートの最終行の次の行に貼り付け→ファイルを閉じる。 (6)メールフォルダの中の全ての添付ファイルについて(5)を繰り返す。 なお、ファイルを開かなくても貼り付け作業ができる場合にはそちらでお願いします。 よろしくお願いします。

  • Excelのシートからシートへデータを移動したい

    Excelのシートで作成されている申込書（シート）があり、現在はその申込書シート（セル）に記載されている情報を別のシート（顧客データとして管理しているシート、複数行存在しています）に手入力しています。 この手入力の作業をマクロか関数で簡単にしたいのですが、下記の点がクリアできる良い案が分かる方がいたら教えて頂きたいです。 (1)申込書シートは顧客データシートに情報を移動したら、都度上書きしていきたい⇒申込書シートは同じbookで管理しないため（上書きについては申込書内容を都度手作業で貼り付けするつもりです） (2)顧客データシートは顧客が増える毎に2行目、3行目・・・というようA列が空欄になっている一番上に、申込書データの内容が反映されるようにしたい。 (3)貼り付けられたデータ（セル）は関数ではなく、値（文字）が貼り付けられるようにしたい。（(1)のように申込書シーは都度上書きしたいため） 分かりづらい質問で申し訳ありません。。 ちなみにマクロは作成したことがありませんが、マクロでできるのであれば挑戦したいと思っています。 ご回答よろしくお願い致します。

  • 複数のブックを新しいブックのSheet1にまとめたい

    教えてください。 「A」「B」「C」「D」「E」「F」「G」 と言った名前のエクセルファイルがあります。 実際は約５０個ありますが・・・。 それぞれ、Sheet1にのみ同じフォーマットですが、行数というか、件数が異なります。 新しいエクセルブックのSheet1にA」のデータの下に「B」のデータを貼り付けるという風に、「A」～「G」をまとめて一つのシートにまとめたいです。コピペではなくマクロでできるということを知りました。 毎月作業することになるので、マクロを組んでおきたいと思っています。 しかし、マクロは単純作業を記録して実行するというような基本的なことしかわかりません。 専門的用語ではなく、 (1)ツールをクリック (2)すべてのブックを開いておく (3)Visual　Basicをクリック などというように、手順を教えていただけないでしょうか？ よろしくお願いします。

  • Excel 微妙に違う２つのシートのデータをリンクさせる

    ある程度 同じデータのブック1とブック２があり、 ブック１は祭日などデータが無い日も日付があり、行が確保されていますが、 ブック２は祭日などデータが無い日は行が抜いてあります。 Ａ列：日付、Ｂ列：曜日　Ｃ列：データ1、Ｄ列：リンクを入れる 04.11.22　月　56　　=[ブック２.xls]シート1！Ｈ2 04.11.23　火　 04.11.24　水　50　　=[ブック２.xls]シート1！Ｈ3 04.11.25　木　52　　=[ブック２.xls]シート1！Ｈ4 04.11.26　金　49　　=[ブック２.xls]シート1！Ｈ5 04.11.29　月　　　　　 04.11.30 火 Ａ～Ｃ列はブック1、2とも同じデータです。（現在ブック１は１４００行、ブック２は１３００行くらい） Ｄ列にブック２のＨ列のデータを表記したいのですが、ドラッグなどでは行がずれてしまいます。 関数かマクロなど、何か良い方法を教えて下さい。 下記のことにも対応できれば更に便利なのですが・・。 ブック２のＨ列は時々Ｊ列とか他の列（表範囲内）に移動します。 そしてたまにはブック２のシート１もブック１に移動したりブック２に戻したりもします。

  • ＥＸＣＥＬ　複数シートを1つのシートに集約する方法

    1つのブックに複数（30程度）の同一フォームのシートがあり、それらを1つのシートにまとめる方法があれば教えて下さい。 データを統合（集計）するわけではなく、単純にシート１の最後のデータの次の行にシート２のデータを追加、同様にシート３～最後のシートのデータを次々に追加したいのです。 手作業でデータをコピー＆ペーストでももちろん可能ですが、結構時間がかかりますので簡単なマクロでできれば助かります。 よろしくお願いします。

  • エクセルでブック間のシートの合体？教えてください。

    エクセルの作業で困っちゃいました。 同じホルダー内に 0210A.xls、sから0309A.xlsの１２種類 0210B.xls、sから0309B.xlsの１２種類 0210C.xls、sから0309C.xlsの１２種類 0210D.xls、sから0309D.xlsの１２種類 の４８のブックがあります。（0210は2002年10月の意味です。） 各ブックは複数のシートを持っており、各ブックに共通してあるのは「AAA」、「BBB」、「CCC」の３種類で、それ以外のシートもあります。シートの順番は各ブックによりまちまちです。 これらのブックの共通する３種類のシートだけを合体して 0210AB.xlsから0309AB.xlsの１２種類、（AとBの合体） 0210CD.xlsから0309CD.xlsの１２種類、（CとDの合体） の２４種類のブックを作りたいのです。 各ブックは「AAA」、「BBB」、「CCC」の３シートを持ちます。中身はオリジナルの各「AAA」、「BBB」、「CCC」の単純な寄せ集めです。 データは各シートとも１行目に項目、2行目以降にデータで、列はAF列まで使用しています。データの個数はまちまちで、オートフィルターを使用しています。 たとえば、0210A.xlsのシートAAAが200行であれば0210BのシートAAAのデータの一行目の項目は不要ですので2行目から最終行までコピーして201行以降に貼り付けるという感じです。同様にシートBBB、シートCCCも処理します。各シート１行目はオリジナルと同じ項目名とします。 手作業でやろうと思いましたが、誤りの発生もこわいのでVBAなどでうまくできる方法はないでしょうか？わたしのVBAの知識はマクロ自動記録ができるくらいなので助けてほしいのです。 Windows２０００でエクセルも２０００です。 よろしくお願いしま～す。

  • エクセルのシートのコピーについて

    シートのコピーをＶＢＡで行いたいのですが、エラーになってしまいます。 間違っている箇所が分からないのでご教授お願いします。 貼り付けというブックにマクロが組まれています。 ”データ”のブックにあるシート名が”貼り付けのブックのリスト”のシートに記載されています。 リストのシートに記載されているシートを貼り付けのブックにコピーしたいです。 よろしくお願いします。 Sub シートコピー() 行数 = 2 Do Until IsEmpty(Cells(行数, 3).Value) コピー元 = Workbooks("貼り付け.xls").Worksheet("リスト").Cells(行数, 3) Workbooks("データ.xls").Worksheet(コピー元).Copy After:=Workbooks("貼り付け.xls").Sheets(Workbooks("貼り付け.xls").Sheets.Count) 行数 = 行数 + 1 Loop End Sub

  • マクロで5個のBOOKのデータをBOOK1に転記

    エクセルマクロで対話型でBOOK2～6の5個のデータを BOOK1のシート1に順番で転記したいです。 BOOK2～BOOK6は作業者にファイルを選択させたいです。 BOOK2～BOOK6は作業の都度行数がBOOKごとに変わります。 （５００～５，０００行でばらつきます） 流れとしては、 １．BOOK1を開いてマクロを軌道 ２．エクセルのファイルを開くウィンドーが出る ３．ファイルを選択させる（例：マイネットワーク内のBOOK2を選択） ４．ウィンドーの開くをクリックする ５．転記1回目 　　指定したファイルが開いてデータが 　　BOOK1のシート１に転記される 　　この１回目は1行目からデータがある最終行まで。 　　その後BOOK2は閉じられる ６．メッセージボックスで「転記完了」と表示 ７．メッセージボックスの「ＯＫ」をクリックすると 　　エクセルのファイルを開くウィンドーが出る ８．ファイルを選択させる（例：マイネットワーク内のBOOK3を選択） ９．ウィンドーの開くをクリックする 10．転記2回目 　　指定したファイルが開いてデータの中の２行目～最終行までを 　　BOOK1のシート１の最終行の次の行から転記を行う。 　　（NO.5のBOOK2が1,000行の場合1,001行目から 　　　BOOK3のデータ2行目以降が転記される） 　　その後BOOK3は閉じられる 11．この作業を計５回行う 　　（転記３～５回目も転記するデータは2行目～最終行） 13．メッセージボックスで「５個のBOOKの転記が終了」と表示 14．メッセージボックスの「ＯＫ」をクリックすると 　　Call　編集 　　でSub　編集　というプロシージャーが起動する Sub　編集は出来上がってます。 （BOOK1のシート１を編集します。） NO.1～NO.14のマクロ記述を教えてください。 自分で作成した記述では全然駄目でした。 よろしくお願いします。

  • 複数のブックのデーターをひとつにできますか？

    複数のブックにシートが１個づつ、中は同じ種類のタイトルデータ、記号やコメント文章、同じなんですが、これらのブックを新しいブックのシートに指定したブックの順番にデーターが、繋ぎ合わさせることって、できるのでしょうか？ たとえば、５０個づつのデータが入っているファイルが10個あるとすれば、 新しい１１個めのエクセルファイルのシートにデータが５００個となる。 こんなことって出来ますか? できるとすれば、マクロという方法ですか？ 難しいでしょうか？ マクロを書いてくれるようなサービスはないでしょうか？ 有るとすれば、どのような単語で検索すれば、マクロを作ってくれるサイトが見つかるでしょうか？

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

あなたにピッタリな商品が見つかる！ OKWAVEセレクト

質問する