EXCEL2013 シート内容を別ブックに転記するマクロについて教えてください

EXCEL初心者です。宜しくお願い致します。
以前は「データ追跡機能付きテンプレート ウィザード」を使用して見積もりシートに入力した
データを別の（見積もりデータ）ブックに転記して、管理していました。
しかし、EXCEL2013に変更になり「データ追跡機能付きテンプレート ウィザード」のアドインを
設定しましたが上手く機能しません。
そこでマクロでと思いｗｅｂを色々検索しましたが、初心者の私には敷居が高く、こちらで
教えていただければと思い質問しました。
画像の様に転記したいと思っています。

No.1 回答者： OrangeRat 回答日時： 2017/06/22 15:11

下をお試しください。

・画像右側のEXCELファイルを開く
・「名前を付けて保存」から「Excel マクロ有効ブック」として保存する。
・Altを押しながらF11を押す
・Microsoft Visual Basicが起動して、左側で「ThisWorkbook」が選択されていることを確認する。
・右側の白い場所に以下をコピーペーストする


Sub test()
template = Array("H6,A", "B7,B", "B8,C")

NowRow = Cells(Rows.Count, 1).End(xlUp).Row + 1
Set initialSheet = ActiveSheet
OpenFileName = Application.GetOpenFilename("Microsoft Excelブック,*.xls?")
Set dataWB = Workbooks.Open(OpenFileName)
Set dataSheet = dataWB.Sheets(1)
dataWB.Activate
For i = 0 To UBound(template)
dataCell = Split(template(i), ",")(0)
putCell = Split(template(i), ",")(1) & NowRow
initialSheet.Range(putCell) = dataSheet.Range(dataCell)
Next
dataWB.Close
End Sub


・F5を押す
・ファイル選択画面が出るので、左のファイルに該当するものを選択してOKを押す

こうすると、（画像がつぶれているので間違っているかもしれませんが、）A～Bについて転記されると思います。
他の場所については、先ほどコピーペーストしていただいたもののうち、2行目、
Array("H6,A", "B7,B", "B8,C")
の部分をご自身で追加編集等なさってみてください。

この回答へのお礼

ご回答誠にありがとうございます。
体調を崩しており、ご返事が大変遅くなりました。
誠に申し訳ございません。

お礼日時：2017/06/30 18:31