• ベストアンサー

Excel で位置が変動するセルの指定をVBAで作りたいのですが・・・?

keirikaの回答

  • keirika
  • ベストアンサー率42% (279/658)
回答No.2

仮に1つ目の表がA1セルから開始するとします。 まず、表1を貼り付けた後、1行あけた次のセルを選択する場合は Range("a1").End(xlDown).Offset(2, 0).Select さらに表2を貼り付け、1行あけるには ActiveCell.End(xlDown).Offset(2, 0).Select 次に表3を貼り付けと続きます。 ただし条件として、左端のデータに空白が無いことが前提となります。 また、この場合表を縦一列に並べることになりますので、 任意の位置に貼り付ける場合は、さらに工夫が必要になります。

aine1225
質問者

お礼

 今回は、本当にありがとうございました。  分かりにくい質問にご回答いただきまして、すごく参考に  させていただきました。  また、よいアドバイスをお願いいたします。  ありがとうございました。

関連するQ&A

  • エクセルVBA 指定したセルの行を指定したい

    エクセルVBAで、指定したセルの行をコピーして、コピーしたセルの挿入をしたいです。 どのような文章で、書けばいいでしょうか;; よろしくお願いいたします

  • VBAでのセル範囲指定について

    お世話になります。 私が分からないのは、VBAでのセル範囲指定なのですが、 例えば、シートにデータが有、そのデータの1行目は見出しなので 2行目からデータが入っているセルまでの範囲を指定、コピーして 隣のシートに貼付したいのですが、そのデータの入力される範囲が 毎回違います。「CurrentRegion.Select」としてしまうと、1行目 の見出しまでも範囲指定されてしますので、どうやったら良いのか どなたかお教え頂きたく宜しくお願い申し上げます。

  • Excel VBA セルの指定方法について

    Excell2013です。 次のような表(一部)があります。   日   項目      額       分類   12 ノート 250 3 この、250を、別表の分類3の列(H列)の12日の行(15行)のセルに、そこにすでに値があれば250との合計値として入力したいのです。 データによって日付も分類も違いますので、マクロで自動的に入力したいのですが、どうもよくわかりません。 このような場合のVBAでの入力先セルの指定のしかたをどうすればよいのかどなたかご教示ください。

  • エクセルVBA 一番端のセルの求め方について

    エクセル2003VBAを使ったプログラミングをしています。 シートにデータが入っていますが途中入っていないセルが多々ある状況です。 このような場合、 1.データの入っている一番したの行の行番号を取り出す方法 2.ある行で一番右側でデータの入っているセルの位置を取り出す方法 はありますでしょうか? データが続いている(空の行等がない)場合は Range("A1").CurrentRegion.rows.Count で出せることはわかっているのですが、違う表のようにデータがあちこちにあるという状況です。 何かいい方法がありましたら教えてください。 よろしくお願いいたします。

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

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

  • Excelセル座標値の渡し方

    VBAの初心者です。 Excelでアクティブセルの座標値を取り出して、マクロの中で、その行全体、あるいは列全体を指定して挿入や削除をさせたいのですが、どうしたらよいのでしょうか。教えて下さい。よろしくお願いします。 (例)アクティブセルが C7 であるとき、Rows("7:7") に1行挿入する。 Sub 行挿入() 'セル座標値を読み取ってその行全体を指定するデータの渡し方????? Rows("7:7").Select Selection.Insert Shift:=xlDown End Sub

  • EXCELで指定したセル位置にジャンプ

     EXCELの同じワークシート内で指定したセル位置にジャンプ出来るような設定がしたいのですが マクロではなく、ハイパーリンクをクリックすれば指定のセルに飛ぶイメージです。 EXCELにお詳しい方お教えください。

  • エクセルVBA 任意のセルの指定について

    流れ的には、 マクロ発動→セルをクリック→選んだセルの行の挿入 ここで悩んでいるのは マクロ発動後にセルを選べるか?という事と、選んだセルの挿入は行で行いたいということ、マクロの構文が思いつかないことの3点です。 なにとぞよろしくお願いいたします。

  • エクセルで指定したセルがある条件になると指定したマクロが起動

    エクセルで指定したセルがある条件になると指定したマクロが起動 エクセルでシート1のセルB5の値が、文字の種類に限らず、 5ケタ以上になったら指定したマクロを起動させるように 出来ますでしょうか?

  • エクセルのコマンドボタンの位置をVBAで指定できませんか?

    エクセルのコマンドボタンの位置をVBAで指定できませんか? 表にコマンドボタンがかぶらないようにデータのない最終行にコマンドボタンを移動する VBAを教えていただけませんか? 最終列に移動するVBAも合わせて教えてください。