エクセルでシート複製（マクロ)

質問

いつもお世話になります。
いろいろ検索して下記のコードにたどり着きましたが、c10の値のシートが「現在」のシートの左側にきてほしいのですが、afterをbeforeにすると「現在(2)」-「c10の値」になってしまいます。
ちなみに下記コードを実行すると「現在」-「c10の値」の並びになります。
欲しいのは「c10の値」-「現在」の並びです。
マクロを実行する度にシートが右に増えていくイメージです。
よろしくお願い致します。

Sub 現在()
Sheets("現在").Copy after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Name = Range("c10").Value
End Sub

回答No.4

keithin · ベストアンサー

＞「c10の値」-「c10の値（2）」-「現在」にする事は出来ますか？

C10の値が，そもそもシート名として使える正しい内容になっているとします
(その意味では，C10の値がダブっている（シートが既にある）というのも，元のご相談からすればヤリタイ事から間違ってると言う事もできます)

sub macro1r1()
　dim n as long

　worksheets("現在").copy before:=worksheets("現在")
　on error goto errhandle
　activesheet.name = range("C10").value & iif(n = 0, "", format(n, "(#)"))
　exit sub

errhandle:
　n = n + 1
　resume
end sub

＃(2)にするだけならもっと簡単ですが，そういうお話じゃないので余計な手間が入っています。
これ以上の新しいヤリタイ事が発生したときは，ついでに聞いちゃえじゃなく新しいご相談として投稿し直してください。

お礼

思った通りになりました。
結果2つの質問にこたえていただきありがとうございました。
以後気を付けます。

回答No.3

keithin

もっとシンプルに
sub macro1()
on error resume next
worksheets("現在").copy before:=worksheets("現在")
activesheet.name = range("C10").value
end sub
とかでイイです。

＞c10の値のシートが「現在」のシートの左側にきてほしい
　：
＞マクロを実行する度にシートが右に増えていくイメージ

書き間違いですかね。

補足

＞マクロを実行する度にシートが右に増えていくイメージ
失礼しました。実行する度に「現在」シートのすぐ左に増えていくイメージです。

c10の値に変化がない場合でマクロを2回実行すると、「c10の値」-「現在（2）」-「現在」となります。
ここを「c10の値」-「c10の値（2）」-「現在」にする事は出来ますか？

回答No.2

y_shimizu

before指定で合ってます。
beforeで指定したシートの前にコピーされるので、
その後のシート名を変えるところが最後のシートの名前変更のままだと
例えばシート1のみのブックで
シート1のbeforeにコピー　＝＞シート1(2),シート1
最後のシートの名前変更　＝＞シート1(2),xxx
となってしまいます。

簡単に書くと以下のようにすればいいと思います。
Dim a As Worksheet
Set a = Sheets("Sheet1")
Call a.Copy(before:=a)
a.Previous.Name = a.Range("a1").Value
Set a = Nothing

回答No.1

shintaro-2

Sheets.Addを使うと、
アクティブシートの左側にシートを挿入します。

ですので、
Sheets.Addを使った後に、
シート名を変えるとかデータのコピーをしては如何？