Vlookupで作った表の作成

質問

初めての投稿で要領が得られないお願いですが、回答お願いします。
Sheet１のAに1～100のナンバーがふられた販売データがあります。
A　　　B 　　　C 　　 D　 　　 E 　　 　F 　　　G　　　
NO 　課名　 担当名　注文No.　顧客名　　売上　　製品　　
１　一営　　山田　　X1230　　松下　　10,000円 　冷蔵庫　
２　二営　　鈴木　　Y3450　　日立　　20,000円 　テレビ
３　三営　　加藤　　W5670　　東芝　 　5,000円 　洗濯機
ＶＬＯＯＫＵＰにより、Sheet2にNOに連動した帳票を作ります。
NO(1)
課名　　　担当名　　　オーダNo.　　
一営　　　山田　　　　X1230　
顧客名　　売上　　　　製品
松下　　　10,000円 　冷蔵庫
このNOに連動したsheet２のNO1～100の帳票をsheet名１からsheet名100を作るマクロを教えてください。このとき、VLOOKUPのの関連式は値としたい。

回答No.2

mt2008

先に前の質問を締められては？

Sheet2はある物と考えて良いのですよね？
手抜き版ですが作って見ました。
手抜き版ですので、エラー処理等はなしです。
ご自分でマクロを作成されるつもりは無いのかもしれませんが、解説も加えましたので参考にしてください。

Sub Sample()
　Dim i As Long
　For i = 100 To 1 Step -1
　　Sheets("Sheet2").Copy Before:=Sheets(1) 'Sheet2のコピーをブックの先頭に作成
　　Sheets(1).Name = Format(i, "0") 'コピーしたシートの名前を1～100　に
　　Sheets(1).Select 'コピーしたシートを選択
　　Range("A1").Value = i 'Vlookup用検索値のセル（A1?）の値をシート名と同じに
　　Cells.Select 'シート全体セレクト
　　Selection.Copy 'セレクト範囲(シート全体）コピー
　　Selection.PasteSpecial Paste:=xlPasteValues '値のみ貼り付け
　　Application.CutCopyMode = False 'コピーモード終了
　Next i
End Sub

回答No.1

imogasi

多分例の数が少ないため、何をしたいのか判りにくい。
Sheet2の表
もう少し、多くの場合を書かないと判らないよ。
＞NOに連動した帳票を作ります。
の意＝様子＝まとまりをまとめるだけなのでしょう。
課名ごと？
担当者別？
ーー
このSheet2の並び順はなに？便利に参考になるように見えないが。
ーーー
VLOOKUPは何かに基づいて、同行の他の列の情報（データ）をとってくるものです。
検索データと、以って来るデータは何ですか。
ーー
VBAではVLOOKUP関数を使わなくてもFindメソッドを使えばよい。
ーー
この質問の課題解決に、VBAを使うのですか。VBAの経験は有るのですか？
＞VLOOKUPのの関連式は値としたい
意味不明。