No.1ベストアンサー
- 回答日時:
例えばこんなマクロでしょうか
「空白」の意味が「何も入っていない空白」と「関数によってNullを格納した空白」の両方の可能性があるため、COUNTA関数の使用はやめました。
最終行を判定する列をA列としていますが、変更するなら2行目を書き換えてください
Sub Macro1()
Const col As String = "A" '最終行を判定する列
Dim idx As Long
Application.ScreenUpdating = False
With ActiveSheet
For idx = .Cells(65536, col).End(xlUp).Row To 1 Step -1
If .Cells(idx, "E").Value <> "" And .Cells(idx, "F").Value = "" And _
.Cells(idx, "G").Value = "" And .Cells(idx, "H").Value = "" Then
.Cells(idx, col).EntireRow.Delete
End If
Next idx
End With
Application.ScreenUpdating = True
End Sub
おはようございます。
いつも回答ありがとうございます。
早速、教えていただいた方法で試してみたのですが、マクロを実行すると、『オーバーフローしました』というメッセージが出てきます。ヘルプ等を参考にして、変更してみたりもしたのですが、うまくいきません。
お手数ですが、どこを変更すればいいのか、教えていただけると助かります。
よろしくお願いします。
No.3
- 回答日時:
#2です。
longを宣言した#1さんのでもオーバーフローなのですよね?
原因が思いつきません。
> どこを変更すればいいか、
実際に書かれたコードをアップすればわかる方がいるかもしれません。
再度の回答ありがとうございます。
おかげさまで、つい先程のことですが、エラーメッセージが出る原因がわかりましたので、そのことをお知らせしようとしていたところでした。
お手数かけて申し訳ありません。ありがとうございました。
No.2
- 回答日時:
仮に、表が1行目から100行目まであるなら、
Sub test1()
For i = 100 To 1 Step -1
If Cells(i, "E") <> "" _
And Cells(i, "F") = "" _
And Cells(i, "G") = "" _
And Cells(i, "H") = "" Then
Rows(i).Delete
End If
Next
End Sub
で出来ると思います。
表の範囲は
For i = 100 To 1 Step -1'(100行から1行を下からの意味です)
で調整してください。
おはようございます。
回答ありがとうございます。
早速、教えていただいた方法で試してみたのですが、『オーバーフローしました』というメッセージが出てきました。表の範囲も変更してみたりもしたのですが、うまくいきません。
もしよろしければ、どこを変更すればいいか、教えていただけると助かります。
よろしくお願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Visual Basic(VBA) EXCEL VBAでA列にある空白行より下の行すべてを削除する方法を教えてください。 3 2023/02/17 07:02
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Excel(エクセル) Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。 2 2023/06/14 15:56
- Excel(エクセル) データ入力規則リスト 空白を無視 3 2022/07/13 15:11
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) 【条件付き書式】countifsで複数条件を満たしたセルを赤くする方法 2 2023/02/09 23:53
- Excel(エクセル) スプレットシートでA1~G1にデータが入っていて、 それを1列ずつ空けて表示する関数がわかる方いまし 4 2022/08/25 09:39
- Visual Basic(VBA) Excel vbaについて知恵もしくは、コード教えて下さいm(__)m ① 表にあるデータをコピー、 2 2022/09/01 23:57
- Visual Basic(VBA) エクセルについて教えてください。 3 2023/06/28 09:11
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
【VBA】条件に一致しない行を削除したい 複数条件
Visual Basic(VBA)
-
【VBA】条件に一致しない行を削除したい
Visual Basic(VBA)
-
-
4
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
5
指定した文字があった場合、その行を削除するマクロが欲しいです
Excel(エクセル)
-
6
条件に合った行を削除するマクロについて
Visual Basic(VBA)
-
7
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
8
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
9
エクセルで空白行を削除する 2列とも空白の場合のみ
その他(Microsoft Office)
-
10
vba 2つの条件が一致したらコピーして別シートに値のみ貼り付け
Visual Basic(VBA)
-
11
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
12
VBAでファイルを開くときにファイル名でワイルドカードを使用したいです
その他(プログラミング・Web制作)
-
13
VBAで、離れた複数の列に対して処理を施すには?
Visual Basic(VBA)
-
14
ExcelのVBAのマクロで他のシートの複数項目をクリアする方法
Visual Basic(VBA)
-
15
Exel VBA 別ブックから該当データを検索し、必要なデータを取得する方法について
Visual Basic(VBA)
-
16
特定の文字がある行以外を削除するマクロ
その他(Microsoft Office)
-
17
VBAで特定の文字を含まない列の削除方法について
Excel(エクセル)
-
18
複数のbookから特定のセル(行)を削除する
Excel(エクセル)
-
19
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
20
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
「B列が日曜の場合」C列に/...
-
エクセルで最初のスペースまで...
-
VBAで文字列を数値に変換したい
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
エクセル 文字数 多い順 並...
-
エクセル(勝手に太字になる)
-
Excel 別ファイルに自動的に反...
-
Excel、市から登録している住所...
-
Excelで半角の文字を含むセルを...
-
EXCELで 一桁の数値を二桁に
-
A列がない・・・A列が非表示に...
-
文字列に数字を含むセルを調べたい
-
エクセルで文字が混じった数字...
-
2つのエクセルのデータを同じよ...
-
エクセルの項目軸を左寄せにしたい
-
エクセル 同じ値を探して隣の...
-
文字を入力したら数値が自動入...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで二つの数字の小さい...
-
PowerPointで表の1つの列だけ...
-
エクセルで最初のスペースまで...
-
2つのエクセルのデータを同じよ...
-
エクセル 同じ値を探して隣の...
-
エクセル(勝手に太字になる)
-
「B列が日曜の場合」C列に/...
-
エクセル 文字数 多い順 並...
-
EXCELで 一桁の数値を二桁に
-
Excelで半角の文字を含むセルを...
-
エクセルで文字が混じった数字...
-
エクセルの項目軸を左寄せにしたい
-
Excel、市から登録している住所...
-
エクセルで、列の空欄に隣の列...
-
エクセルの表から正の数、負の...
-
エクセルの並び変えで、空白セ...
-
VBAで文字列を数値に変換したい
-
A列がない・・・A列が非表示に...
-
文字列に数字を含むセルを調べたい
-
50人を数回、グループ分けする...
おすすめ情報