• 締切済み

エクセル　マクロ

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

  • 5888
  • お礼率33% (1/3)

みんなの回答

  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

Sub test02() d = Worksheets("Sheet2").Range("A65536").End(xlUp).Row MsgBox d Worksheets("Sheet2").Activate Worksheets("Sheet2").Cells(d + 1, "A").Select End Sub ーー または Sub test01() Worksheets("Sheet2").Activate Worksheets("Sheet2").Range("A65536").End(xlUp).Select Selection.Offset(1, 0).Select End Sub Ａｃｔｉｖａｔｅが先行しないとＳｅｌｅｃｔでえらーが起こる場合があるので注意。

5888
質問者

お礼

よくわかりました ありがとうございました たすかりました

回答No.1

offset(1)

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

関連するQ&A

  • EXCELのマクロにて

    EXCELのにて連続したデータを入力したデータベースがあります。（行が5000、列がAAまで） このデータベースのデータの最終行だけを指定して違うシートにコピー・貼り付けがしたいのです。 マクロにてこのような作業をするときにはどういった文をかけばよいですか。

  • エクセルマクロの構文

    エクセルマクロに関してご教示いただきたく存じます。 下記の手順を1つのマクロで実行したい場合、どのような構文を書けば実現できますでしょうか？ 前提： ・エクセル中、シート(1)、シート(2)を準備。 ・シート(1)には毎日1日分のデータを入力（例えば、1行目の経費項目、金額、経費支払者　の3カラムヘッダーの下に、2行目から1日分のレコードを入力していく） ・シート(2)には毎日の日別データを累積していく（例えば、シート(1)に1日目で10レコード、2日目で15レコード、3日目で20レコードの場合、3日目終了時に計45レコードにしたい。1行目の経費項目、金額、経費支払者　の3カラムヘッダーはシート(1)と同様） マクロ実行： ・シート(1)に1日目のデータ入力（10レコード）が終わった段階で、ボタンを押し、下記マクロを実行 　(1)シート(1)の10レコード（A2:C11）を、シート(2)のA2:C11にコピー 　(2)シート(1)の10レコード（A2:C11）を、削除（データクリア） ・シート(1)に2日目のデータ入力（15レコード）が終わった段階で、上記と同じボタンを押し、下記のマクロを実行 　(1)シート(1)の15レコード（A2:C16）を、シート(2)のA12:C26にコピー（シート(2)において1日目のデータの次に累積させていく） 　(2)シート(1)の15レコード（A2:C16）を、削除（データクリア） ・シート(1)に3日目のデータ入力（20レコード）が終わった段階で、上記と同じボタンを押し、下記のマクロを実行 　(1)シート(1)の20レコード（A2:C21）を、シート(2)のA27:C46にコピー（シート(2)において1日目のデータの次に累積させていく） 　(2)シート(1)の20レコード（A2:C21）を、削除（データクリア） ・4日目以降、同じボタンでマクロを実行する度に、シート(1)のデータがシート(2)の47行目以降、空白なく追加されていく 以上、皆様のお知恵をお貸しください。

  • Excelマクロについて

    マクロについて質問をさせていただきます。 A1～10にデータが入力されています。 その中である特定の文字が入っている行をシート２にコピー（移動でもかまいません）するようなマクロはどのように作成すればよろしいでしょうか？？ 宜しくお願いいたします。

  • エクセルのマクロを使用して

    マクロ初心者です。 エクセルでマクロを使用して次のようにやりたいんです。 ファイル１の入力画面にあるデータをファイル５０にコピーする。 次にファイル２のデータの入力画面にあるデータをファイル５０にコピーする。 以下ファイル４９までのデータをコピーする。 コピー先のファイル５０は行を変えて各データごとに横に展開する。 【ファイル１～ファイル４９までの書式や行列幅、計算式はすべて同じです。データが違うだけです。】 【ファイル５０ではコピーされたデータを使用して、また別の計算をやります。】 データをコピーするのはなんとなく分かるのですが、行をかえてコピーする方法が分かりません。空白行を上から探して、見つかったらその場所を起点としてコピーすればいいような気がしますが マクロに詳しい方よろしくお願いします。

  • エクセルマクロ？

    いつもお世話になります １、シート「日報」のA５からAAの５まで毎日入力をします 行数は毎日変わります それをコピーして　シート「月間」に　やはり　A5からAA５まで 貼り付けたいんですが ２、シート「日報」は毎日　クリアーし常にA５からAA５です 2日目は、シート「日報」を入力した後、コピーして シート「月間」の最終行を検索してその下の行に貼り付けたいのです それを、毎日繰り返し、月間を完成したいです ３、シート「月間」の最終行を検索する際、エクセルのバージョンが 各店舗違うので、そのあたりも考慮していただきたいです マクロ超初心者です よろしくお願いいたします

  • エクセルVBA初心者です。マクロを組んでください。

    エクセルVBA初心者です。組んで欲しいマクロがあります。 Sheet 1に13桁を入力するセル sheet 2に検索したいデータ 手順としては、 Sheet 1のセルにデータを入力 →13桁以上でマクロが開始(されるように設定します) →Sheet 1のセルと同じ数列をSheet 2の列Aから検索 →該当のセルを含む行をSheet 3にコピー →Sheet 1の入力セルの少し下にもコピー (確認用) というのを一回一回ずつやりたいです。 できれば作業中マウスやキーボードを触りたくないので、そのために、マクロの終わわりには入力セル内の消去、マクロの始まりには確認用でコピーした行の削除もつけて下さい。 検索するSheet 2には同じデータが含まれているので、出来ればひとつずつSheet 3にコピーしたいので組み込んで頂けると幸いです。 よろしくお願いいたします。

  • エクセルマクロ　別シートへ行列を入れ替えてコピペ

    下記内容のエクセルのマクロをご教示いただきたいと存じます。 ①「data」シートのB2からデータが入力されている最終行までをコピー（20行目までデータが入力されていたとすると、B2～B20をコピー。最終行は不定） ②「result」シートのE列のデータが入力されている最終行の次行に①のデータを行列を入れ替えてペースト（E列のデータが19行目まで入力されていたとすると、「E20」セルに①のデータ<この場合だと、「data」シートのB2～B20のデータ>を行列を入れ替えてペースト。「result」シートのE列の最終行は不定）

  • 至急お願いします。エクセルのマクロに関してです。

    かなり至急です＞＜エクセル2010のマクロの質問です。 2つ質問があります。 1つ目です。 以下の一連の作業を1つのマクロで行いたいのですが、どうしたらいいでしょうか？ 現在は、シート1にデータがあります。 (1)選択した3列を、B~D列に移動する (2)B列に含まれるセルのうち、0（空白）でないセル数分だけシートを追加する。 (たとえば、シート1のB14~B18に数字がはいっていたら、シートを5枚追加するという感じです。) (3)B列に含まれるセルのうち、0（空白）でないセル数分に対し、2行ずつ各シートの3・4行目にコピーする。 (たとえば、シート1のB14~B18に数字がはいっていたら、シート2の3・4行にシート1の14・15行のコピーを貼り付け、シート3の3・4行にシート1の15・16行のコピーを貼り付け、シート4の3・4行にシート1の16・17行のコピーの貼り付ける・・・という感じです。) 現在は (1)Sub () Selection.Cut ActiveCell.Columns("A:C").EntireColumn.Select Selection.Cut Columns("B:B").EntireColumn.Select Selection.Insert Shift:=xlToRight End Sub (2) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets.Add Next End Sub (3) Sub Macro() Dim n As Long For n = 14 To 18 ' Sheets("Sheet1").Rows(n & ":" & n + 1).Copy _ Sheets("Sheet" & n - 252).Range("A3") Next End Sub と別々のマクロに分けてます。 また(2)(3)でみられる For n = 14 To 18 ' の部分の数字は手動でいれてますが、かなり時間をくってしまうので・・・。 2つ目です。 複数ブックに同じ動作をするエクセルのマクロが知りたいです。 現在100ほどブック(Book1~100)を開いていて、100のブックすべてのSheet1のA1のセルに「１」と入れたいのですが、 そのようなマクロはどうくんだらよろしいでしょうか。 ちなみにExcel2007です。 困っているので、お願いします。

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

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

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

    エクセルのマクロを教えてください。 今は、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をクリアします。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する