再度 マクロの「繰り返しコード」の質問です。

質問

宜しくお願いします。まったくの初心者です。
今、Ａ1～Ａ5には数値。
隣のＢ1～Ｂ5には＝ＲＵＮＤ（）の関数。
("A1:Ｂ5")をセレクトして並び替え、
（ソート最優先キーはＢ列、降順）
この乱数を並び替えして、Ｅ1にコピー、そしてＧ列に1列挿入する。
これを10回繰り返したい。
というコードが、なかなか作れません。
何方か教えてください。

回答No.2

chachaboxx

以下、質問に記載されたマクロの内容です。
("A1:Ｂ5")をセレクトするところから挿入後までの１０回ループです。

数値がループごとに変更される以外は、１回でも１万回でも数値が入るセル範囲は同じです。
※A1～B5とE1～F5に数値が入りますが、G列挿入の意味が不明。

Sub Macro1()
' Macro1 Macro
For i = 1 To 10　'10回繰り返し
Range("A1:B5").Select　'("A1:Ｂ5")をセレクト
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("B1:B5"), _
SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
With ActiveWorkbook.Worksheets("Sheet1").Sort
.SetRange Range("A1:B5")
.Header = xlGuess
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With　'並び替え：Ｂ列、降順
Selection.Copy　'コピー
Range("E1").Select
ActiveSheet.Paste　'Ｅ1に貼付け
Columns("G:G").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove　'Ｇ列に1列挿入
Next i
End Sub
以上

回答No.1

chachaboxx

先ずは手作業(マウス操作)でやりたいことをやってみて、結果を確認してみては如何でしょうか？
操作(マクロ処理)内容とループ文は別の要素です。手作業を繰り返して得られる内容とマクロで得られる内容は同じです。

補足

200列ほどいりますので、200回ポチはなかなか
今はボタンを2個作っていまして
1つのほうで、ソートをもう一つで移動させてと
コードは超ながいですよ