- 66 名前：デフォルトの名無しさん mailto:sage [2007/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=""かどうか調べて、みたいなので
動くことは動いたんだけどなにか簡単な方法はないかと。
