TOP > Up > Today

Date:  Sat, 2 Oct 2010 20:28:15 +0900
From:  no@ann.co.jp
Subject:  [pasml 341178] Re: excel のデータ移動について
To:  pasml@ann.co.jp
Message-Id:  <201010021128.o92BSFtq031854@ns.pas2.jp>
X-Mail-Count: 341178

名前: o6asan BBSから
質問:http://pasokoma.jp/49/lg497371#497393
携帯:http://pasokoma.jp/m?num=497393&ope=v
--
多分，簡単なマクロを作るのが一番早いと思います。

EXCELのマクロはネット上にいろいろありますので，くぐれば見つかると思いますが，
一例としては下記のようなものが考えられます。

後は，ご自分でいろいろ工夫してみてください。

Sub 複数行のコピー()
    MaxRow = 91                '最大行の指定
    RowNo1 = 1
    RowNo2 = 30
    While RowNo1 &lt;= MaxRow
    Sheets(&quot;Sheet1&quot;).Select    'コピー元のシートを指定
    Range(Rows(RowNo1), Rows(RowNo2)).Select
    Selection.Copy
    Sheets.Add After:=Sheets(Sheets.Count)
    ActiveSheet.Paste
    RowNo1 = RowNo1 + 30
    RowNo2 = RowNo2 + 30
    Wend
End Sub

--
== 掲示板ＵＲＬ： http://pasokoma.jp/bbs ==
   配信の停止： http://pasokoma.jp/taikai
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===