Excel に「コピー用ボタン」追加。初心者です

質問

Excel に「コピー用ボタン」をなんとか追加しました。
内容を作成しようとしましたが初心者で判りません。
以下のようにしたいのですが、

Sheet1の３０行のA30～AZ30までのセルの内容を、Sheet２に上書きする。
Sheet２の1０行～300行の中に、「Sheet1のB30と同じ内容」があります。

使用方法は、「コピー用ボタン」を押すと、Sheet1の「B30の内容と同じ」ものを
Sheet２にコピーするものです。

Excel　2007　を使用しています。
以上、よろしくお願い致します。

回答No.2

imogasi · ベストアンサー

補足ありがとう。
質問は、こう表現しては。
「Sheet1のB30のセルの値と、同じ値の行を、Sheet2のB列で捜し、みつかった行＝第ｘ行の、行全体Ax：AZｘにSheet1のA30:AZ3０の値を貼り付けたい。」
ーー
（１）１行ずつ探す
（２）Findメソッドで探す
（３）フィルタで探す
など思いつくが、（２）なら、本件事例がB列に１つしか見つからない構造なら（もともと、質問に注記すべきなのだ）
例データ
Sheet1の第３０行
1 ABC1 2 3 4・・略
Sheet2のA10:E13
1 AAC1 5
3 ZDC7 3
5 ABC1 5
8 VBC1 8
-----------
Sheet1にボタンを１つ貼り付け
そのクリックイベントに
コード
Private Sub CommandButton1_Click()
d = Worksheets("Sheet2").Range("B65536").End(xlUp).Row
x = Worksheets("Sheet1").Range("B30")
r = Worksheets("Sheet2").Range("A2:B" & d).Find(x).Row
Worksheets("Sheet1").Range("A30:AZ30").Copy Worksheets("Sheet2").Range("A" & r)
End Sub
ーーー
ボタンをクリックすると
結果　Sheet2
A1:E13　F列以右列省略
1 AAC1 5
3 ZDC7 3
1 ABC1 2 3 4
8 VBC1 8
Sheet2にABC1が沢山在る場合は、Googleででも「エクセル　Findメソッド」で照会し、コード例があるから、それに習って、上記に数行書き加え、書き換えてください。

お礼

返事が遅くなり申訳ありません。
「コピー用ボタン」を押すと、「オブジェクトエラー 91 」が発生し、今まで調べていました。
原因は、検索用Bの値の文字間にスペースが有った為でした。
質問の方法、マクロのすっきりした記述等、ご教示ありがとうございました。

回答No.1

imogasi

質問に書いていることがさっぱり判らない。
＞Sheet1の３０行のA30～AZ30までのセルの内容を、Sheet２に上書きする。
第３０行目をSheet2に「上書きする」とは？。エクセルでは、ファイル以外は「上書きする」という言葉は余り使わない。
Sheet2のどのかの行１行に貼り付けるのではないの？
＞Sheet２の1０行～300行の中に、「Sheet1のB30と同じ内容」があります
質問のそれまでとどう関係するの？
＞Sheet1の「B30の内容と同じ」ものをSheet２にコピーするものです。
Sheet2のどのセルに貼り付けるのか。
ーー
何か言い表せていないことがあるようだ。
ーー
エクセルを勉強して、言いたいことをエクセル向けの表現が出来るように勉強のこと。

お礼

回答ありがとうございます。
表現方法が不適切で申訳ありません。

Sheet1の30行にある「B30セルの内容」と、
Sheet2内の「Bの桁にある同じセルの内容」と合致した箇所に、
Sheet1の30行のセルの内容（A30～AZ30）を上記の箇所に
そのまま貼り付けます。
例えば、
　　　　　　　　A桁　　B桁 　C桁　　,,,,,　　AZ30桁
Sheet1の30行　　1　　ABC1　　1　　,,,,,

Sheet2の10行　　1　　AAC1　　5　　,,,,,
　　　 　11行　　3　　ZDC7　　3　　,,,,,
　　　 　12行　　5　　ABC1　　5　　,,,,,
　　　 　13行　　8　　VBC1　　8　　,,,,,

※Sheet1の30行の内容をSheet2の12行に貼り付けます。