|
こんにちは。かみちゃん です。
>元データのファイルから順番に一行ずつコピーし、雛型の別ファイルへそのデー
>タをペイスト。で、そのファイルを名前をA列にある名称で保存していく、とい
>うのを繰り返すというもの。
「マクロの記録」である程度まではできます。
そして、For 〜 Next で繰り返し処理を加えると、こんな感じになります。
Option Explicit
Sub Macro1()
Dim Wb2 As Workbook
Dim LastRowNo As Long
Dim RowNo As Long
'雛形ブックを指定(あらかじめオープンしておく)
Set Wb2 = Workbooks("Test0807_2.xls")
'A列の最終列を取得
LastRowNo = Range("A65536").End(xlUp).Row
For RowNo = 1 To LastRowNo
If Range("A" & RowNo).Value <> "" Then
'A1:D1を雛形ブックのSheet1のA1セルにコピーする。
Range("A" & RowNo & ":D" & RowNo).Copy Destination:=Wb2.Sheets("Sheet1").Range("A1")
'雛形ブックのSheet1のA1セルの名前で保存する。
'保存先フォルダは、このマクロブック(ThisWorkbook)と同じフォルダ
Wb2.SaveAs Filename:= _
ThisWorkbook.Path & "\" & Wb2.Sheets("Sheet1").Range("A1").Value & ".xls"
End If
Next
Set Wb2 = Nothing
MsgBox "終了しました。"
End Sub
|
|