Excel総合相談所 136 - 暇つぶし2ch

Excel総合相談所 136 ..

421:名無しさん＠そうだ選挙にいこう
19/08/27 18:58:25.22 .net
↓だと半分ぐらいが削除されるのですが、なぜか削除されない行もあります。
セルにはスペースも何も入っていないで。
原因と解決方法を教えてください。

Sub Macro2()
'シート名「＊＊＊」のＣ列に空欄のセルがあれば、その行を行ごと削除して詰める
Sheets("＊＊＊").Select
For r = Cells(Rows.Count, "C").End(xlUp).Row To 2 Step -1
If Cells(r, "C").Value = "" Then
Rows(r & ":" & r).Delete
End If
Next r
End Sub

次ページ

続きを表示

1を表示