Excel VBA質問スレ Part5

Excel VBA質問スレ Pa ..

66:デフォルトの名無しさん
07/12/17 20:16:50
Range("A:A").SpecialCells(xlCellTypeBlanks).EntireRow.Select
Selection.Delete shift:=xlShiftUp

で「A列に何も入っていない行」を削除できますが、
「A列およびB列に何も入っていない行」は削除できませんでしょうか?

Range("A:B").～とすると
「A列もしくはB列に何も入っていない行」になってしまいます。

結局for～nextでCells(i,1).value&Cells(i,2).value=""かどうか調べて、みたいなので
動くことは動いたんだけどなにか簡単な方法はないかと。

次ページ

続きを表示

1を表示