EXCELでのリスト作成について

質問

このサイトでこのようなマクロを教えてもらいました。
そこでこれはシートの左側からリストシートに表示していくのですが、右側からリストにしていく方法はないでしょうか？

よろしくお願いします。
-------------------------
Sub テスト()
ActiveWindow.WindowState = xlNormal
Dim i As Integer, r As Range
With Worksheets("リスト")
.Hyperlinks.Delete
.Range("B4:B65536").ClearContents
For i = 2 To Worksheets.Count
Set r = .Cells(((i - 2) Mod 20) + 4, 2 + Int((i - 2) / 20))
r.Value = Worksheets(i).Name
.Hyperlinks.Add Anchor:=r, Address:="", _
SubAddress:=Worksheets(i).Name & "!A1"
Next i
End With
Columns("B:B").EntireColumn.AutoFit
End Sub
-------------------------

回答No.2

imogasi · ベストアンサー

＃１です。
（１）私のコードではInt((wc - i) / 5) + 1が列を表しています。これを
cl = Int((wc - i) / 5) + 1
Set r = .Cells(((wc - i) Mod 5) + 4, (cl - 1) * 2 + 1)
に改めれば良い。
（２）＃１のコードの下に１列おきの列挿入をする方法も
あります。
Sub test02()
r = Range("IV1").End(xlToLeft).Column
For i = 1 To r
Columns((i - 1) * 2 + 2).EntireColumn.Insert
Next i
End Sub

回答No.1

imogasi

（テストシート）
リスト（左端）以下右に
材料
Sheet7
Sheet11
・・・
Sheet2
商品
（結果）第４行目から
商品 Sheet9 Sheet13
Sheet2 Sheet8 Sheet12
Sheet4 Sheet16 Sheet11
Sheet1 Sheet15 Sheet7
Sheet10 Sheet14 材料
となりました。
（コード）
(注）テストシート数を沢山作るのが面倒で、２０シート
づつを５シートづつに修正。元に戻し方は、MODとINTの５－＞２０で良いでしょう。
Sub テスト()
ActiveWindow.WindowState = xlNormal
Dim i As Integer, r As Range
With Worksheets("リスト")
.Hyperlinks.Delete
.Range("B4:B65536").ClearContents
wc = Worksheets.Count
For i = wc To 2 Step -1
Set r = .Cells(((wc - i) Mod 5) + 4, Int((wc - i) / 5) + 1)
r.Value = Worksheets(i).Name
.Hyperlinks.Add Anchor:=r, Address:="", _
SubAddress:=Worksheets(i).Name & "!A1"
Next i
End With
Columns("B:B").EntireColumn.AutoFit
End Sub

補足

ありがとうございます。
これを１列おきに入れていく方法はありますでしょうか？