空白セルの行を削除しようと下記で処理しようとしているのですが、空白セルでフィルタが掛かりません。
(.Range("A:A").AutoFilter Field:=1, Criteria1:=""""のところで、例えば"0"とかにすると
ちゃんと0でフィルタが掛かります)
どのようにすれば良いのかご教示お願い致します。
やりたいことは、A列9行目~B列の最終行までの、A列空白行を一括削除したいです。
LastRow = Cells(Rows.Count, "B").End(xlUp).Row
With ActiveSheet
.Range("A:A").AutoFilter Field:=1, Criteria1:=""""
If .Cells(Rows.Count, "A").End(xlUp).Row > 1 Then
Range(.Cells(9, "A"), .Cells(LastRow, "A")).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End If
.AutoFilterMode = False
End With
MsgBox "完了
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelVBAのマクロについて。 9 2022/05/04 14:50
- Excel(エクセル) マクロで最終行から上に検索を逆にしたい 1 2022/05/17 18:27
- Excel(エクセル) B列に文字がはいったらA列に数字が入るマクロードを完成させたい 4 2023/04/21 01:58
- Visual Basic(VBA) 数字が「0」の列を削除するため、下記のコードを実行しましたが、コンパイルエラーSubまたはFunct 3 2022/12/04 00:00
- Visual Basic(VBA) フォルダの場所を可変にしたいです(マクロ) 4 2023/05/11 10:00
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 【至急】Excel 同一人物の情報を一行にまとめる(複数行) 6 2022/05/24 17:58
- Visual Basic(VBA) 複数csvを横に追加していくマクロについて 2 2023/04/25 09:19
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
VBAでオートフィルタの可視セルクリア後空白行削除がうまくできません
Visual Basic(VBA)
-
Excel マクロ オートフィルで抽出後 削除したい
Access(アクセス)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
-
4
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
5
オートフィルタで未入力(空白)を無視した抽出法
PowerPoint(パワーポイント)
-
6
Excel2000/VBA:値と書式のみ貼り付けたい。
Excel(エクセル)
-
7
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
8
VBAで特定の文字が入力されたセルを選択
Excel(エクセル)
-
9
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
10
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
11
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
12
複数の条件に合う行番号を取得するには
その他(Microsoft Office)
-
13
【Excel VBA】指定行以降をクリアするには?
Visual Basic(VBA)
-
14
Excelでセル参照したとき、書式も一緒に持ってくるには?
Windows Vista・XP
-
15
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
16
フィルタで検索した行をマクロで削除する時のコード。
Visual Basic(VBA)
-
17
Excelオートフィルタで複数のセルの値を参照して抽出したい
Excel(エクセル)
-
18
エクセルVBAでセルに入力したパスでブックを開く
Excel(エクセル)
-
19
数式による空白を無視して最終行を取得するマクロ
Excel(エクセル)
-
20
マクロで#N/A"のエラー行を削除したい"
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
エクセルでCSVを編集するとき、...
-
空白セル内の数式を残したまま...
-
数式による空白を無視して最終...
-
Excel > ピボットテーブル「(空...
-
excel2010 空白セルにのみ貼り...
-
「データ要素を線で結ぶ」がチ...
-
エクセルで上の行の値を自動的...
-
vlookup にて、返す値が、空白...
-
関数TRANSPOSEで空白セルを0に...
-
【Excel】 csvの作成時、空白セ...
-
空白を0とみなす関数
-
エクセルにて負の時間を0:00と...
-
ピボットテーブルで空白セルの...
-
エクセル マクロ 最終列まで...
-
空白セルがないのにオートフィ...
-
COUNTAで式をカウントしない方法
-
《Excel2000》SUMPRODUCT関数で...
-
エクセルのグラフで式や文字列...
-
Excel:関数が入っているセルに...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
IF関数で空欄("")の時、Null...
-
数式による空白を無視して最終...
-
エクセルでCSVを編集するとき、...
-
ピボットテーブルで空白セルの...
-
excel2010 空白セルにのみ貼り...
-
Excel > ピボットテーブル「(空...
-
空白セル内の数式を残したまま...
-
「データ要素を線で結ぶ」がチ...
-
エクセルで、「複数のセルの中...
-
Excelで、入力文字の後に自動で...
-
エクセル 連番が途切れていると...
-
《Excel2000》SUMPRODUCT関数で...
-
SUMIFS関数で「計算式による空...
-
【Excel】 csvの作成時、空白セ...
-
形式貼り付けの「空白を無視す...
-
Excel:関数が入っているセルに...
-
リンク先が空白若しくはゼロの...
-
エクセルで上の行の値を自動的...
-
エクセルにて負の時間を0:00と...
-
エクセルのグラフで式や文字列...
おすすめ情報