A 回答 (3件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
どちらも空白の行、を絞って削除します。
sub macro1()
range("1:1").insert
range("C1") = "head"
range("C:P").autofilter field:=1, criteria1:="="
range("C:P").autofilter field:=14, criteria1:="="
activesheet.autofilter.range.offset(1).delete shift:=xlshiftup
range("1:1").delete shift:=xlshiftup
end sub
一括で行うと高速にできます。
No.1
- 回答日時:
こんにちは!
色々やり方はあると思いますが・・・
Sub 行削除()
Dim i As Long
Application.ScreenUpdating = False
For i = ActiveSheet.UsedRange.Rows.Count To 1 Step -1
If Cells(i, "C") = "" And Cells(i, "P") = "" Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
こんな感じではどうでしょうか? m(_ _)m
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excelについて質問です(ver2019) 1 2023/06/30 21:20
- Excel(エクセル) Vba エクセルマクロで、 A列の、A1セルからA10セルに空白のある行を削除する、のは Range 3 2022/11/05 17:44
- Visual Basic(VBA) vbaエクセルマクロについて sheet1のA列が空白の場合、行を削除(一番下の最終行まで)するプロ 3 2023/03/03 17:41
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
- Visual Basic(VBA) EXCEL VBAでA列にある空白行より下の行すべてを削除する方法を教えてください。 3 2023/02/17 07:02
- Visual Basic(VBA) エクセルVBAについて 2 2023/01/31 16:21
- Excel(エクセル) Excel VBA 空白行があるセル範囲に色を付ける 3 2022/06/13 15:58
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) エクセルの関数を教えてください。② 9 2023/05/25 15:28
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
excel2010の空白セルのある行の削除方法
Excel(エクセル)
-
特定のセルが空白だったら、その行を非表示にしたい。。。
Visual Basic(VBA)
-
エクセルのマクロで、選択範囲の空白行を削除する方法
Excel(エクセル)
-
-
4
VBA 空白セルを削除ではない方法で詰めるやり方
Visual Basic(VBA)
-
5
エクセルマクロで特定の範囲が空白という条件
Excel(エクセル)
-
6
ExcelVBAを使って、値がある場合は作業を繰り返し実行するプログラムを作成したい。
Visual Basic(VBA)
-
7
Excel VBA データのない列の空白のある行を全て削除
Excel(エクセル)
-
8
Excel VBA A列が特定の値以外の場合、その行を削除
Excel(エクセル)
-
9
エクセルVBAで、条件に一致するセルへ移動
Excel(エクセル)
-
10
【Excel VBA】複数の条件を満たすデータを行削除
Excel(エクセル)
-
11
EXCEL VBA 指定範囲内で特定の列に空白セルを含む行を非表示
Excel(エクセル)
-
12
EXCEL VBA 指定したファイルが存在しない場合メッセージボックスを表示させる
Access(アクセス)
-
13
特定のセルが空白の行を非表示にするマクロについて
Excel(エクセル)
-
14
【Excel VBA】複数ある特定の文字列を含む行を削除
Excel(エクセル)
-
15
【VBA】特定の値が入った行をコピーして別シートに貼り付ける方法をおしえていただきたいです。
Excel(エクセル)
-
16
特定の文字を条件に行挿入とそこからセルデータを追加するVBAについて
Visual Basic(VBA)
-
17
エクセルVBAのIf,Then 構文でOr条件とAnd条件の結合方法?
Excel(エクセル)
-
18
Excel VBAで同じフォルダ内のファイルを開くには?
Excel(エクセル)
-
19
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
20
指定した範囲内が空白なら行削除するマクロ
その他(ソフトウェア)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
エクセルのデータがない行には...
-
数値に見えるものはすべて数値...
-
マクロで最終行を取得してコピ...
-
Excel VBAでオートフィルタで抽...
-
ピポットテーブルのマクロについて
-
【VBA】条件に一致しない行を削...
-
VBAによりマッチング操作
-
エクセルのVBAで指定した行数の...
-
Excel VBA オートフィルタの結...
-
マクロにて指定の文字間の文字...
-
Access2003レポート:最終ペー...
-
Excel マクロ 検索結果を別シ...
-
excel2021で実行できないマクロ...
-
EXCEL VBAでA列にある空白行よ...
-
Excel 別ブックから該当データ...
-
テキストファイル読み込みにお...
-
WPSOffice_マクロの有効化について
-
VBAで保存しないで閉じると空の...
-
エクセル関数>参照ファイル名...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで空白行を削除する ...
-
数値に見えるものはすべて数値...
-
エクセルのデータがない行には...
-
マクロで最終行を取得してコピ...
-
【VBA】条件に一致しない行を削...
-
【VBA】条件に一致しない行を削...
-
エクセルのVBAで指定した行数の...
-
VB.net
-
Excel VBAでオートフィルタで抽...
-
マクロにて指定の文字間の文字...
-
Excel97 指定した行だけマク...
-
EXCEL VBAでA列にある空白行よ...
-
excel2021で実行できないマクロ...
-
Excel 別ブックから該当データ...
-
VBAでの重複データに色付け
-
Excel VBA オートフィルタの結...
-
エクセルで階層図を作る方法
-
VBAで特定の行と一つ上の行を削...
-
【至急】Excel 同一人物の情報...
-
Excelで、マウスで範囲を選択し...
おすすめ情報