エクセルのコマンドボタンで、

質問

コマンドボタンで、Sheet1のA2セルからA100セルとC2セルからC100セルをコピーしたものを、Sheet2のB2セルからB100セルと、C2セルからC100セルに貼り付けるには、どのように書けばいいのでしょう？
何度やっても上手くいきません。

教えてください。

回答No.2

pkh4989 · ベストアンサー

失礼しました。

Worksheets("sheet1").Range("A2:A100").Copy Destination:=Worksheets("Sheet2").Range("B2")
Worksheets("sheet1").Range("C2:C100").Copy Destination:=Worksheets("Sheet2").Range("C2")

お礼

こんばんは。
すぐに教えていただきありがとうございました。
昨日から、ずっと、何度やっても上手くいかず困り果てていました。
教えられた内容をコピーさせて頂き、コマンドボタンに貼り付け動かして見ました。
あんなに困っていたのに、うそのように、願っていたとおりに動作してくれ感激しています。
本当にありがとうございました。
これで、仕事もはかどります。
また、質問させていただいた際は、よろしくお願いします。
「マクロがすぐに分かるってすごいですね？」カッコいいです。

回答No.3

hallo-2007

Worksheets("Sheet2").Range("B1:B100").Value = Range("A1:A100").Value
Worksheets("Sheet2").Range("C1:C100").Value = Range("C1:C100").Value
でも結果OKではないですか。

お礼

いろんなやり方があるんですね。只今勉強中なのですが、本当に難しいです。「教えてgoo」の皆さんには、いつも助けていただいてばかりです。これからも、分からないことが合った場合よろしくお願いします。ありがとうございます。大変勉強になりました。

回答No.1

pkh4989

こんにちは。

Worksheets("sheet1").Range("A2:C100").Copy Destination:=Worksheets("Sheet2").Range("B2")