TOP > Up > Today

ぶらさがろっと

Date:  Thu, 6 Oct 2005 14:17:13 +0900
From:  no@ann.co.jp
Subject:  [pasml 144096] ぶらさがろっと
To:  pasml@ann.co.jp
Message-Id:  <200510060517.j965HDS04876@ns.pas2.jp>
X-Mail-Count: 144096

お名前   : 半端者　困りごと掲示板から
URL      : 
質問URL: http://pasokoma.jp/?num=297345&ope=v
ツリー: http://pasokoma.jp/cgi/tree.cgi?num=297345
--
・マクロの記述は、作成者の技量も勿論あるけど、ループのさせ方ひとつをとっても
作成者の好みや性格、パソコンの使用環境、扱うデータの質や量等で違ってくるの
で、どれが正解というのはないから、多くの人の記述例を参考にしてね。
（ただし、私自身は身の回りの処理に使っているだけなので、プロの人から見ると
「なんだ、この記述」と思えるところもある筈なので、宜しく）
・白茶さんも頑張って例示してくれているので、突っ込んであげてね。
Sub test1()
Dim a As Integer
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim Rng1 As Range
Dim Rng2 As Range
Sheet1.Select
a = Range(&quot;A100&quot;).End(xlUp).Row　'元データは、100行目までに想定。
For i = 1 To a Step 10
  For j = i + 1 To i + 9
    For k = 1 To 4
Set Rng1 = Cells(i, k)
     Rng1.Select
      Selection.Copy
Set Rng2 = Cells(j, k)
      Rng2.Select
      ActiveSheet.Paste
    Next k
  Next j
Next i
    Application.CutCopyMode = False
End Sub
--
== 掲示板ＵＲＬ： http://pasokoma.jp/ ==
   配信の停止： http://pasokoma.jp/taikai.shtml
   本メールマガジンへの返信はなさらないで下さい
== 投稿はパソコン困りごと掲示板でお願い致します ===
TOP > Up > Today