TOP > Up > Today

本題です。

Date:  Thu, 6 Oct 2005 12:08:19 +0900
From:  no@ann.co.jp
Subject:  [pasml 144069] 本題です。
To:  pasml@ann.co.jp
Message-Id:  <200510060308.j9638JM26605@ns.pas2.jp>
X-Mail-Count: 144069

お名前   : 白茶　困りごと掲示板から
URL      : 
質問URL: http://pasokoma.jp/?num=297318&ope=v
ツリー: http://pasokoma.jp/cgi/tree.cgi?num=297318
--
白茶さんは No.297215「Re:行のコピーの繰り返しマクロ」で書きました。
へへ。
勉強してきましたよ。
Sub copy()
    Dim c As Integer
    c = 1
    
    Do
    If Cells(c, 1) = Empty Then Exit Do
    
    Cells(c, 1).Select
    Range(Selection, Selection.Offset(9, 4)).Select
    Selection.FillDown
    c = c + 10
    Loop
End Sub
とりあえず、これでイケると思います。
--
== 掲示板ＵＲＬ： http://pasokoma.jp/ ==
   配信の停止： http://pasokoma.jp/taikai.shtml
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today