左隣のシートをコピーして挿入

質問

よろしくお願いします。

エクセルで左にあるシートをコピーして右に新たに挿入する（キーボードで作業した場合、左のシートをクリックしてｃｔｒｌキー+左クリックで右にドラッグしてはなす）マクロってどうやったらよろしいでしょうか？

回答No.3

imogasi · ベストアンサー

まず初心者なら、シートの操作をし、マクロの記録を採ってコードをながめて、考えてから質問すること。的を絞れるようになるのが学習だ。
マクロの記録は
Sub Macro4()
Sheets("Sheet1").Select
Sheets("Sheet1").Copy Before:=Sheets(3)
Sheets("Sheet1 (2)").Select
End Sub
のようになる。シートの指定が具体的になっている。これを相対化するには、どうするか、ぐらいの質問までは行き着いて質問すること。
左のシートのインデックス番号は
Sub test01()
MsgBox ActiveSheet.Previous.Index
End Sub
で判る。
l=ActiveSheet.Previous.Indexで、Sheets("Sheet1")をSheets（ｌ）.Selectを置き換える。
Before:=Sheets(3)の3は
Sub test01()
MsgBox ActiveSheet.Next.Index
End Sub
で確認できる。
名前でやるなら、
Sub test02()
MsgBox ActiveSheet.Previous.Name
MsgBox ActiveSheet.Next.Name
End Sub
をやればわかるだろう。
ーーー
前半のコピーのコードは、お決まりのマクロの記録で出来る。
Previous,Nextは経験やVBA解説書の読書で学ばなければ仕方がない。

回答No.4

keithin

sub macro1()
　if activesheet.index = 1 then
　activesheet.copy after:=activesheet
　else
　activesheet.previous.copy before:=activesheet
　end if
end sub
みたいな？

回答No.2

・真 綾・（@Ma-yan_bh1011）

＞左隣のシートがシート１とかの名前ではないのでそれだとエラーになってしまいます。
Sheets(1)は名前ではありません。ためしもしないでエラーとか言わないように。

じゃあ
Activesheet.Copy After:=Activesheet
こうですか？
「左隣」の意味が不明ですが、これでアクティブなシートを右隣にコピーします。

お礼

ご回答ありがとうございます。

Activesheet.Copy After:=Activesheetで隣のシートがコピーできました。

助かりました。

回答No.1

・真 綾・（@Ma-yan_bh1011）

Sheets(1).copy After:=Sheets(Sheets.Count)

それぞれの意味は自分で確認してください。

補足

すいません。
左隣のシートがシート１とかの名前ではないのでそれだとエラーになってしまいます。

左隣のシートの名前がどんな名前でも左隣のシートをコピーして挿入するマクロが知りたいです。