• ベストアンサー

空白のセルに隣の１段したの値を抜き出して入れる

ＶＢＡ初心者です たとえば添付の様な形のＡ，Ｂが空白になっているデータが３００行位 続いている場合Ｂ列の空白にA行の1段下の値を抜き出したいときにどういうＶＢＡが書けるか分かる方ご教授願います。（Ｂ７にはｘｘ、Ｂ１４にはＹＹ、Ｂ１９にはＨＨなどの用に）。

画像を拡大する

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

  • ベストアンサー
  • mar00
  • ベストアンサー率36% (158/430)
回答No.1

３００行位なら Sub Macro1() For i = 2 To Cells(Rows.Count, "B").End(xlUp).Row If Range("A" & i).Value = "" And Range("B" & i).Value = "" Then Range("B" & i) = Range("B" & i).Offset(1, -1).Value End If Next i End Sub でも動作は重くないと思いますが。

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

関連するQ&A

  • A列にある文字データで△△を含むセルの値をB列に□□にして置き換えしたい

    A列に文字データが100行まであります。 　　 A　　　　　　　　　　　B 　　 １　ミカンを食べた　　　　　ZZ ２　イチゴを食べた　　　　　XX ３　西瓜を食べた　　　　　　YY ４　ミカンを捨てた　　　　　ZZ ５　西瓜を拾った　　　　　　YY ６　ミカンを無くした　　　　ZZ ７　西瓜を貰った　　　　　　YY ８　イチゴをあげた　　　　　XX それを表のようにB列（任意の列）に置き換えたいです。 イチゴを含むセルはB列にXXをミカンはZZみたいな感じです。 A列のセルには同じ文字列は（今のところ）含みません。 文字の一部を置き換えて変換し、それを繰り返すところまではできましたが、上記のことがができません。 VBAを使って一発で変換したいのですが教えていただけますでしょうか？

  • 空白セルに自動で値を入れたい

    どなたかご教授賜りたく・・・。 エクセルの表（具体的にはピボットテーブルをコピーして値を貼り付けた）で、列ごとで値と空欄のセルが混在しています。 基本的に空白はその列の直近の上の値が入ります。 １行空欄ならそのすぐ上の値、２行空欄があってもやはり上の直近の値が入ります。 例） 　　　A １　○○○　　 ２ ３　○△○ ４　 ５　 　　　↓ 　　　A １　○○○　　 ２　○○○ ３　○△○ ４　○△○ ５　○△○ という風にしたいのです。 現在、オートフィルタで空白だけをソートして、Ctrl+Dをひたすら押し続けて上の値をコピーしていますが、数百行もあれば手の指が疲労して硬直してしまいます。 関数を使って自動で入れる方法はありませんでしょうか？

  • ExcelVBAで数式の空白を返さないようにするに

    例えば、A1～A10にある値があり、B1～B10に条件があえば上から順に参照される表があるとします。(もし条件の合う値が3つあれば、B1～B3にA列の値を表示します。あわない場合は（""）で空白を返します。) この場合、VBAでB列の空白を省いた最終行を取得したいのですが、 = Range("B1").End(xlDown).Row でやると、空白でも数式が入っていたら返してしまうので困っています。 何か良い方法はないでしょうか。

  • Exceで入力した値を段を変えて並べて塗りつぶす

    添付図のように、A1に入力した値分B1から塗りつぶす 段が変わって、A2に入力した値分、1段目の塗りつぶされた次の行から塗りつぶすといったデータを作りたいのですが どうすればよろしいでしょうか？ 初心者なので簡単な事かもしれませんが教えてください

  • エクセル2003マクロvba名前の定義

    excelエクセル2003のvbaの質問です yy列の最下行をxxとします yy列の名前の定義を馬とします zz列の名前の定義を肉とします 列番号・行番号を用いず、肉2行目から肉xx行目までオートフィル するマクロの構文を教えてください xxの値は変動するのでxxの値を取得する形にしてください dimとか使わず１行で収まる構文でお願いします

  • Excelで空白セルをつめて表示させたい

    お世話になります。 Excelの操作について教えてください。 　　　　A列　　B列 １行　　３ ２行　　　　　　　２ ３行　　５ ４行　　４　　　　１ 　　　　　↓ 　　　　A列　　B列 １行　　３　　　　２ ２行　　５　　　　１ ３行　　４ ４行 と、空白でないのセルだけを、上に詰めて別のシートに表示させたいです。 出来れば関数を使って行いたいです。 いくつか同じような質問があったのですが、なかなかうまくいきません。 どなたか、ご教授下さい。

  • EXCELで式での空白セルの挿入方法

    Ａ列は空白行で、Ｂ列は数値が入っていたり空白だったりする行で構成されています。 またＣ列からＤ列までの全ての行には数値が入っています。 この時Ａ列に条件付き数式を入力して、Ｂ列が空白でなければＢ列に空白セルを挿入して現Ｂ列からＤ列を右にシフトさせたいのですが、数式で可能でしょうか？ 数式で可能ならばＡ列に入力する式を、不可能なら参考のためＶＢＡでの記述をお教え頂けると嬉しいです。（ＶＢＡはあまり理解しておりませんが。） 例 【処理前】 Ａ列　Ｂ列　Ｃ列　Ｄ列　Ｅ列 　　　　22　　　33　　44 　　　　　　　　 55　　66 　　　　77　　　88　　99 　　　　　　　 100　　101 【処理後】 Ａ列　Ｂ列　Ｃ列　Ｄ列　Ｅ列 式　　　　　　　22　　33　　44 式　　　　　　　55　　66 式　　　　　　　77　　88　　99 式　　　　　　100　　101 ２万行の処理を１回のみしたいです。 宜しくお願いします。

  • VBAでセルに値が入ったときにイベントを起こしたい

    VBAでタイトルのことをやりたいのですがどうやったらいいのか全く思いつきません。どなたかヒントをいただけないでしょうか？ B列の１０行目から2000行までの間限定で、5行ごとのセルに値を入れたときに動くようにしたいんです。 例としてB10に値が入ったらA10から下に連番をふります。（１から５） B15に値が入ったらその続きを入れたいんです（６から１０） どのようにしたらいいでしょうか？

  • 【エクセル】歯抜けの空白欄に上段と同じ値を入れたい

    エクセル（2010）で ある表に ところどころ空欄があり、 そこに上段と同じ値を入れたいです。 随時発生する作業のため マクロ（もしくはVBA）が組めればと考えておりますが、 初心者につき、ご教示いただけますでしょうか。 A列：項番 B列：大項目 C列：中項目 D列：小項目 E列：備考 ※1行目：項目名、2行目以降：値 という表で、 A列のナンバリング・D列の小項目 以外は 上と同じ扱いとなるため空欄となってしまっていますが、 アクセス（DB）に取り込むため、空欄の無い形にしたいのです。 ※ちなみに、A列・D列は空欄が無い状態＝最終行以下は空白です。 よろしくお願い致します。

  • 空白のセルのカウントについて

    インターネット等で色々検索したのですが、うまく回答が導き出せなかったのでこちらで質問させていただきます。 添付したような表があるとき、B列にある空白のセルを都道府県別にカウントするにはどのようにしたら良いか教えてください。 例には都道府県を使用しましたが、実際には1000行を超えるデータとなりA列には同じ値が入力されます。 結果として 北海道：1 愛知：2 東京：2 福岡：0 というような答え導き出す方法を教えてください。 よろしくお願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する