一覧表をデータを別シートに自動貼り付けできますか

質問

エクセルで工場で扱っている部品管理したいと思っています。
現在、自分なりに考えて、
入力用シートで概要入力をし、別シートで詳細をわかるように管理したいと思ってます。

構成は入力シート（１）、別シート約５００シート以上です。

入力用シートに、以下のように入力しています。

　　　A　　　　B　　　　　C　　　　　D　　　　　E　　　　F　　　　G　　　　　H
1 　　No 部品番号　名称　製造番号　有効期限　種類　仕入れ先　残数
2 　　　 1 123456 　　 テスト　　123 　　　　 2012/4 　　　 D 　　　　 A社　　　　2
3 　　 2 852 　　　　 Ring 　　　　 456 　　　 2012/7 　　　C 　　　 B社　　　　　3　
4 　　 3

このように項目が約５００項目以上あります。
これを添付画像のように、別シートで部品ごとに詳細管理しています。
入力シートは入力できたのですが、各シートに該当部分を貼り付ける作業が膨大に時間かかりそうなので、マクロで自動貼り付けはできないものでしょうか？

データベースに近い形になるかもしれないので、アクセス使ったほうがいいのはわかっていますが、予算がとれなくてどうしてもエクセルでしたいと思っています。

初めて質問するので、わかりにくい文章かもしれませんが、よろしくお願いします。
不明点あれば教えてもらえれば、説明します。

回答No.2

nao-y · ベストアンサー

失礼しました。
ソースコードの

> Set detailSheet = Sheets.Add(After:=Sheets(Sheets.Count))

を

tempSheet.Copy After:=Sheets(Sheets.Count)
Set detailSheet = ActiveSheet
detailSheet.Name = origSheet.Cells(i, 2).Value

に置き換えてください。

お礼

ソースを修正したら、無事にできました。
これであっという間に処理できます。
ありがとうございました。

修正部分ですが、これをベストアンサーとさせていただきました。

回答No.1

nao-y

マクロでできます。

以下を前提としたソースコードです。
・入力シートのシート名は「入力」
・部品ごとのシートのテンプレートをシート名「テンプレート」として準備
・1つの部品番号に対しては1つの仕入先のみ

Sub macro()
Dim i As Long
Dim origSheet As Worksheet
Dim tempSheet As Worksheet
Dim detailSheet As Worksheet

Set origSheet = ActiveWorkbook.Sheets("入力")
Set tempSheet = ActiveWorkbook.Sheets("テンプレート")

For i = 2 To origSheet.Range("A2").End(xlDown).Row
Set detailSheet = Sheets.Add(After:=Sheets(Sheets.Count))
detailSheet.Range("C3").Value = origSheet.Cells(i, 2).Value
detailSheet.Range("I3").Value = origSheet.Cells(i, 3).Value
detailSheet.Range("C5").Value = origSheet.Cells(i, 4).Value
detailSheet.Range("I5").Value = origSheet.Cells(i, 5).Value
detailSheet.Range("L2").Value = origSheet.Cells(i, 6).Value
detailSheet.Range("A7").Value = origSheet.Cells(i, 7).Value
detailSheet.Range("G7").Value = origSheet.Cells(i, 8).Value
Next i
End Sub

-----
ただ問題として、実際には1つの部品について仕入先は複数、ということに
なるかと思います。
その場合、入力データの1行で表すのか仕入先の件数分の行数を使うのかによって
ソースコードが変わってきます。
その辺りどうなってますか？
それによって、ソースコードを見ながらどう改変すればよいか検討してみてください。

お礼

早速の回答ありがとうございます。

早速実行して驚きました。
一つ問題がありまして、
入力シートから新しいシートにデータ入力はされるのですが、テンプレートが活用されていないみたいなんです。　空白部にデータ値のみ入力されている感じです。　ソースコードを自分なりにさわってみたのですが、解決できませんでした。
ご指導よろしくお願いします。