excelのマクロをつかったコピー
excelのマクロを使ってもとのシートのデータをコピーして新しいブックに貼り付けを行い、ブック名を指定して保存させることを繰り返したい。
excelのマクロで以下の作業が出来ないかと考えております。
1.選択したシートのAC(i)~CW(i)をコピー (i=3,n)
2.ブック『雛形』(コピー先のテンプレートブック)を開く
3.開いたブックのSheet1のB3~BU3に値をペースト
4.同様にSheet1のB3~BU3に書式をペースト
5.ブック名を指定して保存。(ブック名は"シート名""-""i(桁指定3桁)")
6.2~5を繰り返す。iはコピー元のデータがブランクになるまで繰り返す。
なお、コピー元のAC(i)~CW(i)はいくつかの結合セルとなっており、同シート内のB(i)~P(i)を参照して値を表示する関数を組んだデータとなっています。
作成したいブック数が3000ファイル程度になる為、手作業で行うには時間がかかりすぎるため何とか作業効率をあげたいと考えております。
操作を行ってみて記録したマクロを自分でいじってループさせられないかやっていますがうまくいきません。
Sub Macro1()
Dim i As Long
For i = 3 To 100
Sheets("Aエリア").Select
Range("AD(i):CW(i)").Select
Selection.Copy
Workbooks.Open Filename:="(雛形ファイル名).xls"
Range("B4").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Selection.PasteSpecial Paste:=xlPasteFormats, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False
Range("B2:BU4").Select
Range("B4").Activate
Application.CutCopyMode = False
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlMedium
.ColorIndex = xlAutomatic
End With
Range("AZ6").Select
ファイル名 = "(新規保存ブック頭文字)"
Application.Dialogs(xlDialogSaveAs).Show (ファイル名)
Next
End Sub
よろしくお願い致します。