VBA シートのコピー

質問

シートをコピーし、挿入をシートの末尾にする場合はどうなりますか？
マクロを使ってやったときに、20のシートがあったため、下記のようになりますが、これだと、２回目以降にコピーしたとき20番目に挿入されて末尾には移動しないですよね。
そこは、どうしたらいいですか？？

シート名「あああ」
Sheets("あああ").Copy After:=Sheets(20)

お願いします。

回答No.1

shiotan99 · ベストアンサー

こんにちは～

↓でどうでしょうか？

Sheets("あああ").Copy after:=Sheets(Sheets.Count)

お礼

ありがとうございます。
なんともお早いお答えにびっくりしました。

回答No.3

hana-hana3

Dim ws As Worksheet
Dim idx As Integer
For Each ws In Worksheets
idx ws.Index
Next
Sheets("あああ").Copy After:=Sheets(idx)

ＦＯＲ文を使って末尾のインデックス番号を取得します。

回答No.2

merlionXX

Sub test()
Dim i As Integer
i = Sheets.Count
Sheets("あああ").Copy After:=Sheets(i)
End Sub