No.1
- 回答日時:
こんな方法もあるという感じで・・・
Sub test()
Dim r As Range, rr As Range
Set rr = Nothing
For Each r In Range("c1:c50")
If r.Value = 0 Then
If rr Is Nothing Then
Set rr = r
Else
Set rr = Union(rr, r)
End If
End If
Next r
rr.EntireRow.Delete
End Sub
No.2ベストアンサー
- 回答日時:
一例です。
Sub test01()
Dim i As Long
For i = Cells(Rows.Count, "C").End(xlUp).Row To 1 Step (-1) 'C列入力最下行から1行目まで
If Cells(i, "C").HasFormula Then 'もし数式であれば
If Cells(i, "C").Value = 0 Then 'もし計算結果が0であれば
Cells(i, "C").EntireRow.Delete 'その行を削除
End If
End If
Next '繰り返す
End Sub
50行目であろうが100行であろうが自動的に判断します。
判断不要でかならず50行なら
For i = 50 To 1 Step (-1) でも可。
行削除の場合、下から上に上っていくのがポイントです。
No.3
- 回答日時:
こんにちは。
>合計が0(A,B列に数値が入力されていない)の行を削除する
という意味がA=10 B=-10の行は削除しないと言うことであればC列で判断をすると結果が異なります。
方法はいくつもあるかと思いますが私の場合は以下のようなコードにします。
Sub Sample()
Dim I As Integer
I = 1
Do While Range("C" & I).Value <> ""
If Len(Range("A" & I).Value & Range("A" & I).Value) = 0 Then
Range(I & ":" & I).Delete Shift:=xlUp
Else
I = I + 1
End If
Loop
End Sub
ループ1つにしても方法が色々あるかと思いますがオートフィルタを使用している環境の場合はDo While の方が誤作動を防止できます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルの複写について 4 2022/04/10 01:02
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Excel(エクセル) VBA SUM関数を入力したい 6 2022/08/20 20:10
- Excel(エクセル) エクセル/列追加時、合計行の計算式 7 2023/03/15 11:14
- Excel(エクセル) Excel(エクセル)でフィルター抽出後、非表示の行を計算しないで、合計を算出する方法 【内容】 添 4 2023/01/30 17:17
- Visual Basic(VBA) 列の最終行までのセルと1つ隣のセルの合計を別の列に表示 2 2022/07/12 19:50
- Visual Basic(VBA) 列と行の名前(重複あり)が交差するセルに、データを入力したい 2 2022/06/25 22:42
- C言語・C++・C# このプログラミングの問題を教えてほしいです。 キーボードからデータ数nとn個のデータを入力し、平均値 3 2022/12/19 22:51
- C言語・C++・C# C言語 3 2022/10/04 15:07
- Visual Basic(VBA) VBA ドロップダウンリストを残して値のみクリア 2 2022/10/27 05:42
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセルで時刻を自動入力する方法
-
Excel VBA 答えが0になってし...
-
エクセルで、「袋詰め問題」を...
-
スプレッドシートで、指定した...
-
複数のスプレットシートで入力...
-
Excel2003での並べ替えについて
-
エクセルの既存のシートでは入...
-
Excelのデータが重いのはなぜで...
-
ローマ字入力で「トゥ」を入力...
-
「未使用」と「不使用」ってど...
-
ExcelでVBAを使用した際に、『...
-
1点の辻の字に変換したいがエク...
-
ファイザーやモデルナは当時は...
-
excelで小数点0を表示させる方法
-
エクセルからアクセスにインポ...
-
SUM関数の範囲に#N/Aが...
-
もしセルが"#N/A"なら~をする...
-
Excelでエラー(#N/Aなど)値を...
-
エクセルで0.0と表示したい
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセルで時刻を自動入力する方法
-
Excelのデータが重いのはなぜで...
-
Excel VBA 答えが0になってし...
-
EXCEL VBA 区切り位置のプログ...
-
エクセルマクロについて データ...
-
エクセル。ブック内検索で重複...
-
エクセルで30日以内に同内容の...
-
スプレッドシートで、指定した...
-
合計が0の行を削除
-
エクセルで漢字がうまく並び替...
-
エクセルの入力 エンターキーで...
-
excel フレームのように一部...
-
エクセルの中の漢字を一度にカ...
-
エクセルで隣のセルと同じ数字...
-
A列を検索し一致した行を表示。...
-
Excel2003での並べ替えについて
-
エクセル (1)行削除 (2)列追...
-
Excelユーザーフォームでのデー...
-
エクセルの既存のシートでは入...
おすすめ情報