VBAの文字検索、コピーについて質問です。

質問

VBAの文字検索、コピーについて質問です。
いつもお世話になっています。
VBAにて別のブックのある一つの文字を検索し、貼り付けをする作業を行いたいのですがなにか良い方法はないでしょうか？

注意点
1）ブック1が入力シート、ブック2が貼り付けシートとします。
2）ブック1はブック2に情報を張り付け終えたらその列を削除します。
3）検索値は数字です。ブック1のB1が必ず検索したい番号になります。
4）ブック2の1行目からブック1のB1の数字を探し出して張り付けたいです。
5）貼り付け時、値のみの貼り付けを行いたいです。

例：
ブック1
　A　　　　B　　C　　　D　　　E　　F　　　G　　　H　　I　　J　　K
1　　　　21　　22　　23　　24　　25　　26　　27　　28　　29　30
2山田　　1
3田中　　3
4佐藤　　5
5鈴木　　1

ブック2
　A　　・・・　T　　　U　　　V　　W　　X　　　Y　　　Z　　　AA　　AB
1　　・・・・19　　20　　21　　22　　23　　24　　　25　　26　　27　・・・・・
2山田 　　　2　　1
3田中 　　　3 　2
4佐藤　　　　　5 　5
5鈴木 　　　1 　0

削除以降の作業は自分で考えられたのですが、この作業のコードはうまく出来ません。
コードすらどうしたらいいか考えています。
どうか宜しくお願い致します。

回答No.1

mar00 · ベストアンサー

'二つのブックを開いている前提で
Sub Macro1()

BOOK_NAME1 = "Book1.xls" 'ブック名はここを変えて下さい。
BOOK_NAME2 = "Book2.xls" 'ブック名はここを変えて下さい。

Windows(BOOK_NAME1).Activate
GYOU = Cells(Rows.Count, 1).End(xlUp).Row
RETU = Range("B1") + 1
Range(Cells(2, 2), Cells(GYOU, 2)).Copy
Windows(BOOK_NAME2).Activate
Cells(2, RETU).PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Application.CutCopyMode = False
Windows(BOOK_NAME1).Activate
Range(Cells(2, 2), Cells(GYOU, 2)).EntireColumn.Delete
End Sub

お礼

遅くなり申し訳ありません！
ありがとうございました！