No.2ベストアンサー
- 回答日時:
おはようございます。
どの様なコードか不明ですが、例えば下記の様に記載でしょうか?
Dim I As Long
Do
処理
I=I+1
Loop Until Cells(I,1).value & Cells(I+1,1).value & Cells(I+2,1).value = ""
Cells(I,1).value & Cells(I+1,1).value & Cells(I+2,1).value = ""
→A列の値を3つ&で繋いで、全て何もない:"" なら、処理を終了とか。
下記が参考になるかと
https://www.limecode.jp/entry/difference/dowhile …
一応、WhileとUntilは、Doにも、Loopにも付けられます。
Doにつけると、条件によっては1回も処理しない事もあります。
Loopにつけると、必ず1回は、処理する事になります。(Do Loop内の処理)
Do While~Loop 又は、Do ~ Loop While
Do Until~Loop 又は、Do ~ Loop Until
No.3
- 回答日時:
こんにちは
>構文がわかりません。
Do ~ Loop をお使いならば、Loopを抜け出す条件式を設定していると思いますけれど、その条件を目的に沿った内容にしておけばよいです。
Whileを用いるか、Untilを用いるかで条件式の書き方が若干変わるのはご存じですよね?
どちらでも、書きやすい方で記述すれば宜しいとは思いますけれど。
仮に、行番号をrw、列番号をcolという変数で表すなら、ご質問の条件の場合は、「rw~rw+2のセルが空白の時」となりますので、3つぐらいの数であればベタに
Cells(rw, col) = "" And Cells(rw + 1, col) = "" And Cells(rw + 2, col) = ""
という条件にしておいても宜しいでしょう。
(↑ 既出の回答と、ほぼ同じ内容です)
3つではなく、数が多いような場合は、上記のように連続して書くのもかったるいので、シート関数を利用するなどの方法も考えられるでしょう。
例えば、
WorksheetFunction.CountBlank(Cells(rw, col).Resize(3)) = 3
などのような記述方法です。
(↑は「空白セルの数がが3だったら」という意味になります)
他にもいろいろ考えられると思いますが、「目的とする条件に合う条件式で判断する」という点では同じですね。
No.1
- 回答日時:
空白行をカウントする数字変数をあらかじめ設定(仮に”kuhakugyo"とします)したうえでLOOPの中で次の行をいれればいいと思います。
・セルが空白かどうか判定させて、空白行ならばkuhakugyoに1を加え、空白行でなければkuhakugyoをゼロにする
・LOOPの最後にkuhakugyoが3ならばループをぬける
Sub 繰り返し仮()
Dim i As Integer, kuhakugyo As Integer
i = 2
kuhakugyo = 0
Do While kuhakugyo = 3
処理内容
If Range("A" & i).Value = "" Then
kuhakugyo = kuhakugyo + 1
Else
kuhakugyo = 0
End If
i = i + 1
Loop
End Sub
上記で実行したところ、エラーはでないのですが処理が実行されませんでした。どのあたりが間違っているか自己解決できませんでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Visual Basic(VBA) VBAのユーザーフォームのテキストボックスに入力制限をしたい 6 2022/11/15 08:28
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Visual Basic(VBA) 指定列最終行までのスペースを改行するVBAについて 2 2022/06/01 19:50
- Excel(エクセル) VBA 特定の列に入っているテキストをコピペ 2 2023/06/14 11:24
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) エクセル表作成について 5 2023/03/12 13:25
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Excel(エクセル) Excel 特定セルの数値を参照したセルの0表示が空白にならないのはどうしてか? 3 2022/04/28 22:23
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
:【Excel VBA】 Do Until ~ Loop 構文で途中の空白セルを飛ばしてデータのチェックをしたい
Excel(エクセル)
-
【vba】指定範囲の中に任意の文字があるときの条件分岐
Excel(エクセル)
-
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
-
4
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
5
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
6
EXCEL VBA セルに既に入力されている文字に文字を追加する
Excel(エクセル)
-
7
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
8
excelのマクロで該当処理できなければ飛ばして進むにはどうすればよいのでしょうか
Visual Basic(VBA)
-
9
マクロ 空白セルまで繰り返す
Excel(エクセル)
-
10
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
11
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
12
VBAで先月、先々月を求める方法
Visual Basic(VBA)
-
13
エクセルマクロ 【空白セルを無視する方法を教えてください】
Excel(エクセル)
-
14
空白行になるまでループし、印刷するマクロを教えて下さい
その他(コンピューター・テクノロジー)
-
15
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
16
エクセル マクロ 連続する空白行の削除
Excel(エクセル)
-
17
EXCEL:特定の文字が入力された日付を表示する方法
Excel(エクセル)
-
18
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
19
Excel VBA ステップインが途中で通常実行になってしまう
Excel(エクセル)
-
20
Do~Loopした回数をカウントしたい
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
数式による空白を無視して最終...
-
関数TRANSPOSEで空白セルを0に...
-
ピボットテーブルで空白セルの...
-
Excel > ピボットテーブル「(空...
-
エクセルでCSVを編集するとき、...
-
vlookupの結果が0になるセルと...
-
「データ要素を線で結ぶ」がチ...
-
《Excel2000》SUMPRODUCT関数で...
-
空白を0とみなす関数
-
空白セルもある”〇”データの直...
-
Excelで、入力文字の後に自動で...
-
excel2010 空白セルにのみ貼り...
-
空白セル内の数式を残したまま...
-
空白セルがないのにオートフィ...
-
範囲内の列から、一番下の数値...
-
SUMIFS関数で「計算式による空...
-
エクセル 連番が途切れていると...
-
Excel関数 直近3回分の出庫平均...
-
エクセルで、「複数のセルの中...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
数式による空白を無視して最終...
-
エクセルでCSVを編集するとき、...
-
Excel > ピボットテーブル「(空...
-
「データ要素を線で結ぶ」がチ...
-
ピボットテーブルで空白セルの...
-
関数TRANSPOSEで空白セルを0に...
-
空白セル内の数式を残したまま...
-
excel2010 空白セルにのみ貼り...
-
エクセル 連番が途切れていると...
-
Excel:関数が入っているセルに...
-
Excelで、入力文字の後に自動で...
-
《Excel2000》SUMPRODUCT関数で...
-
SUMIFS関数で「計算式による空...
-
形式貼り付けの「空白を無視す...
-
エクセルで数式の入ったセルの...
-
【Excel】 csvの作成時、空白セ...
-
エクセルで、「複数のセルの中...
-
エクセルで上の行の値を自動的...
-
空白を0とみなす関数
おすすめ情報