No.2ベストアンサー
- 回答日時:
ダメでしたか・・・
では強制的にエラーを無視するようにしましょうか
On Error Resume Next
Range("A2:A600").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
On Error GoTo 0
命令文の前に『On Error Resume Next』を記載してください
ただ注意点として、以降にプログラム記述がある場合に問題が発生しても全て無視されてしまうのでその下に必ず『On Error GoTo 0』を記載してください
No.4
- 回答日時:
No3です
連投失礼。以下の方が良さそうな気がしましたので。
If WorksheetFunction.CountBlank(Range("A2:A600")) > 0 Then _
Range("A2:A600").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
No.3
- 回答日時:
こんにちは
よこからですが・・・
No1様の回答で動作すると思うのですが、「該当セルが無い」とのエラーなので、A列全体に空白セルが存在しないってことですね。(めったに無い事とは思いますが・・・)
範囲に空白セルがないと、
Range.SpecialCells(xlCellTypeBlanks)
を参照した時点でエラーが発生してしまうようですね。
それなので、No2様のようにエラー処理で回避するか、あるいは
Set tmp = Intersect(Range("A2:A600"), Cells.SpecialCells(xlCellTypeBlanks))
If Not tmp Is Nothing Then tmp.EntireRow.Delete
みたいな方法でも回避可能と思います。
(シート内の全セルが空白ではない場合は上記もダメですが)
No.1
- 回答日時:
A1およびA601以降にはデータが入っていますか?
A1にタイトル行があり、601以降にデータが無いのであれば
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range指定を列全てにすれば回避できますよ
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Visual Basic(VBA) 【VBA】Excelで罫線を引きたい 3 2022/07/14 12:04
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- Visual Basic(VBA) vbaエクセルマクロについて あるデータを作成し、デスクトップに.xlsx形式で保存するマクロを作成 6 2023/03/03 18:05
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Excel(エクセル) エクセルのVBAにショートカットキーの割り当て 3 2022/07/13 14:19
- Visual Basic(VBA) 【至急】Excel 同一人物の情報を一行にまとめる(複数行) 6 2022/05/24 17:58
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
エクセルVBAで行削除時にエラーが発生します。
Excel(エクセル)
-
VBAでオートフィルタの可視セルクリア後空白行削除がうまくできません
Visual Basic(VBA)
-
VBAでのフィルタについて(空白行の削除)
Excel(エクセル)
-
-
4
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
5
もしセルが#N/A"なら~をする・・・には?"
Excel(エクセル)
-
6
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
7
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
8
「Columns(A:C")」の列文字を数字にして表記したい"
Excel(エクセル)
-
9
【VBA】コピー&複数個所のペースト繰り返し
Excel(エクセル)
-
10
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
-
11
VBAで行削除のできない場合がある
Excel(エクセル)
-
12
VBAで重複するデータがあれば1個だけ残して他の重複セルを"(空白)にしたいのですが
Excel(エクセル)
-
13
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
14
ブック名、シート名を他のモジュールからも参照可能にする方法
Access(アクセス)
-
15
セルの値が0はクリアするマクロ
Excel(エクセル)
-
16
別のシートから値を取得するとき
Visual Basic(VBA)
-
17
エクセルで空白行を削除する 2列とも空白の場合のみ
その他(Microsoft Office)
-
18
VBAのオートフィルターで該当行がない場合に処理を止めたい
Excel(エクセル)
-
19
VBA 変数名に変数を使用したい。
Visual Basic(VBA)
-
20
VBA Cのセルが空白でなかったら、Aのセルに順番に数値を入力
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
ピボットテーブルで空白セルの...
-
数式による空白を無視して最終...
-
エクセルでCSVを編集するとき、...
-
「データ要素を線で結ぶ」がチ...
-
Excel > ピボットテーブル「(空...
-
エクセル 連番が途切れていると...
-
エクセルで、「複数のセルの中...
-
エクセル セルのコピー元が空...
-
空白セル内の数式を残したまま...
-
関数TRANSPOSEで空白セルを0に...
-
excel2010 空白セルにのみ貼り...
-
Excel:関数が入っているセルに...
-
【Excel】 csvの作成時、空白セ...
-
SUMIFS関数で「計算式による空...
-
エクセルで上の行の値を自動的...
-
《Excel2000》SUMPRODUCT関数で...
-
エクセルで、合計をもとめたい...
-
Excelで、入力文字の後に自動で...
-
エクセルのグラフで式や文字列...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
数式による空白を無視して最終...
-
エクセルでCSVを編集するとき、...
-
ピボットテーブルで空白セルの...
-
excel2010 空白セルにのみ貼り...
-
Excel > ピボットテーブル「(空...
-
空白セル内の数式を残したまま...
-
「データ要素を線で結ぶ」がチ...
-
エクセルで、「複数のセルの中...
-
Excelで、入力文字の後に自動で...
-
エクセル 連番が途切れていると...
-
《Excel2000》SUMPRODUCT関数で...
-
SUMIFS関数で「計算式による空...
-
【Excel】 csvの作成時、空白セ...
-
形式貼り付けの「空白を無視す...
-
Excel:関数が入っているセルに...
-
リンク先が空白若しくはゼロの...
-
エクセルで上の行の値を自動的...
-
エクセルにて負の時間を0:00と...
-
エクセルのグラフで式や文字列...
おすすめ情報
ご回答いただきありがとうございます。
やはりできません。
なぜでしょうか?