Excel VBAで指定場所の検索と文字の入力を繰り返す方法

前へ 次へ
このQ&Aのポイント
  • Excel VBAを使用して、指定された場所（B2からE2）を検索し、入力されている文字があれば一段下に移動して同じ列を検索します。
  • その後、2行目から9行目までを繰り返し処理し、空白の場合はC列の検索した行に文字を入力します。
  • ExcelのVBAを使用して、指定された場所の検索と文字の入力を繰り返す方法について教えてください。
回答を見る
  • ベストアンサー

エクセル　VBA

XP　microsoft visual basic 6.0　を使い下記のことをやろうと考えたのですがダメでした やりたいことです　　　　　　　　　　　　　　　　　　補足です 指定場所の検索　　　　　 　　　　　 　　　　　　（B2からE2）※１ 文字が入力されていれば 　　　　　　　　　 　（入力されている文字は不定） 一段下に移動して※１と同じ列を検索　　　（B3からE3） 繰り返し　　　　　　　　　　　　　　　　　　　　　　（繰り返しは2行目から9行目まで）　　 空白であれば文字を入力　　　　　　　　　　　（入力場所はC列の検索した行。9行目までに空白がなければ何もしない） ご教授ください お願いします

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

  • ベストアンサー
  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.3

回答Ｎｏ１です。 Cells(i,3)="空白の行" の次にExit ForまたはExit Sub　を入れることで最初の空白の行だけで操作は終了します。 For i = 2 To 9 If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), ">*") = 0 Then '文字列が入力されているかどうかを調べます '文字列及び数値が入力されているかどうかを調べるとしたら 'If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), ">*") + WorksheetFunction.Count(Range(Cells(i, 2), Cells(i, 5))) = 0 Then Cells(i, 3) = "空白の行" Exit For End If Next

r576135768
質問者

お礼

一言付け加えれば出来たんですね Exit For を知らず Do ～ loop Until を用い試行錯誤してました こちらの方がずっとスマートなので教えていただいたものを利用させていただきます 度々ありがとうございました

その他の回答 (2)

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.2

回答1です。 If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), "*") = 0 Then ここで"*"では式が入力されて空白の場合にもカウントされますので、">*"とするのがよいでしょう。

r576135768
質問者

補足

返答が遅れてすみません 質問に対する完璧な回答ありがとうございました しかし私の伝え損ねで想像していたものと少し違う仕様となってしまいました こちらの不備を修正すべく手を加えようとしたのですが完成させられませんでした もしよろしければ 　「上から順に検索し、書き込みをしたらそこで処理を終了。」　　（例えば４行目が空白であればそこに書き込み、５行目以降の空白には書き込まない） を付け加えてはいただけないでしょうか よろしくお願いします

  • KURUMITO
  • ベストアンサー率42% (1835/4283)
回答No.1

次のようなマクロでどうでしょう。 For i = 2 To 9 If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), "*") = 0 Then '文字列が入力されているかどうかを調べます '文字列及び数値が入力されているかどうかを調べるとしたら 'If WorksheetFunction.CountIf(Range(Cells(i, 2), Cells(i, 5)), "*") + WorksheetFunction.Count(Range(Cells(i, 2), Cells(i, 5))) = 0 Then Cells(i, 3) = "空白の行" End If Next

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

関連するQ&A

  • エクセル　マクロ　ＶＢＡ

    エクセルのマクロについて質問です。 『集計』というブックの『集計開始』というシートに 　　　　Ａ列　　　　Ｂ列　　　　　Ｃ列 １行目　見出し　　見出し　 　見出し　 　　　　（商品名）　 （支店）　　（個数） 　 　　　　　 ２行目　コメント　 空白　　　　　空白 　 ３行目　空白　　　空白　　　　　空白 ４行目　商品名　　支店　　　　　個数　 ５行目　空白　　　空白　　　　　空白 ６行目　空白　　　空白　　　コメント１ ７行目　空白　　　空白　　　　　空白 ８行目　空白　　　空白　　　コメント２ ９行目以降　　　　上記のデータ（見出しを除く）の繰り返し というデータが入っています。 Ｂ列の中に『ＡＡＡ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 Ｃ列の中に『Ｂ』という文字が含まれていたら、そのセルを空白に置換し、 含まれていなかったら、そこで処理がとまったりエラーが出たりしないで次のステッップへ進み、 （今は、手作業で編集→置換→検索する文字列の中に『Ｂ*』と入力し、 置換後の文字列を空白にしてすべて置換ということをやっています。） 　　　　　　　　　　　　　　　　　　　　　　　　　　 ＡＢＣ列（データーの入っている行まで）の空白を含む行を一括削除し、 以下のような形にしたいのです。 　　　　Ａ列　　　　Ｂ列　　　　　Ｃ列 １行目　見出し　　見出し　 　見出し　 　　　　（商品名）　 （支店）　　（個数） 　 　　　　　 ２行目　商品名　　支店　　　　　個数　 ３行目　商品名　　支店　　　　　個数　 　　　　　　　　・ 　　　　　　　　・ このようにするマクロ文はどのようになりますでしょうか？

  • エクセルVBA及び関数

    初心者です。お教えお願いします エクセル2003です 空白行及び0をなくしたいのですが（C列を入力された時点で自動でE列のようにしたい） 関数の場合及びVBAのシートコードを両方教えていただけないでしょうか VBAのコードは勉強の為です Sheet1 　　　A　　　　B　　　　　C　　　　　D　　　　　E　　　　　F 16　　　　　　　　　　文字A　　　　　　　　文字A 17　　　　　　　　　　文字B　　　　　　　　文字B 18　　　　　　　　　　　　0　　　　　　　　　文字C 19　　　　　　　　　　文字C　　　　　　　　文字D 20　　　　　　　　　　　　0　　　　　　　　　文字E 21　　　　　　　　　　文字D　　　　　　　　文字F　　　　　 22　　　　　 23　　　　　　　　　　文字E 24 25　　　　　　　　　　文字F 文字はC16～C80まで入っております B16～E80までのセルのみで行いたいのですが 他の場所は関数やグラフ等がすでに入ってますのでいじりたくありません E16～をフォームのコンボボックスのリストにしようと思ってます よろしくお願いましす

  • エクセルVBAのヒントをください

    エクセルのある列に、文字列が入っているとします。 たとえば、Aであったり、Cであったり、A,C,Fとカンマ区切りで複数の文字列（個数は不定） が入っていたりします。 このとき、一行に一つの文字列しか含まないように、カンマで区切られた文字列を展開し、 複数行に分けて格納したいと思っています。 たとえば、一番上の行のセルにA、二番目の行に「C,D,A」、三番目の行にB、四番目の行に 「E,A」と入っていたら、各行に一文字列のみ入るように、上からA、Ｃ、D、A、Ｂ、E、Aという行を 作りたいと思います。各セルに含まれる文字列の個数は不定で、規則性はありません。 基本的に、 (1)各セルに含まれているカンマの数を調べる (2)カンマの数だけ次の処理を繰り返す 　・行挿入 　　・最初のカンマの位置を調べる 　　・先頭からカンマまでを切り取る 　　・上記の値をセルに入力 　・行挿入 　　・2番目のカンマの位置を調べる 　　・1番目のカンマの位置＋１から2番目のカンマの位置まで切り取る 　　・上記の値をセルに入力 上記をカンマの数だけ繰り返す。 といった具合にしていくのだと思いますが、このような処理をするのに はどの程度のVBAのスキルが必要ですか？ 上記のヒントや、参考になるサイト、書籍があればご教授ください。

  • エクセルVBAで指定範囲をしたい

    今、シート上である文字列を検索してそれを別のシートに転記させる簡単なツールを作っています。 そこでシート丸ごと　検索するのは大変なので、行と列を指定範囲するように入力するようにしました。 例： [列]→ A [行]→ 10 入力した列の値を数値に変換したいのですが、どうすればよいのでしょうか？ 例えば Aであれば1, Bであれば2・・・　Zであれば25　のようにしたいのです。

  • エクセルでの連番の処理

    お世話になります。 １行目に入力されたデータをルールに沿って２行目以下にどんどん追加していきたいと思っています。 まずD1、E1のセルに数字を入れます。 例：D1に3、E1に25　を入れてマクロを実行するとD列の2行目以下に3,4,5,6…25と連番で入力出来るようにしたいのです。 この例ではD列は24行目まで入力されています。そこで2行目から24行目までのＡ，Ｂ，Ｃ列にはそれぞれ１行目のＡ，Ｂ，Ｃ列と同じデータを入力します。なおＡ，Ｂ，Ｃ列は数字、文字列どちらもあります。空白の場合もあります。 この状態でＡ～Ｅ列の１行目のデータを変更し、仮にD1を2、E1を15としたとします。ここで再度マクロを実行すればD25に2、そして順に連番が入りD38に15が入るようにします。 同時に２５行目から３８行目までのＡ，Ｂ，Ｃ列にはそれぞれ１行目のＡ，Ｂ，Ｃ列と同じデータを入力します。 これの繰り返しです。 つまり２行目以下のＤ列で空白の行以下にどんどん連番を入れていく具合です。 前提としてD1、E1は整数しか入りません。またE1の数字はD1より大きいです。ただD1,E1に同じ数字が入った場合、その数字の１行分だけが入力されるようにします。 以上の処理が自動化できるマクロはできますか？ アドバイス願います。

  • Excel VLOOKUPで複数の関数

    どなたかわかる方教えて下さい！！ わかりにくい説明かと思いますが、よろしくお願い致します。 Aシートにコードが入力されています。 Bシートにコード、文字列、数値が入力されています。 AシートのコードでVLOOKUPを使い、Bシートから数値を呼ぶことはできるのですが、 数値が空白の場合は、空白にする。B列の文字も検索したい場合はどのようにすればよろしいでしょうか？ 例 Aシートには、コード００１が入っています。 Bシートから、コード００１、「あ」の行を検索し、数値をもってきて、空白の場合は空白にしたいです。 　　　　A列　　　B列　　　C列　　　D列 1行　　００１　　　あ　　　１０　　　空白 2行　　００１　　　い　　　２０　　　３０ 3行　　００２　　　あ　　　３０　　　空白

  • エクセルVBA/抽出・貼付け

    下記を行いたいのですが、どのようなコードになるのでしょうか？ シート001（入力用） (1)A1～A50、B1～B50、C1～C50、D1～D50 　に数値、E1～E50に文字列 (2)F1～F50、G1～G50、H1～H50、I1～I50 　に数値、J1～J50に文字列 ※空白行混在 シート002（計算用） シート001に作ったコマンドボタン：クリックにより、 シート002を表示させ、A1～E100に、 シート(1)のA1～E50とF1～J50の空白行以外を連続して 反映させたい。並べ替え用など別シートを用いずに、 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

  • Excel VBAの繰り返し構文について

    A列に日付、B列に曜日、C列に休、D列に1直、E列に2直、という形の年間シフトを作成しています。 初期値としてA2セルに数字を入力→C列が空白の時だけD列に記入するマクロを作成したと思っています。 現在仮として、 Sub C列のセルが空白の行のD列に数値を入力() 下端行 = Range("A" & Rows.Count).End(xlUp).Row '下端検出 For 行 = 3 To 下端行 '1行目から下端行まで1行ずつ繰り返す If Range("C" & 行).Value = "" Then 'その行のC列のセルの値が空白の時 Range("A2").Copy 'A2をコピーする Range("D" & 行).PasteSpecial Paste:=xlPasteFormulas 'その行のA列のセルを起点に 'して数式を貼り付ける End If Next End Sub というマクロを置いていますが、「Range("A2").Copy」の部分を 「A2を初期値として、最初にC列が空白でなくなる時まで初期値を繰り返し、次にC列が空白になった場合は初期値+1の数をD列に入力する。 ただし初期値+1の最大数は6までとする（要するに1～6の繰り返しです）」 という感じに変更したいのですが、どうすればいいのかさっぱりです…。 VBAレベルはこの質問をする程度なのでかなり初級です。

  • ExcelのVBAで連番を振る。

    A列が空白で、B列に1行目から***行目（毎回変わる）までデータが入力されている時、 A列に、1から***まで（Ｂ列のデータが終わるまで、連番を振るにはどんなVBAを かいたらいいのでしょうか？ お願いします。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する