エクセルVBA　別シート間の列のコピー＆ペースト

解決済

質問者：rko910
質問日時：2012/08/27 16:54
回答数：6件

列のコピー＆ペーストができません。

i, j は変数で、Integerで定義しており、省略はしていますが、期待通りの値がi,　j　には代入されています。

Sheet1のi列からj列をコピーし、Sheet2のC列（これは固定）に貼り付けたいのですが、うまくいきません。

私の書いたコードは下記の通り。　下記は改行されていますが、実際のVBAでは１行で書かれています。

Worksheets("Sheet1").Range(Columns(i), Columns(j)).Copy Worksheets("Sheet2").Range(Columns("C"))

貼り付け先（Destination）の記述がいけないのでしょうか？
行き詰っておりますので、どなたかお助けください！

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (6件)

ベストアンサー優先
最新から表示
回答順に表示

No.6ベストアンサー

回答者： queuerev2
回答日時：2012/08/29 23:55

横から失礼致します。

回答No.2の最後と回答No3のお礼の組み合わせでいかがでしょうか。

Worksheets("Sheet1").Activate
Worksheets("Sheet1").Range(Columns(i), Columns(j)).Copy Worksheets("Sheet2").Range("C1")

です。

Excel2003と2007で検証しました。

- 1
- 件

通報する

この回答へのお礼

お礼が遅れて申し訳ございません！

検証までしていただき、身に余る光栄でございます。

教えていただいた方法でも上手くいきました。ありがとうございます。

しかし、どのやり方でもSheet２にコードを書くとうまくいきませんでした。

まあ、これはそんなに大きな問題ではありませんので、良しとします。

どうもありがとうございました！

通報する

お礼日時：2012/09/03 15:56

No.5

回答者： TAKA_R
回答日時：2012/08/29 17:33

no.4さんのでシート１がactivateされていなくても、コピーできると思います。

シート１のコマンドボタンだから・・・と言っても、
よそのシートを開いたり
よそのシートに書き込んだり、
ほかのブックを開いてみたり、
何かするとよそのシートがactivateされてしまいます。

- 1
- 件

通報する

この回答へのお礼

お礼が遅れて申し訳ございません。

おっしゃる通りでした！Activateをしなくても上手くいきましたし、もちろんActivateしても同じ結果です。

どうもありがとうございました。

通報する

お礼日時：2012/09/03 15:54

No.4

回答者： mar00
回答日時：2012/08/29 16:42

Range(Worksheets("Sheet1").Columns(i), Worksheets("Sheet1").Columns(j)).Copy Destination:= _

Worksheets("Sheet2").Columns("C")
ではどうでしょうか。

- 1
- 件

通報する

この回答へのお礼

お礼が遅くなって申し訳ございません。

わたくしが、シート1にコマンドボタンがある、と書きましたが、コマンドボタンはシート2でした。
シート１にコマンドボタンを移したところ、上手くいきました！

どうもありがとうございました！

通報する

お礼日時：2012/09/03 15:51

No.3

回答者： TAKA_R
回答日時：2012/08/28 17:55

たびたび、すいません。

ひょっとしてコピー貼り付け先のシートがactivateされていませんか？
コピー元のシートがactivate状態で実行したら、同じようなエラーが出てたので・・・。

- 2
- 件

通報する

この回答へのお礼

回答ありがとうございます！

Copyの直前に
ActiveSheet.Name にて、アクティブシート名を取得してみたところ、

Sheet２と出ました。ちなみにこのコードは、シート１のコマンドボタンにて動くようになっています。

Copyの前にWorksheets("Sheet1").Activate としても、同様のエラーです。。。

通報する

お礼日時：2012/08/29 15:57

No.2