• ベストアンサー

エクセルVBA　データの追加

VBA初心者です。いろいろ検索したのですが、うまく見つかりませんでした。 B2からF2までのデータを、B列の空欄セル（値が入っている最終行の次）に貼り付ける場合にはどうすればいいでしょうか。 例えば、B6までデータが入っていてる場合は、B7からF７までにB2からF2までのデータが値のみ入るという感じです。 よろしくお願い致します。

回答 全件
ベストアンサー
＞（値が入っている最終行の次）に貼り付ける どこにでも出てきますが …

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

  • ベストアンサー
  • keithin
  • ベストアンサー率66% (5278/7940)
回答No.1

＞（値が入っている最終行の次）に貼り付ける どこにでも出てきますが sub macro1() 　range("B2:F2").copy destination:=range("B65536").end(xlup).offset(1) end sub などのように。 ＞B2からF2までのデータが値のみ入る マクロ以前、コピー貼り付けと値のみ貼り付けじゃまったく別の作業なので、ごっちゃにしちゃ困ります。 sub macro2() 　range("B65536").end(xlup).offset(1).resize(1, 5).value = range("B2:F2").value end sub

yuu1236
質問者

お礼

ありがとうございます

全文を見る
すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. パソコン・スマートフォン
  3. ソフトウェア
  4. Excel（エクセル）

関連するQ&A

  • エクセルVBAについて

    エクセルVBAについての質問です。A１、B1と順に入力していき、最終 F１列にカーソルがいったときに（F1を空欄のまま）エンターキーを押すと次の行のD２にカーソルが飛ぶ、そしてD2、E2に入力をして、G列にカーソルを動かしエンターキーで次の行のA列にカーソルが移動する、こんな操作をしたいのですが。つまりF列にカーソルがいったらカーソルは次の行のD列に飛び、G列にカーソルがいったら次の行の先頭つまりA列にカーソルが移動するように。VBA初心者でもつくれるかどうか、よろしくお願いします。

  • エクセルのＶＢＡで

    ある列（仮にＡ列とします）の最終行がＡ３０であり Ａ２５までは空白だとします。 この時に、Ａ３０の値をＡ２９～Ａ２５＝データの入力されていないセルに入力（コピー）するにはＶＢＡでどのように記述すればいいのでしょうか？ 最終行から、上にその最終行の値をデータの入力されているセルに達するまで入力（コピー）したいのですが。 分りづらい表現で申し訳ありませんが、よろしくお願い致します。

  • Excel VBAによる検索処理？

    Excelで以下の例のように、A列・B列に入力されているとします。A列を検索して、C列にB列の値を返す式を考えてますが、さっぱりわかりません。VBAとかも正直素人ですが、サンプルもしくは考え方を教えていただければと思います。以下の処理内容です。 ・AXセルが「B」であった場合、次のセル(A(X+1))を検索し、次が空白になるまで検索し、空白になる前の最後の行のB列の値をCXセルに返す。該当しない場合は空白のまま 下記の例ですと３行目、８行目のB列の値を２・３、６－８行目のC列のセルに返すことになります。よろしくお願いいたします。 （処理前) ___A__B__C ------------- 1 2__B__2 3__B__3 4______4 5______5 6__B__6 7__B__7 8__B__8 9______9 （処理後) ___A__B__C ------------- 1 2__B__2__3 3__B__3__3 4______4 5______5 6__B__6__8 7__B__7__8 8__B__8__8 9______9

  • エクセルVBAでデータ検索（Win2000,Excel2000）

    エクセルで毎日の業務で手計算している作業をVBAコードかいて試しているのですが、縦と横の検索で行き詰まってしまい質問しました。どうぞよろしくお願いします。 ＿A＿＿B＿＿＿＿C＿＿＿＿D＿＿E＿＿F＿＿＿G＿＿＿H 1| 2|＿＿＿＿＿＿＿その他＿1～3＿4～6＿7～10＿11～20＿21～30 3| 3|＿＿項目A＿＿＿ 0＿＿＿50＿＿49＿＿46＿＿＿43＿＿40 4|＿＿項目B＿＿＿ 0＿＿＿45＿＿44＿＿39＿＿＿37＿＿34 5|＿＿項目C＿＿＿ 0＿＿＿43＿＿42＿＿34＿＿＿30＿＿ 28 行 *このデータは現在（B3:V42）にあり今後増える可能性あり *1行目とA列は空白です。 *2行目とB列は対応する項目です。 *3行目は関係ない値が入っています（データをつくる為の値） このようなデータが、"Sheet2"にあると仮定します "Sheet1"のシート上に配置したComboBox(コントロールツールボックスの)に検索値があります。 （ComboBox1 → 数値 , ComboBox2 → 数値 , ComboBox3 → 文字）*リストは"Sheet1"に登録してあります。 TextBox1 ÷ 2 の結果を小数点以下切上げし、これにTextBox2の値をかけたもの(仮にAAAとする)が、2列目のそれぞれのセルの数値範囲に対応し、TextBox3の文字列がB列に対応し、両検索結果の交わったセルの値を返すようにしたい。 例）もしAAAが「8」なら「F列」をみる。TextBox3 の文字列が「項目B」なら「4行目」をみる。この結果、交わったセルは「F4」なので、「F4」にある値「39」を"Sheet1"."A1"に返す。 また、これらコンボボックス（このシートとは別にテキストボックスを使うこともある）にはひとつずつchangeイベントでいきなり別シート("Sheet3")に書くコードが既に書いてあります。このセルから取り出すことも可能です。よろしくお願いします。

  • エクセルでデータ並べ替えをおこないたいです。

    イメージですがＣ列とＦ列を比較して 同じ値だったら同じ行に並べる。F列でデータの無いところの行は削除する。 最終結果のようなものがほしいです。実際データは１０００行以上ありセルのデータも ５０文字くらい有ります。

  • エクセルVBAのコードの書き方を教えてください

    エクセルVBAの初心者です。 下記①-⑲のようなコードを書きたいのですが、どなたかお分かりになる方がいましたら、 ご教示いただけますと幸いです。 ①　オートフィルターでシート[list]のA列に"●"がある特定の行だけを以下作業の対象にしたい ②　①で特定した行のE列セルの値を、シート[output]のB9セルにコピペする ③　①で特定した行のF列セルの値を、シート[output]のB12セルにコピペする ④　①で特定した行のG列セルの値を、シート[output]のB15セルにコピペする ⑤　①で特定した行のH列セルの値を、シート[output]のB18セルにコピペする ⑥　①で特定した行のI列セルの値を、シート[output]のB21セルにコピペする ⑦　①で特定した行のJ列セルの値を、シート[output]のB24セルにコピペする ⑧　①で特定した行のK列セルの値を、シート[output]のB27セルにコピペする ⑨　①で特定した行のL列セルの値を、シート[output]のB30セルにコピペする ⑩　①で特定した行のM列セルの値を、シート[output]のB33セルにコピペする ⑪　①で特定した行のN列セルの値を、シート[output]のB36セルにコピペする ⑫　①で特定した行のO列セルの値を、シート[output]のB39セルにコピペする ⑬　①で特定した行のP列セルの値を、シート[output]のB42セルにコピペする ⑭　①で特定した行のQ列セルの値を、シート[output]のB45セルにコピペする ⑮　①で特定した行のR列セルの値を、シート[output]のB48セルにコピペする ⑯　①で特定した行のS列セルの値を、シート[output]のB51セルにコピペする ⑰　①で特定した行のT列セルの値を、シート[output]のB54セルにコピペする ⑱　①で特定した行のU列セルの値を、シート[output]のB57セルにコピペする ⑲　シート[output]のB3：B59をテキストファイルを呼び出してコピペする ※このとき、上記②-⑱で記述したB9からB57のセルには改行が含まれる場合が 　あるため、テキストファイルへのペースト時に""が表示されてしまうが、 　もし可能であれば、この""が表示されないようにしたい。

  • エクセルVBAでセル選択

    エクセル2000でリストを作成し、ＶＢＡで編集しようとしています。 Ａ列に入力されているコードの先頭に「’」をつけて文字列とするための関数をＢ２のセルからＡ列のデータが入力されている最後のセルの隣までコピーしたいと思っています。 Ａ列の最終セルを取得するＶＢＡは分かったのですが、その値をＢ列の選択範囲として使用する方法がわかりません。 エクセルＶＢＡは全くの初心者です。 どなたか教えてください！

  • EXCEL VBA における個数のカウント方法について

    すいませんEXCEL　VBAについて質問があります。 　　　　A列　　 1行　　みかん 2行　　みかん 3行　　(空欄) 4行　　みかん 5行　　ぶどう 6行　　みかん 7行　　みかん 8行　　ぶどう 9行　　(空欄) ・ ・ 50行 A列は「みかん」若しくは「ぶどう」の値又は空欄のいずれかになっている。 空欄は無視して（1行～4行はみかんが３つ連続で並んだと考える）、 50 行までの間に「みかん」が最大で何回連続で並んだかを調べ、その最大の値をB1セルに入れる。 これをVBAで処理するにはどうしたらいいのでしょうか。 For ～NextとIfで条件分岐 というような形になるのかなと思ったのですが どうしても思い浮かびません。 どうぞよろしくお願いします。

  • エクセルでVBAのマクロを組みたい

    VBA初心者です。エクセルで大量の情報があるとき、A列の文字列が”****”であって、さらにB列の文字列が”++++”であるときの、C列の値を検索したい。それを1行目から最下行まで行いたい場合、どのようなプログラムになりますか、教えてください。よろしくお願いします。

  • エクセルデータの並べ替えに関して

    エクセルデータの並べ替えに関して Ａ列からＨ列まで数値が入っていて、それが8,000行くらいあります。(毎回変動します。) Ａ1からＨ8000くらいのセルに値が入っています。 エクセルを縦長に使用しているので、このまま印刷をすると印刷面の右側半分以上が空白に なってしまいます。 マクロを利用して、これらの値を96行ごとに２列分けたいと思っていますが、どうやったら 良いか、教えていただけないでしょうか。 （マクロ実行前）-------------- 　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ １ 1 2 3 4 5 6 7 8　 ２ 2 3 4 5 6 7 8 9 ３ 3 4 5 6 7 8 9 10 ４ 4 5 6 7 8 9 10 11 ・・・・・・ ---------------------------- のように下方向に数字が並んでいる場合、マクロを実行したら 次のようにしたいと思っています。 （マクロ実行後）-------------- 　Ａ　Ｂ　Ｃ　Ｄ　Ｅ　Ｆ　Ｇ　Ｈ　（Ｉ）　Ｊ　Ｋ　Ｌ　Ｍ　Ｎ　Ｏ　Ｐ　Ｑ １ 1 2 3 4 5 6 7 8（１行空き）97 98 99 100 101 102 103 104 ２ 2 3 4 5 6 7 8 9（１行空き）98 99 100 101 102 103 104 105 ３ 3 4 5 6 7 8 9 10（１行空き）99 100 101 102 103 104 105 ４ 4 5 6 7 8 9 10 11（１行空き）100 101 102 103 104 105 106 ・・・ ９６ 96 97 98 99 100 101 102 103（１行空き）192 193 194 195 196 197 198 199 ９７ 193 194 195 196 197 198 199 200（１行空き）289 290 291 292 293 294 295 296 ・・・・・・ ---------------------------- (1)A1からH96までを切り取って、J1に貼り付ける。 (2)「(1)」で切り取って出来た空欄を削除して上方向にシフトする。 (3)A97からH192までを切り取って、J97に貼り付ける。 (4)「(2)」で切り取って出来た空欄を削除して上方向にシフトする。 といった操作を「切り取って出来た空欄を削除して上方向にシフトする。」という操作を しようとしたら上方向にシフトするデータがなくなるところまで続けたいと 思っています。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する