シートをたくさんコピーするには？シートを日付順にコピーするには？

質問

こんにちは、みなさん！！

エクセルのシートのコピーについて

Q1、シートのコピーはコピーするシートをクリックして
Ctrlキーを押しながら右側へドラッグすると１つコピーできますが、１つだけではなく、１０個ですとか、２０個など多数のコピーを１回ですることはできますでしょうか？

Q2、シート名が例えば「１月１日」とあった場合に、これを１月２日、１月３日・・・・・というように、連続してコピーすることはできませんでしょうか？

以上ご存知の方いらっしゃいましたらよろしくお願いします。

回答No.6

bonaron · ベストアンサー

> 1枚のシートのコピーを複数作成する、ということです。マクロ以外には方法はありませんでしょうか？

あまりエクセルは使わないのでわかりませんが、
おそらく無いでしょう。

普段、業務で使うブックにマクロがあるのがイヤなら、
マクロだけのブックを作り、使いたいときだけ、そのブックも開き、マクロの実行が終わったら閉じてしまう、という手もあります。

回答No.5

bonaron

1枚のシートのコピーを複数作成する、ということでしょうか？

コピーしたいシートをアクディブにしておいて
「SheetCopy」マクロを実行してください。
シート名は、「１月１日」のスタイルのみサポートします。

Option Explicit
Sub SheetCopy()
Dim sh As Worksheet
Dim shName As String
Dim wkDate As Variant
Dim wk As String
Dim cnt As Integer
Dim i As Integer

Set sh = ActiveSheet
shName = sh.Name
wkDate = Null

Do While True
wk = InputBox("コピー数を指定してください", shName, 1)
If wk = "" Then
Exit Sub
Else
If IsNumeric(wk) Then
cnt = wk
If cnt > 0 Then
Exit Do
End If
End If
MsgBox "コピー数が正しくありません", vbExclamation, shName
End If
Loop
If IsDate(shName) Then
wkDate = CDate(shName)
End If

On Error Resume Next
Application.DisplayAlerts = False
For i = 1 To cnt
sh.Copy after:=Sheets(Sheets.Count)
If IsDate(wkDate) Then
ActiveSheet.Name = Format(wkDate + i, "m月d日")
End If
Next
Application.DisplayAlerts = True
End Sub

補足

1枚のシートのコピーを複数作成する、ということです。マクロ以外には方法はありませんでしょうか？

回答No.4

akipapa

複数のシートを選択してコピーしたら、メニューバーの[編集]-[シートの移動またはコピー]の順でウィンドウ「シートの移動またはコピー」を表示します。[コピーを作成する]にチェックを付けて[ＯＫ]。
Excel2000では、上記操作できます。

回答No.3

imogasi

ＳＨＩＦＴキーを押しながら（コピーしたい）最左シートタブをクリック、次に（コピーしたい）最右のシートタブをクリック。
（コピーしたいシートタブをこの間に集めておく）
全てのシートを選択するなら、右クリックのメニューにある。
右クリックして、シートの「移動またはコピー」－「コピーを作成する」ー「末尾に移動」をチェックをいれる－ＯＫ
後半の２
シート名を連続変化させる操作はないと思う。ＶＢＡでも組まないと
できないと思う。
コピー元シート名（Ｘ）とＸの連番になる

回答No.2

holly0201

Q１について
シートの選択の方法は知ってますか？
セルの選択の方法と同じように「Shift」「Ctrl」を使いながら複数シートを選択できます。その状態で普段のコピー操作を行えば複数のシートのコピーが出来ます。

Q２については、わかりません。出来るのでしょうかね？私も知りたいです。

回答No.1

v_mullova

１．
セルを右クリックしてコピー
↓
コピーしたい範囲を左クリックで指定
↓
ペースト

２．
1月1日とセルに入力する
↓
入力したセルの右下を左クリック、押したまま下へドラッグ