VBA行の削除条件を追加します。

マクロコードに最終的に触れていますが、含まれている行の最後のビットは、列Aのデータが空白の行を削除するために使用されます。空の行が存在する状況が発生した場合、行の削除が必要ない場合はうまく動作しますが、デバッグの問題が発生しています。列Aに情報がないことに基づいて余分な空白行があり、削除の必要がない場合に同じように動作する場合にのみ、下に掲載されたコードを変更するにはどうすればよいですか。VBA行の削除条件を追加します。

Range("A7:A" & LastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete

出典

2017-09-26 Hazat Bangurah

ラップをエラーでエラー後藤に 'その後、Next'を再開'で0 'ブランクがないために発生したエラーを無視します。 –

そうでない場合は、単に通過し、第一および削除のコードを実行するが、その後がある場合、範囲内の空白行をカウント：

If Application.WorksheetFunction.CountBlank(Range("A1:A" & LastRow)) > 0 Then 
    Range("A1:A" & LastRow).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 
End If

出典

2017-09-26 16:42:51 Ibo

Tim Williamsの提案もうまくいきますが、私はあなたのコードを開発する機会が増えれば、ラッパーをそのままにしておくことを忘れてしまい、問題に陥る可能性があるので、 'On error resume next'を使用するファンではありません。さらに、削除する空白のセル/行がない場合は、他のコードを実行することもできます。その場合は、「次回エラー再開時に」は便利ではありません。 – Ibo

それは私のために完璧に働いた。 –

@HazatBangurahこれを正解として選択するには、チェックマークを押してください – Ibo

VBA行の削除条件を追加します。

答えて

関連する問題