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 の方が誤作動を防止できます。
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
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・「I love you」 をかっこよく翻訳してみてください
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・昔のあなたへのアドバイス
- ・かっこよく答えてください!!
- ・あなたが好きな本屋さんを教えてください
- ・スタッフと宿泊客が全員斜め上を行くホテルのレビュー
- ・【大喜利】【投稿~8/27】 こんなガソリンスタンド二度と来るか!なぜそう思った?
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・【お題】動物のキャッチフレーズ
- ・【お題】甲子園での思い出の残し方
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・「それ、メッセージ花火でわざわざ伝えること?」
- ・自分用のお土産
- ・人生で一番お金がなかったとき
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・ちょっと先の未来クイズ第1問
- ・ゴリラ向け動画サイト「ウホウホ動画」にありがちなこと
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセルの中の漢字を一度にカ...
-
ローマ字入力で「トゥ」を入力...
-
「未使用」と「不使用」ってど...
-
Excelでエラー(#N/Aなど)値を...
-
ExcelでVBAを使用した際に、『...
-
PPTのスライド表示の画面の位置...
-
1点の辻の字に変換したいがエク...
-
エクセルからアクセスにインポ...
-
VLOOKUP関数についての質問です...
-
XMLデータってなんですか?
-
AUTO-CADで文字の太さを太くす...
-
Chatgptから送られてきたリンク...
-
iMacキーボードの入力 小文字の...
-
VLOOKUPで求めた数値をさらにVL...
-
自動改札のエラーって…
-
コマンドプロンプトが実行中か...
-
高速フーリエ変換でデータ数が...
-
保存時のタイトルに「・」(中...
-
excelで小数点0を表示させる方法
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
すべてのシートを選択してエク...
-
エクセルで時刻を自動入力する方法
-
Excel VBA 答えが0になってし...
-
Excelのデータが重いのはなぜで...
-
EXCEL VBA 区切り位置のプログ...
-
合計が0の行を削除
-
エクセルマクロについて データ...
-
エクセル。ブック内検索で重複...
-
エクセルで30日以内に同内容の...
-
エクセルの中の漢字を一度にカ...
-
エクセルで隣のセルと同じ数字...
-
エクセルで、「袋詰め問題」を...
-
Excel2003での並べ替えについて
-
excel フレームのように一部...
-
エクセルで漢字がうまく並び替...
-
エクセルで、まったく同じデー...
-
エクセルにおいてタグからタグ...
-
エクセルの列に三角印と*印が?
-
Excel2007入力規則
-
エクセルの入力規制。同じ列で...
おすすめ情報