[[20171215103925]]　『指定した部分の空白行を削除する』（ハチミツ）　ページの最後に飛ぶ

『指定した部分の空白行を削除する』（ハチミツ）

いつもお世話になっております。
マクロ初心者です。

マクロで、指定した○○行目～○○行目迄に空白行が発生したら削除をしたいです。

本当は、非表示にしたいのですが
非表示マクロは、難しいようなので、まずは削除からやってみたいと思っています。

一応自分が参考にしているホームページを貼り付けます。

コード

Sub 空白行を削除()

Selection.SpecialCells(xlCellTypeBlanks).Select '空白セル削除

Selection.EntireRow.Delete '行全体を削除

'
End Sub

宜しくお願い致します。

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 質問は何ですか？
（seiya） 2017/12/15(金) 10:56

.EntireRow.Delete　　　　　削除
.EntireRow.Hidden = True　非表示
（Q::） 2017/12/15(金) 11:37

ども＾＾

Selection

　↓

Range("5:10")

とか、

Range("A5:D10")

とか空白セルを検索するセル範囲を指定してやってください。
ただし、空白セルがないとエラーになりますので、
on error ステートメントでエラーを回避します。

Sub 空白行を削除()

    dim rng as range

    on error resume next
    set rng = Range("A5:D10").SpecialCells(xlCellTypeBlanks)
    on error goto 0

    if not rng is nothing then rng.EntireRow.Delete '行全体を削除 
End Sub

ちなみにSelectしなくても文字（コード）で書いて指定できるので、
基本的にSelectせずに処理を書きます。
それから、
行の非表示も、マクロの記録をやってみればコードは得られます＾＾
（まっつわん） 2017/12/15(金) 11:42

コメント返信：