質問: 【エクセル】2行に一行のように、規則的に行を新規挿入したい お世話になります。 ぎっちり作ってしまったエクセルの表に対して、 2行に1行、空白行を挿入したいと思います。 この場合の作業について、考えてみたものの、 なかなかうまくできません。 お手数ですが、お知恵を拝借させていただければ、 幸いです。よろしくお願い致します
回答: こんなマクロでいかがですか? with activesheet.usedrange set orow = .rows(2) for i = 4 to .rows.count step 2 set orow = union(orow, .rows(i)) next end with orow.insert -4121 end sub