エクセルシート＜作業手順書＞を大量にコピーする

ネットワークを構築していると、同じパターンの拠点を大量に構築する場合があります。その場合、ネットワーク構成は同じで、IPアドレス等、いくつかパラメータが違うだけです。構築する際の作業手順書もほとんど同じで、パラメータが少し変わっただけというものになります。

このような場合、テンプレートの作業手順書を作成しておけば、拠点名等一部のパラメータを変えることで手順書が完成します。しかし、大量に作成するとなると手作業ではミスも出るし、面倒です。エクセルで自動作成してしまいましょう。

■マクロ実行前の作業手順書と拠点リスト

■マクロ実行後

各拠点ごとに作業手順書のシートが作成され、各シートのセルA1に拠点名が記載されます。

プログラムは以下のようになります。

Sub CopySheet()

'作業手順書を対象拠点数分作成する

'カーソル位置をセル開始として拠点リストをなめて手順書を作成する

 

'①拠点リストの開始行、最終行を取得する

srow = ActiveCell.Row

scol = ActiveCell.Column

erow = Range(Cells(65536, scol), Cells(65536, scol)).End(xlUp).Row

ecol = ActiveCell.End(xlToRight).Column

'②拠点シートのシート名を取得

BaseList = ActiveSheet.Name

For Row = srow To erow              '対象拠点数分繰り返す

    Worksheets(BaseList).Activate

    If Cells(Row, scol) <> "" Then

'③拠点名を取得して、その拠点名の手順書をコピーする

        Bname = Cells(Row, scol)

Sheets("作業手順書").Copy before:=Sheets(Sheets.Count)

ActiveSheet.Name = Bname

Worksheets("作業手順書").Activate

Cells.Select

Selection.Copy　　　　　　　　 '④手順書の中身をコピーして

Sheets(Bname).Select

Cells(1, 1).Select

ActiveSheet.Paste　　　　　　 '④貼り付ける

Application.CutCopyMode = False

Cells(1, 1) = Bname　　　　　　'⑤拠点名を手順書のセルA1に記載する

    End If

Next

 MsgBox erow - srow + 1 & "拠点シートを作成しました"

End Sub