TOP > Up > Today

Date:  Mon, 7 Jul 2008 22:42:02 +0900
From:  no@ann.co.jp
Subject:  [pasml 299130] Re: 追加
To:  pasml@ann.co.jp
Message-Id:  <200807071342.m67Dg24A029222@pas2.jp>
X-Mail-Count: 299130

名前: L BBSから
質問:http://pasokoma.jp/45/lg454659#454691
携帯:http://pasokoma.jp/m?num=454691&ope=v
--
Lさんは No.454682「Re:補足」で書きました。

VBAも簡単にだが書いた。

Sub Sonyu()

Dim gyo As Integer
Dim block As Integer

block = 50

gyo = 2
Rows(gyo).Insert

gyo = 4
Rows(gyo).Insert

For i = 1 To block - 1
    gyo = gyo + 3
    Rows(gyo).Insert
    
    gyo = gyo + 2
    Rows(gyo).Insert
Next

End Sub

「block = 50」の数字のところで、繰り返しの回数を調節する。
元のアイテム数を入れれ。最後のアイテム以下空白なら適当に1000とかでもいい。

マクロを使うときは、元データのバックアップは取っておくこと。
マクロで処理した場合、取り消しはできない。破棄してやり直しになる。

適当に書いただけあって使い捨てなので、
2回重ねて使ったりはしないこと。激しく後悔する。
--
== 掲示板ＵＲＬ： http://pasokoma.jp/bbs ==
   配信の停止： http://pasokoma.jp/taikai
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===