• ベストアンサー

エクセル　VBA

エクセル　VBA 指定セルがNULLじゃない場合、セルを横に1つずつずらしていきNULLのセルで抜けるVBを作りたいです。 Do Until IｓNull？？？？ loop

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

  • ベストアンサー
  • kmetu
  • ベストアンサー率41% (562/1346)
回答No.1

i = 1 Do While Cells(1, i).Value <> "" Debug.Print Cells(1, i).Value i = i + 1 Loop のような感じでいかがですか

shindoi
質問者

お礼

対象文字と不一致の場合セル位置をずらすVBを作りできました Do Until Cells(2, y).Value = "対象文字" y = y + 1 Loop

その他の回答 (1)

  • ziziwa1130
  • ベストアンサー率21% (329/1547)
回答No.2

一例です。 While ActiveCell.Value <> Empty ActiveCell.Offset(0, 1).Select Wend

shindoi
質問者

お礼

対象文字と不一致の場合セル位置をずらすVBを作りできました Do Until Cells(2, y).Value = "対象文字" y = y + 1 Loop

  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

  • 【VB】セルが空になるまで処理を繰り返したい

    Excel VBAを使用してです。 列Ａにデータがずらっと入っています。 そのデータを列Ｂに、 Do while ～loop　か　Do until ～loopを使って データが無くなるまでコピーするという処理を書きたいのです。 VB歴が浅いためひらめきません。よろしくお願いします。m(__)m

  • エクセル　VBA do loop if then

    いつもお世話になっております。 エクセルVBAからの質問です。 do until ----- if --- then ---- ---- ---- loop else --- loop このように　loop　とか　next　が二個になるのはエラーらしいですが、 ○○があれば××を通して△△へループする ○○がなければ、すっ飛ばして△△へループする このような分岐をともなう繰り返しコードはどうやって作るとよろしいですか。 おっさんサラリーマンにも分かりやすくぷりーず。

  • エクセルVBAでの関数

    下記、コードでセルに関数を入れるようにしてるのですが 関数で得られた値をセルに反映されるようにしたいのですが Dimを使用してもどう指定してよいのかわからず苦戦しております。 宜しくお願い致します。 Range("F1").Select Do Until ActiveCell.Offset(0, -1).Value = "" 　　　　　　With ActiveCell .FormulaR1C1 = "=MID(RC[-1],2,3)" .Offset(1, 0).Select End With Loop Range("A1").Select Do Until ActiveCell.Offset(0, 2).Value = "" With ActiveCell .FormulaR1C1 = "=RC[11]&RC[5]&Rc[8]&rc[9]&rc[3]" .Offset(1, 0).Select End With Loop

  • ExcelのVBAについて教えてください

    ワークシートの1行目から、任意の行数（行数は毎回違う）を削除する方法を教えてください。 E1から下に見にいって空白でないセルが現れたら、 そのひとつ上の行までを削除する。 Range("E1").Select Do Until ActiveCell = "" If ActiveCell = "" Then Selection.Offset(-1).Select Loop ここまでできましたが、続きがわかりません。 よろしくお願いします。 あとVBAのコードについて詳しく載っているURLを ご存知でしたら教えてください。 よろしくお願いします。

  • Excel　VBAで、セルに入ってるデータ型を調べる方法は？

    現在、Excel　VBAでプログラムを作成しています。 Do Until　～　Loop　の終了条件を アクティブセルに入っているデータの型が文字列型の時 としたいのですが、そのようなことは可能なのでしょうか？ 可能だとしたら、どのように記述したらいいのでしょうか？ 当方のPCは Win XP、Excel2003 です。 よろしくお願いいたします。

  • Ｅｘｃｅｌ　ＶＢＡ　時刻でのDo～Loopの抜け方

    いつもお世話になっております。 Ｅｘｃｅｌ　ＶＢＡ　時刻でのDo～Loopの抜け方を教えてください。 下記のような記述で、時刻（時間）の条件を満たした時 ループを抜けるように設定したのですが、 時刻が「８時」とか「１５時」というように 時間でしか対応しません。 「何時何分」という設定にも対応するためには どのように記述すればよいか教えてください -------の部分は何らかの記述が入っているものとしてください。 ↓このように記述しました Do Until MyHour > 15 MyHour = Hour(Now) ------------------- -------------------- -------------------- Loop どうぞ、よろしくお願いします。

  • 簡単なエクセルＶＢＡ

    最近エクセルのＶＢＡを勉強し始めたのですが、 1×1＝1 1×2＝2 1×3＝3 　・ 　・ 9×9＝81 と出るようにしたいのですが、 Sub kuku() Do While i < 9 i = i + 1 　　Do While j < 9 　　j = j + 1 　　a = i * j 　　Debug.Print i; "×"; j; "="; a 　　Loop Loop End Sub としたところ1×9＝9までしかでません。 どうすれば上手くループするようになるでしょうか？ お願いします。

  • VBAで「セルに何か入っている場合」

    EXCELでVBAを使いアプリケーションを作っています。 今「このセルに何か入っている(何でも良い。とにかく空でない)場合、この処理」という意味のプログラムを書きたいのですが、「このセルに何か入っている場合」の部分がどうしてもわかりません。null、isnull、emptyなど片っ端から試してみたり、逆に問題のセルが空欄の時にfalseになる変数を前もって設定して、その変数がtrueの時に処理させようとしたりしてみたのですが、すべてうまく行きませんでした。 解決法を教えていただけたら幸いです。

  • Excel VBA　のDo Until Loopについて

    こんばんは Excel VBAの初心者です。 Do Until Loopを使って B列の値が変わるところ（下記の表だと、空白からコスモスに変わる、4行目。コスモスからチューリップに変わる6行目。チューリップから菊に変わる8行目。）に行を挿入させたいと思い、下記のマクロを組んだのですが、Do Until Loopが理解できませんでした。 どうしたら良いのか教えて頂けないでしょうか。 宜しくお願い致します。 Excelのシート B1　　項目 B2　　空白 B3　　空白 B4　　コスモス B5　　コスモス B6　　チューリップ B7　　チューリップ B8　　菊 Sub 行の挿入() Dim y As String Cells(2, 2).Select y = Cells(2, 2).Value Do Until Cells(2, 2).Value <> y ActiveCell.Offset(1).Select Selection.EntireRow.Select Selection.Insert shift:=xlDown Loop End Sub

  • VBAでどのようにすればいいのでしょうか。

    Excel2007でCSVファイルを取り込むVBAで作成しています。 下記のURLを参考にしています。 http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_110_030.html 皆さんにお聞きしたい事があり、投稿させていただきました。 CSVファイルの先頭行にタイトル行が指定されている場合、VBA上で除外する事は可能でしょうか。 できれば Do Until objTS.AtEndOfStream ※この中で・・・ Loop すみませんがどうかアドバイス宜しくお願いします。 では失礼します。

注目のQ&A

カテゴリ

専門家に質問してみよう

職業から探して質問する

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

質問する