• 締切済み
  • 困ってます

book1シート1のデータを別bookシートに移す

a1シート1のデータ1,2(データ1.5列G行~18列G行,~9000個、データ2.25列G行~38列G行,~9000個)を b1シート1,c1シート1に移行したいのですが、 a1シート1のデータは、9000個と9000個とします。 b1シート1,c1シート1は、16000個前後をできれば最大にしたいと考えています。 このとき移行したいb1シート1(5列G行~18列G行,~16000個)は最終行からでてしまいます。 でてしまう分をc1シート1(5列G行~18列G行,~2000個)に書き移したいと思っています。 分かりやすくと思い9000個と書きましたが、データにより数は、異なっています。 このとき、データ1とデータ2の連結は、空白行なしです。 b1シート,c1シートは、a1シートとは、別bookです。 こんなときのマクロを教えていただければと思い質問しました。 マクロ記録でしましたが、うまくできませんでした。 コードを教えていただけませんか。 よろしくお願いします。 m2010です。

共感・応援の気持ちを伝えよう!

  • 回答数1
  • 閲覧数283
  • ありがとう数1

みんなの回答

  • 回答No.1
  • Nouble
  • ベストアンサー率18% (330/1780)

済みません 縦が列でアルファベット 横が行で数字 で、再度説明して頂けませんか?

共感・感謝の気持ちを伝えよう!

質問者からの補足

a1シート1のデータ1,2(データ1.5行G列~18行G列,~9000個、データ2.25行G列~38行G列,~9000個)を b1シート1,c1シート1に移行したいのですが、 a1シート1のデータは、9000個と9000個とします。 b1シート1,c1シート1は、16000個前後をできれば最大にしたいと考えています。 このとき移行したいb1シート1(5行G列~18行G列,~16000個)は最終列からでてしまいます。 でてしまう分をc1シート1(5行G列~18行G列,~2000個)に書き移したいと思っています。 分かりやすくと思い9000個と書きましたが、データにより数は、異なっています。 このとき、データ1とデータ2の連結は、空白行なしです。 b1シート,c1シートは、a1シートとは、別bookです。 こんなときのマクロを教えていただければと思い質問しました。 マクロ記録でしましたが、うまくできませんでした。 コードを教えていただけませんか。 よろしくお願いします。 m2010です。   a1シート1 /ABCDEFGHI--------MHJ 1データ1 2------9000個 3 4 5------○○~~~~~○○ 6------○○~~~~~○○ 7------○○~~~~~○○ . . . 17-----○○~~~~~○○ 18-----○○~~~~~○○ 19 . . 23データ2 24-----9000個 25-----○○~~~~~○○ 26-----○○~~~~~○○ . . . 37-----○○~~~~~○○ 38-----○○~~~~~○○ 39 b1シート1 /ABCDDEFGHI------MHJ-------WQP 1データ1,データ2 2-------16000個 3 4 5-------○○~~~~○○~~~~~○○ 6-------○○~~~~○○~~~~~○○ 7-------○○~~~~○○~~~~~○○ . . . 17------○○~~~~~○○~~~~○○ 18------○○~~~~~○○~~~~○○ 19 データ1,データ2の継ぎ目に空白なし。 マクロの記録では、 Sub Macro1() ' ' Macro1 Macro ' ' Range("G5").Select ActiveSheet.Paste Range("MHJ5").Select ActiveSheet.Paste Range("F4").Select End Sub c1シート1 /ABCDEFGHI 1データ2の残り 2------2000個 3 4 5------○○~~○○ 6------○○~~○○ 7------○○~~○○ . . . 17-----○○~~○○ 18-----○○~~○○ 19 この質問は、難しいのでしょうか。 書き方がわるいのでしょうか。 よろしくお願いします。

関連するQ&A

  • データを別bookシートに移す

    a1シート1のデータ1,2(データ1.5行G列~18行G列,~9000個、データ2.25行G列~38行G列,~9000個)をb1シート1,c1シート1に移行したいのですが、 a1シート1のデータ1,2は、9000個と9000個とします。 b1シート1,c1シート1は、16000個前後をできれば最大にしたいと考えています。 このとき移行したいb1シート1(5行G列~18行G列,~16000個)は最終列からでてしまいます。 出てしまう分をc1シート1(5行G列~18行G列,~2000個)に書き移したいと思っています。 分かりやすくと思い9000個と書きましたが、データにより数は、異なっています。 このとき、データ1とデータ2の連結は、空白行なしです。 b1シート,c1シートは、a1シートとは、別bookです。 こんなときのマクロを教えていただければと思い質問しました。 マクロ記録でしましたが、うまくできませんでした。 コードを教えていただけませんか。 よろしくお願いします。 m2010です。  a1シート1 /ABCDEFGHI-------------MHJ 1データ1 2------9000個 3 4 5------○○~~~~~○○ 6------○○~~~~~○○ 7------○○~~~~~○○ . . . 17-----○○~~~~~○○ 18-----○○~~~~~○○ 19 . . 23データ2 24-----9000個 25-----○○~~~~~○○ 26-----○○~~~~~○○ . . . 37-----○○~~~~~○○ 38-----○○~~~~~○○ 39 b1シート1 /ABCDDEFGHI-----------MHJ-------WQP 1データ1,データ2 2-------16000個 3 4 5-------○○~~~~~○○~~~○○ 6-------○○~~~~~○○~~~○○ 7-------○○~~~~~○○~~~○○ . . . 17------○○~~~~~○○~~~○○ 18------○○~~~~~○○~~~○○ 19 データ1,データ2の継ぎ目に空白なし。 マクロの記録では、 Sub Macro1() ' ' Macro1 Macro ' ' Range("G5").Select ActiveSheet.Paste Range("MHJ5").Select ActiveSheet.Paste Range("F4").Select End Sub c1シート1 /ABCDEFGHI~~ 1データ2の残り 2------2000個 3 4 5------○○~~○○ 6------○○~~○○ 7------○○~~○○ . . . 17-----○○~~○○ 18-----○○~~○○ 19 この質問は、難しいのでしょうか。 書き方がわるいのでしょうか。 よろしくお願いします。

  • エクセルで入力済みのセルのみ見つけて・・

    エクセルで入力済みのセルだけを見つけ出して、 指定した場所に並べる作業をマクロで1発で出来るようにしたいのですが、その方法を教えてください。 シートが37シートあります。(sheetA1~sheetA12,sheetB1~sheetB12,sheetC1~sheetC12,sheet37) それぞれセルC5からC20まで数値が入っていますが、 最終行はC20とは限りません。(sheet37はまとめるためのシートで空白) C15が最終行の場合もあれば、C18が最終行の場合もあります。 各シートそれぞれ最終行が違います。(列は同じですスタートもC5です) 各シートのC列の入力済みのセルの数値をsheet37のB1セルから順番に縦に並べたいのです。 A,B,Cのシート順にC列に入力された数値を縦に並べます。 空白は無しで詰めて並べます。 これを1回の作業でできるマクロを教えてください。 それから入力済みの最終行を見つけ出すマクロの部分を表示して頂けるとありがたいです。 宜しくお願いします。

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

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

  • 【EXCEL】列の最後のセルのデータだけ抽出したい

    いつもお世話になっております。 A1 ○○ B1 ○○ C1 ○○ A2 ○○ A3 ○○ B3 ○○ ...といったかんじでセルにバラバラにデータが入っているとします。 列にデータが入っている最終の行だけ取り出したいのです。 上の例だとC1,A2,B3です。 マクロを使わなきゃ無理そうなのですが、アフォなのでわかりません。(T.T) プログラミングの経験がある方、賢い方、教えてくださいませ。

  • データを時系列で表示させたい

    よろしくお願いします。 日次毎の製造表を作っています。 毎日作る物が違うのでシート1にひな形としての表があります。 で、作った物を記録としてシート2に残したいと思っています。 ひな形の表の内容ですが A1に日付、B1に会社名、C1に商品名、D1に製造個数を打ち込んでいきます。一日3品~8品と日によって作る数が違います。ですので、表は最高の8品分が入るように枠線で囲ってあります。A1~D8まで罫線で囲ってあります(A1は日付なのでA8までセルで結合してありますが) 今の自分のレベルではコピー&ペーストしてシート2に記録していくしかないと思いますが、もっとマクロとか使っていい方法がないかと思うのですが。 質問の内容をまとめますと・・・ シート1にあるひな形として表の値をシート2に時系列として記録していきたいです。欲しい値は日付、会社名、商品名、製造個数です。空白行に順次記録されていくような形にしたいです。 月曜は3品、火曜は5品と日によって作る数が違いますので、品数の分だけを記録できるようにしたいです。8品分入る表が作ってありますが、空白の行は無視するような意味です。 わかりにくい質問だとは思いますが、いい方法がありましたら教えてください。

  • Excel2000で連続データの空白行を挿入したい。

    Excel2000で連続データの空白行を挿入したい。 A1=B1+C1 A2=B2+C2 A3=B3+C3 (あと続く) と連続データになっているものに空白行を2行入れる方法を教えてください。 結果的に下記のようにしたいのです。 A1=B1+C1 A2=空白 A3=空白 A4=B2+C2 A5=空白 A6=空白 A7=B3+C3 (あと続く) ジャンプ機能を使うとできた気がするのですが・・・。 よく覚えていなく、わかりません。 どなたか教えてください。 よろしくお願いします。

  • 複数のBookから決まったセルの値を別のBookに

    お世話になります。 EXCELで複数のBOOKから決められたセルにある値を抽出してひとつのBOOKに纏めたいのです。 BOOK1~50、 BOOKには31枚のSheetがあります。 その中のSeet31にSeet1~30のデーターを纏めてあります。 Seet31の A1~3 B1~2 C1~3 のデーターを抽出して 新しく作ったBook【集計】のSeet1にBook1~50から抽出した データーを縦に並べたいのです。 【 例 】   A1 A2 A3 B1 B2 C1 C2 C3 1  5  2  4  3  6  7  1  3 2  2  3  4  6  9  7  5  2 3  7  8  5  6  2  3  1  8 と、いった感じです。 なお、Book名は『漢字+数字』です。 宜しくお願いします。

  • EXCEL データをコピーして別シートの最初の空白行に貼り付け

    EXCEL データをコピーして別シートの最初の空白行に貼り付け 解決方法がわからず再度質問させていただきます。 どなたかご教示お願いいたします。 シート 1-1 毎月決まった項目のデータが入ります。 1-4 1-1の月データを一年分貼付 2-1 毎月決まった項目のデータが入ります。 2-3 2-1の月データを一年分貼付 3-1 毎月決まった項目のデータが入ります。 3-2 3-1の月データを一年分貼付 1,2,3と三種類ありますが、やりたいことは同じで、 1-1、2-1、3-1には毎月決まったデータを貼り付けています。 そのデータをそれぞれ1-4、2-3、3-2の前月の最終行の次に継ぎ足しで貼り付けたいのです。 (項目の下の空白行に貼り付けたい) 1-1と1-4、2-1と2-3、3-1と3-2の項目は同じです。 ----------------------------------------------------------------------------------- 1-1 A1:O1に項目(A2:02以下にデータが入り、行はその月によりまちまちです) Q2:R28にはA2:O2以下のデータをカウントしています。 1-4 A1:O1に項目 A2:O2以下に一年分のデータを自動的に貼り付け ----------------------------------------------------------------------------------- 2-1 A1:L1に項目(A2:L2以下にデータが入り、行はその月によりまちまちです) N2:O15にはA2:L2以下のデータをカウントしています。 2-3 A1:L1に項目 A2:L2以下に一年分のデータを自動的に貼り付け ----------------------------------------------------------------------------------- 3-1 A1:K1に項目(A2:K2以下にデータが入り、行はその月によりまちまちです) 3-2 A1:K1に項目 A2:K2以下に一年分のデータを自動的に貼り付け ----------------------------------------------------------------------------------- EXCEL2003です。 マクロは記録程度の知識しかなく、申し訳ないのですが、 ここの部分をどうしても自動的に行いたいのです。 どうかよろしくお願いいたします。

  • excelでデータを別シートに引っ張ってきたい

    excelで値を検索し、返す時、返す値の横にあるデータを違うシートのセルの下に一緒に引っ張ってきたいときの関数(方法)を教えてください。 素人なので分かりにくいと思いますが、お知恵をお借りしたいと思います。 あるデータのシートの検索値を別シートに持ってきたいのですが、シート1をシート2のようにしたいのです。 /は空白 例)シート1 /A B C D E 1(1) □ ○ ▽ ◎ 2 (2) ▼ ■ ◇ ◎ シート2 / A B C D 1 (1) □ 2 /○ ▽ ◎ 3 (2) ▼ 4 /■ ◇ ◎ 分かりにくいかもしれませんが、 シート1の(1)(A1)を検索すると、シート2(B1)に□(これはVLOOKで引っ張ってこれるのはわかります。) 次にシート1の(C1)○をシート2の(B2)へ持ってきたいのです。シート1(D1)(E1)はシート2の(C2)(D2)へ。 しかもシート1のC列は空白セルもあり、シート1のC列が空白の場合、下にずれることなくシート1の(D1)(E1)はシート2の(C1)(D1)へ。下記<図a>のようになるようにしたいのです。 そして、シート2のA列に検索値として入力する(1)や(2)の値は連番ではなく、(2)の次に(5)に飛んだりします。(2)の行のC列にデータがあっても、(5)のC列にデータはないこともあります。<図b> <図a> /A B C D 1 (1) □ ▽ ◎ 2 (2) ▼ ◇ ◎ <図b> / A B C D 1 (1) □ 2 /○ ▽ ◎ 3 (2) ▼ 4 /■ ◇ ◎ 5 (5) □ ▽ ◎ 6 (7) ▼ ◇ ◎ vlookとかCLUMN関数とか考えてはみたのですが、どうもうまくいきません。 毎回作成するデータなのですが、毎回コピペで作成しています。 とても面倒なので(1)を検索したらデータが一瞬で検索できるようにしたいと試みてはみたものの、私の知識では不可能でした。 関数では無理なのでしょうか。。。 関数はあまり詳しくないので分かりやすい方法があれば、教えていただければ助かります。 関数に詳しい方、よろしくおねがいいいたします。 関数にはこだわっていません。違う方法があればそれも含めておねがいいたします。

  • 複数のブックのデータを集めて、グラフを書きたいです

    Book1、Book2には、異なる行列のデータがあります この2つのブックのデータを参照してグラフを書くマクロをVBAで組んでいます Book1,Book2のシートをそれぞれグラフに書くところまでは出来ました 質問1. Book1のA1~An(Aのセルすべて)を、Book2の指定のセル(例えばC1~Cn)に コピーしたい 質問2. Book2のセルB1~B100のデータと Book1からコピーしたC1~C300のデータを 同じグラフ上にプロットしたい AのセルをX軸のデータとして使用する 宜しくお願いします