• 締切済み

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です。 こんなときのマクロを教えていただければと思い質問しました。 マクロ記録でしましたが、うまくできませんでした。 コードを教えていただけませんか。 よろしくお願いします。 ｍ2010です。

  • botop
  • お礼率76% (10/13)

みんなの回答

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

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

botop
質問者

補足

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です。 こんなときのマクロを教えていただければと思い質問しました。 マクロ記録でしましたが、うまくできませんでした。 コードを教えていただけませんか。 よろしくお願いします。 ｍ2010です。　　 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. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連する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のデータ１,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です。 こんなときのマクロを教えていただければと思い質問しました。 マクロ記録でしましたが、うまくできませんでした。 コードを教えていただけませんか。 よろしくお願いします。 ｍ2010です。　 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 この質問は、難しいのでしょうか。 書き方がわるいのでしょうか。 よろしくお願いします。

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

    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行を削除していこうとしてもうまくいきませんでした。 どんどんマクロも指示文ばかりが増えてわけが分からなくなってきてしまい、挫折しています。 シンプルにするにはどうすればいいでしょうか？ また、マクロの内容を載せたいのですが 会社の業務端末で組んでいるため転記できません； 申し訳ありませんが、どうかご指導ください。

  • MS　Excelで、BOOK1でシート別にデータを格納し、BOOK2で

    MS　Excelで、BOOK1でシート別にデータを格納し、BOOK2でBOOK1のシートのデータを読み込んで計算及び比較をする時の質問です。 BOOK1にA,B,Cという3つのシートを作りデータを格納したとします。 BOOK2のSheet1でBOOK1のAとBのデータを参照して比較をしました。 続いて、BOOK2のSheet1でBOOK1のAとCを比較する場合に、最初に使用したBのところにCのデータを入れて比較したいと思っています。（その後同シートでBとCの比較もしたい） 置換で参照シートをBからCに変えて、参照データをBからCに変える方法は思いつくのですが、その他で何か方法はありますでしょうか？

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

    EXCEL　データをコピーして別シートの最初の空白行に貼り付けたい Sheet１はA列からR列までを使ったシートで、1行目は各項目があり、2行目からは当月のデータが入力されています。 Sheet２はSheet１の1行目と同じようにA列からR列までが項目になっていて、期中のデータを付け足していきたいと思っています。 マクロの記録でやってみたのですが、前月の最後の行（貼り付ける最初の空白行)の認識の仕方が分からず、Sheet２への貼付がうまくいきません。 どのような方法でやったらいいのか教えて下さい。

  • シート内の一部のセルを別シートにコピー

    Excelのマクロ(VBA)の記載方法について お分かりになる箇所だけでも結構ですので、 どなたかご教授を願い致します。 シートX 　　A　　　　B　　　C　 1　data1　data2　data3 2　x　　　data7　data8 3　data4　data5　data6 4　data7　data8　data9 シート　Y 　　A　　　B　　　C　　　　D 1　length　３　　(任意)　(任意) 2　xxxx　(任意)　(任意)　(任意) 3　zzz　 (任意)　(任意)　(任意) 4　(空白)(任意)　(任意)　(任意) 上記のような２つのシート(同一Excelファイル内)があって、 シートXの一部のセルを次の条件(１～４)でシートYにコピーしたい場合 １．コピー元の列の数は、シートYの　"length"と書かれたセルの右となりの数字 　　とする(上記では３なので、A,B,C列をコピー対象） ２．コピー元の行の数は、シートXの１～４行目までとするが、 　　シートXのA列のセルが"x"だったら、その行は全てコピーしない。 ３．コピー先(Y)の列は、コピー元(X)の列と一つずれてコピー(BならCに、CならDに) ４．コピー先(Y)の行は、シートYのA列で１行からで始めて空白セルになった行からコピー開始。 (上記では、A列で空白セルのある４行目からコピー) 上記条件で、下記のシートYを作成したいのですが、 この場合どようなマクロ(VBA)で実現できますでしょうか。 コピー結果(シートY) 　A　　　　　B　　　C　　　D 1　length　　３　　(任意)　(任意) 2　xxxx　　(任意)　(任意)　(任意) 3　zzz 　　(任意)　(任意)　(任意) 4　(空白)　data1　data2　data3 5　(任意)　data4　data5　data6 6　(任意)　data7　data8　data9

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

    excelで値を検索し、返す時、返す値の横にあるデータを違うシートのセルの下に一緒に引っ張ってきたいときの関数（方法）を教えてください。 素人なので分かりにくいと思いますが、お知恵をお借りしたいと思います。 あるデータのシートの検索値を別シートに持ってきたいのですが、シート1をシート2のようにしたいのです。 ／は空白 例）シート１ ／A B C D E １(1) □ ○ ▽ ◎ 2 (2) ▼ ■ ◇ ◎ シート2 ／ A B C D 1 (1) □ 2 ／○ ▽ ◎ 3 (2) ▼ 4 ／■ ◇ ◎ 分かりにくいかもしれませんが、 シート１の(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列にデータはないこともあります。＜図ｂ＞ ＜図a＞ ／A B C D 1 (1) □ ▽ ◎ 2 (2) ▼ ◇ ◎ ＜図ｂ＞ ／ A B C D 1 (1) □ 2 ／○ ▽ ◎ 3 (2) ▼ 4 ／■ ◇ ◎ 5 (5) □ ▽ ◎ 6 (7) ▼ ◇ ◎ vlookとかCLUMN関数とか考えてはみたのですが、どうもうまくいきません。 毎回作成するデータなのですが、毎回コピペで作成しています。 とても面倒なので(1)を検索したらデータが一瞬で検索できるようにしたいと試みてはみたものの、私の知識では不可能でした。 関数では無理なのでしょうか。。。 関数はあまり詳しくないので分かりやすい方法があれば、教えていただければ助かります。 関数に詳しい方、よろしくおねがいいいたします。 関数にはこだわっていません。違う方法があればそれも含めておねがいいたします。

  • 不要なデータを切り取って別のシートに貼りつける

    シート1に色々なデータが並べています。A列～J列、5000行くらいです。 J列に「0」「1」「#N/A」の三つの値がバラバラに並べています。 フィルタで昇順にし、「0」「1」「#N/A」と奇麗に並べます。 「0」と「#N/A」の行を切り取ってシート2へ貼り付けます。 そして次にG列に「ダウンロード」以外の文字があった場合も同様に切り取ってシート2に貼り付ける といった作業をしています。作業が大変なので、マクロで実行したいのですが、コードの記述が分からないのです。教えて下さい。 宜しくお願いします。

  • Excel　シート間のデータの照合

    Excelで、シート間のお客様データ（だいたい各1万件）を照合します。下記は現在の照合方法ですが、これでは時間がかかるうえ手作業が多く発生しミスにつながります。頻繁に行う作業なので、関数でも、マクロでも、とにかくもう少し簡単にできる方法がありましたら、どうぞご教授ください。よろしくお願いします！！ 【目的】 シート「sheet2008」には2008年度のデータ。シート「sheet2007」には「sheet2008」と同じ形式の2007年度のデータが入っています。シート「sheet2008」に、そのお客様の2007年度の担当営業マンを表示させたいのです。 【例】 列A（電話番号）： 011-231-1112 列B（名前）：佐藤　一郎 列C（住所）：北海道札幌市中央区北1-1-1 列D（担当営業マン）：鈴木 新規の列（2007年度の担当営業マン）：鈴木 　・「sheet2008」「sheet2007」はほぼ同じデータですが、一部のお客様は名前が変わっていたり、住所が変わっていたりします。 　・「sheet2007」にないお客様が「sheet2008」にあったり、その逆があったりして、各シートのデータ件数は一致しません。 　・名前が同じでも住所が違うデータ、電話番号が同じでも担当営業マンが違うデータは別者として扱います。 　・「顧客ID」のような“必ずユニークな情報”は存在しません。 【現在の照合方法】 （1)「sheet2008」の各列の前に空白列を挿入する。 　（データの1行目はタイトル行…B1：電話番号／D1:名前/F：住所／H：担当営業マン） 　（データの2行目以降はデータ） 　　　　列A（空白行）： 　　　　列B（空白行）： 011-231-1112 　　　　列C（空白行）： 　　　　列D（名前）：佐藤　一郎 　　　　列E（空白行）： 　　　　列F（住所）：北海道札幌市中央区北1-1-1 　　　　列G（空白行）： 　　　　列H（担当営業マン）：鈴木 （２）「sheet2007」を列Aの電話番号で昇順に並べ替える。 （３）「sheet2008」の電話番号が「sheet2007」にあるかを調べる。 　　　　A2：「=IF(B2=(VLOOKUP(Sheet2008!$B2,Sheet2007!$A:$D,1,0)),"○","▲")」 （４）（３）で調べた「sheet2008」の電話番号と同じ行にある名前／住所が「sheet2007」にあるかを調べる。 　　　　C2：「=IF(D2=(VLOOKUP(Sheet2008!$B2,Sheet2007!$A:$D,2,0)),"○","▲")」 　　　　E2:「=IF(F2=(VLOOKUP(Sheet2008!$B2,Sheet2007!$A:$D,3,0)),"○","▲")」 （５）電話番号／名前／住所がすべて一致するデータについて、「sheet2007」にある担当営業マンの値を列Gに表示させる。 　　　　G2:「=IF((AND(A2="○",C2="○",E2="○"))=TRUE,(VLOOKUP($B2,Sheet2007!$A:$D,4,0)),"▲") （６）"▲"やエラー値で表示される計算結果について、目視で確認する。 （終了）

  • エクセル：別のシートへ抽出したデータをリンクさせたい。

    次のようなシートがあります。（シートＡとします。） 　　　 Ａ　　　　Ｂ　　　　Ｃ　　… [1] ００１　　ＡＡＡ [2] ００２　　ＢＢＢ 　あああ [3] ００３　　ＣＣＣ [4] ００４　　ＤＤＤ 　 [5] ００５　　ＥＥＥ　　いいい Ｃ列の空欄データは除外して、Ｃ列にデータが記入されているものだけ別のシートに（シートＢ）に行ごとリンクさせたいと考えています。 （この場合だと２列と５列です。） シートＡには今後もデータが追加される想定で、新しいデータで当てはまるものは自動的にシートＢに反映されるようにさせたいのですが…。 マクロ等は詳しくありません。できるだけ簡単にできる方法があればご教授していただきたいと思います。 よろしくお願いいたします。

  • VBA,二つのExcelのsheetにデータ保存

    VBA初心者です。 皆様のお力をお貸し頂きたく質問させて頂きます。よろしくお願いいたします。 質問内容は、下記になります。 Excelのsheet1には、縦列A,B,C・・・とデータが入っております。 sheet1の例 A B C sheet2は、入力するsheetです。 今回はA列の3行目からとします。 問題は、sheet1の縦の列をA,B,C,Dとすればデータの更新は、出来るのですが sheet1のデータのA,B,C一つ飛んでEまた一つ飛んでGという感じでsheet1のデータを 飛ばしてsheet2に表示、更新(保存)をしたいと思います。 ですので、sheet2のA列の3行目からA,B,C,飛んでE飛んでGとsheet１からデータを 表示させ、さらにsheet2の入力値が変更されると、sheet1のデータが入っている A,B,C,E,Gに更新される仕様です。 sheet1（データが入っています） A , B , C , E , G , 値1 , 値2 , 値3　　 , 値4 , 値5 sheet2(入力する、入力したデータは、sheet1へ更新される) A列 3行目　、sheet1の値1(A列)が入ります。 4行目　、sheet1の値2(B列)が入ります。 5行目　、sheet1の値3(C列)が入ります。 6行目　、sheet1の値4(E列)が入ります。 7行目　、sheet1の値5(G列)が入ります。 以上です。申し訳ございませんが、ご教授よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する