• ベストアンサー

教えてください

エクセルでマクロをしようしてシート1の表(A1：O:14)をシート2の最終行の空白にコピーして どんどん貼り付けられるようにしたいのですがシート2に貼り付けると表が重なりうまく 貼り付けられません。 ちなみに表の最終行は文字入力されておらず枠だけとなっています。 よろしくお願いします。

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

  • ベストアンサー
  • tom04
  • ベストアンサー率49% (2537/5117)
回答No.1

こんばんは！ 一例です。 Sub Sample1() Dim lastRow As Long, wS As Worksheet Set wS = Worksheets("Sheet2") lastRow = wS.UsedRange.Rows.Count If lastRow = 1 Then '←Sheet2がまっさらな場合 lastRow = 1 Else lastRow = lastRow + 1 End If Worksheets("Sheet1").Range("A1:O14").Copy wS.Cells(lastRow, "A") End Sub こんな感じではどうでしょうか？m(_ _)m

rodeotimes
質問者

お礼

返事が遅くなり申し訳ございません。 大変参考になりました。 ありがとうございます。

  1. カテゴリ
  2. ビジネス・キャリア
  3. 職種
  4. SE・インフラ・Webエンジニア

関連するQ&A

  • エクセルで文字最終行の空白セルへ移動

    エクセル２０００です。 １０００行内で間にとびとび（順不同）に空白セル、他は文字有りです。 （１０００行目は文字あり） シートが１０個あり、各シートともばらばら（ウィンドー枠固定位置）ですが、ウィンドー枠固定内の行に「最終行へ移動」のボタンを設け、いずれの行からも、最終文字入力の次の行空白セル（ＡからＺ列のいずれか）へ移動したいです。 方法がありますでしょうか？ ＶＢＡの場合、素人につきＶＢＡへの入力方法等も一緒にお願いします。またＶＢＡの場合、ソフトを立ち上げたら直ぐに実行できるようにしたいです。（立ち上がり時のマクロ警告はあり） よろしくお願いいたします。

  • エクセル　マクロ

    エクセルでマクロを組んでるのですがシート1のデータをコピーしてシート２のデータを入力している最終行の次の行にコピーしたいのですが最終行まではＥＮＤ　下⇒キーで行くのはわかりますが、その次の空白行への移動のやり方がわかりません

  • エクセルのマクロについての質問お願いいたします。

    エクセルのマクロについての質問お願いいたします。 コピーについてお願いいたします。 Ａ列に文字（文章）が１行目から１５０行ぐらいや２０００行ぐらいなど文字があります。この行の間には空白の行もあります。 Range("A1:A2000").Copyこちらですと最終行の以下の空白行もコピーするので困っております。 例えば、文字が１０００行までで終わっていたら、１０００行までコピーする方法をどうぞご教授ください。

  • エクセルのマクロ（指定列の空白にひとつ上の文字を入力し続ける）

    エクセルのマクロを教えてください。 指定列の空白にひとつ上の文字を入力し続けるマクロです。 A列指定 A2からスタートし、1000行くらいあるデータ 空白があった場合ひとつ上の文字を入力 空白は、2行連続・3行連続となることもあるが大抵は1行空白 この場合、空白セルの上で一番近いデータをコピーする A列のデータは、文字・数字・日付と様々 1000行ある場合もあるが、それ以下の場合もあるので、10行空白が続いたらマクロが自動的に終了 エクセル2003使用 よろしくお願いいたします。

  • エクセルのマクロを知りたい

    エクセルで，たくさんのデータが入力された【シートａ】があります。 新しく【シートｂ】を作成して，そこに空白の表(1)～(10)までを作成します。 （ちなみに表(1)は１行から始まり１００行まで，表(2)は１０１行から始まり２００行まで・・・・といった感じです） 【シートｂ】の表(1)には，【シートａ】でＡ列に「１」が入力されているデータを抽出して，それをＢ列の昇順に並べて記入しなさい。同様に，表(2)には，【シートａ】でＡ列に「２」が入力されているデータを抽出して，それをＢ列の昇順に並べて記入しなさい。・・・というのを表(10)まで続けます。 上記のような命令をボタン一つで操作できるようなマクロを教えて欲しいのです。 お願いします。

  • マクロで、新しいシートを作りたい。

    エクセルのマクロを教えてください。 今は、Sheet1のA2に年月日、B2:H2にコード、項目１、項目２、・・・と入力します。 入力が終わったら、マクロを実行し、その後A2:H2をクリアしています。 今回やりたいのは、マクロの実行時に新しいシートを追加し、A2:H2をコピーしたいのです。 1 Sheet1のA2から、年月を取り出す。2003/1/1→200301 2 シートの中に、Sheet200301が有るかどうか調べ、無かったらSheet200301というシートを作る。 3 新しいシートを作ったら、Sheet4のA1:Z2をSheet200301に貼り付ける。 4 Sheet200301の最後の空白行を調べる。(新しいシートを作って最初は2行目になってもらいたい) 5 4で調べた空白行を次の行に貼り付ける。 6 4で調べた空白行にSheet1のA2:H2を貼り付ける。 7 Sheet1のA2:H2をクリアします。 よろしくお願いします。

  • マクロを使用し、EXCELのデータから必要な部分を取り出し２つのsheetに貼り付けたい

    条件 EXCELのデータ A列からL列まで 複数行（行数は、決まっていない） （例） 40行ほどあるデータを見て １行目から10行目までをsheet1に 12行目から20行目までをsheet2に貼り付けたい場合。 11行目のA列（空白になっている）に手入力で「a」と入力 21行目のA列（空白になっている）に手入力で「b」と入力し、 １行目から「a」のある行までをコピーし、sheet1に貼り付ける 「a」のある行より１行下から「ｂ」のある行までをコピーし、sheet1に貼り付ける 以上のことをマクロで実行する方法を教えて下さい。

  • エクセルのマクロでこういう場合は？

    エクセル９７です。 Sheet1の E3:J29 に表があります。 E列、F列は文字列、G列は数値、H～J列には式が入っています。 この表の G列の値が空白や０でない行だけをコピーして、Sheet2 のB2 以下に切れ目なく表の「値」を貼り付けるにはどうのようなマクロを書けばいいのでしょうか？（G列が空白や０の行はSheet2の表では一切無視され、空白行ができないようにしたいのです。） よろしくお願いします。

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

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

  • 条件がOKの場合、行ごと切り取り別のシートにコピーしたい

    Excelのマクロ機能を使用して下記の作業をしていますが、うまくいきません。よろしくお願いします。 --- あるマッチングデータがあります。 2行はOK（マッチングできたというデータ）。 3行以上の場合は、マッチングできていないというデータ。 これを別のシートに分けたい。 例） (1)元シート 　　A　　　　　 1　あああ 2　あああ 3　（空白） 4　いいい 5　いいい 6　いいい 7　（空白） 8　うう 9　うう 10　（空白） (2)(1)のシートを２つに分けたい ■2行同じデータが続いているデータ （2行のデータは必ずキーが同じのOKデータなので）この2行をコピーして別のシートに貼り付けたい。 ■3行以上同じデータが続いているデータ 　3行以上、空白があるまでコピーして別のシートに貼り付けたい。 ★文字・文字・空白をsetにして抜き出してみようとしてみましたが 　できませんでした。 　ご教授よろしくお願いいたします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する