• ベストアンサー

コピーしたデータを2行ずつに貼り付け

bin-chanの回答

  • bin-chan
  • ベストアンサー率33% (1403/4213)
回答No.1

質問内容は２つですか？ １）最下行を知るにはどうすれば良いか？ ２）１行をコピーして２行にするにはどうすれば良いか？ １）は過去ログを「ＥＸＣＥＬ　ＶＢＡ　最下行」で検索してください。 ２）は、１行コピーして最下行の次の「２行選択してから」貼り付けを　　マクロの記録でもすればコードができます。手動で記録した行番号を１）で取得する「最下行」と置き換えてください。 ＥＸＣＥＬ2007より前なら、メニューのツール＞マクロ＞マクロの記録。 ＥＸＣＥＬ2007なら、リボンの表示＞マクロ＞マクロの記録。 rows("1:1").copy rows("3:4").select ActiveSheets.paste みたいな感じ（かなり省略）になるので 最下行を取得して変数nRowに格納したのであれば rows(nRow + 1 & ":" & nRow + 2).select に書き換えるということです。

kkke
質問者

お礼

早速の返答ありがとうございます。 最下行の取得は分かります。 1行を複数行にコピーするやり方ですが、 マクロの記録でやってはみましたが どうもピンときません。 というのも、「1行を複数行にコピー」を 何行にもわたって自動で繰り返したいからです。 rows(nRow + 1 & ":" & nRow + 2).select をデータの端まで繰り返すという様なニュアンスでしょうか・・・ もう少しで分かりそうな気がするんですが・・・

この回答がついた質問に戻る
回答 全件
ベストアンサー
Sheet1のA列に「あるデータ（リスト形式）」があり、Sheet2の…
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. その他MS Office製品

関連するQ&A

  • エクセルで抽出したデータを別シートにコピーしたいです

    エクセル2003を使用しています。 例えば、以下のような表があります。 　ＡＢＣ １あ10 ２い15 ３あ20 ４ A列が条件となり、たとえば「あ」のデータだけ抽出して、そのデータを別シートにコピーします。 同じく「い」だけを抽出して、また別のシートにコピーします。 いままでは、オートフィルタで抽出して自分でコピーをして貼り付けしていましたが、日々データが次の行に追加になるので、毎回オートフィルタしてコピーするのは大変です。 関数か、マクロかVBAを使ってする方法はありますでしょうか。 できれば日々追加になるデータのみをすでにある別シートの前日までのデータの下に追加できるようになればいいと思うのですが。 知識が乏しくできません・・・ よろしくお願いいたします。

  • エクセルで２０万行あるシートから１００行ずつ抽出したいのですが

    お世話になります。 エクセルで２０万行のデーターがあります（時刻と温度のデーター）。 これを１００行ずつ抽出し、別のシートにコピーしたいのですがどうすればいいでしょうか？ +’sheet’A1 +’sheet’A101 +’sheet’A201 ・・・ と手入力では大変ですので、ドラッグで一度に出来るやり方を教えて頂けると幸いです。 よろしくお願いします。

  • 行のコピーに対し一列だけコピーしないようにする

    お世話になります。 エクセルのコピーに関して質問です。 あるデータをコピーする際、行のコピーという操作をやっています。 以下の例では一行目にabcde・・・というデータを貼り付ける操作です（ずれていてすみません）。 ABCDEFGHIJKLMNOPQRSTUVWXYZ 1 ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑ・・・ ただたとえば最後のz列にのみ数式を入れていてここはコピーしてほしくないのです。 以下の制約があり普通のコピーで対応したいのですが方法はないでしょうか？ 1　1行のデータが100以上あるため行コピーが楽 2　行数（コピーする行数）は100以上あるためシート内の別範囲に表示させる方法は見えにくく× 3　種類別に分けてシートを作成しているので別シートに表示させる方法はシート数が多くなりすぎて× 4　色々な人（初心者も）がコピーするため＋データはUSB等でバラバラにもってくるためマクロは避けたい マクロを使えばできそうというのはわかるのですが本人自身もまだ初心者なのと コピーする個所は各自判断しなくてはいけないので難しいと感じています。 駄文ですみませんがよろしくお願いします。

  • VBAでのコピーについてです。

    　いつもお世話になっております。VBA初心者です。 　シート全体の内容（データ）を別ブックのシートにコピーしたいのです。しかも、別ブックのシートにはデータがあるので、そのデータ下の行（例えば（20,A））から貼り付けたいのです。 　いろいろと調べたのですが、やり方がわかりません。 よろしくお願いいたします。

  • データ抽出のコピーの仕方を教えてください。

    エクセル2007で表を作っています。 シートAに、１行目が項目で２行目以降データです。３５０行ほどあります。 シートAのそのデータにフィルタを使って、３件ほど、抽出しました。 シートBに抽出したデータと１行目の項目を列幅やセルの色などそのままコピーしたいのですが、 コピー→貼り付けだと、書式がコピーできません。 項目と抽出したデータをそのまま、まるっとコピーできないでしょうか？

  • VBA フィルターで抽出したデータを別のファイルの

    VBA フィルターで抽出したデータを別のファイルのシートのセルにヘッダー行とフッター行のあるシートに挿入したい お世話になります。 excel のフィルターで抽出したデータを別のファイルのシートに抽出したデータと同一フォーマットの入っている原紙がありその原紙をコピーしたシートのヘッダー行（A1-A8)の後、9行目からフッター行の手前、５２行めまでに貼り付けするを、フィルターで抽出した分繰り返したいのです。原紙 のシートはコピペでしたに20枚ほど作ってあります。 マクロの記述でコピペを繰り返せば作れそうな気はしますが、汎用性が無いので、また私の頭も固いので。 宜しくお願いします。

  • データコピー貼り付けの仕方

    excel2010を使っています、VBA勉強中の初心者です教えてください。 随時データ量の変化するsheet1があります。 sheet1 A2からデータの入ってる最終行、R列までをコピーし、 sheet2 A列：R列まで、最終行に貼り付けをしたいのでご教授ください sheet1, sheet2ともに行１にタイトルがあります

  • エクセルＶＢＡでフィルタ抽出部分のみのコピー

    エクセルＶＢＡで売上帳を作成していますが、オートフィルタでデータ抽出した後、表示されている行のみをコピーして別シートに貼りつけるにはどうすればよいのでしょう？ 別シートは指定したセルに値のみの貼り付けをしたいと思っています。 宜しくお願いします。

  • エクセル コピーしたデータを１行おきに貼り付け

    エクセル２００３を使っております。 コピーしたデータを１行おきに貼り付けたいのですがやり方がわかりません。あと、１つのセルに対して２行ごとに結合したいのですがどのようにすればいいのか。教えてください。よろしくお願いします。

  • VBA 特定の行を別シートへコピー・削除

    下記のように、VBAで特定の行を抽出して別シートへコピーし、コピーした行については元リストデータを削除したいです。 具体的には、【出荷sheet】（C列注文番号は、出荷があった時に入力済）へ、注文番号に対応する行を【リストsheet】から抜き出してコピーし、コピー後は、【リストsheet】から該当行を削除したいです。 検索により調べてもうまく合致する回答が見当たらず困っています。 VBAの理解度は未熟ですが、何卒ご教授いただけると幸いです。 【リストsheet】 A列　B列　　C列　　　D列　・　・　・　Ｊ列 No.　日付　注文番号 　品名　・　・　・　・ 1　　1/1 　 A111　　 鉛筆 　・　・　・　・ ←コピー後、削除　 2　 　1/2 　 B222　　 ペン　 ・　・　・　・ 3　 　 1/5 　C555 消しゴム・　・　・　・ ←コピー後、削除　 ・ ・ 　　⇓ 【出荷Sheet】 A列　B列　　C列　　　D列　・　・　・　Ｊ列 No.　日付　注文番号 　品名　・　・　・　・ 1　　1/1 A111　　 鉛筆 　 ・　・　・　・ 3　　 1/5 　 C555 消しゴム・　・　・　・

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する
質問する