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

質問

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

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）の記述がいけないのでしょうか？
行き詰っておりますので、どなたかお助けください！

回答No.6

queuerev2 · ベストアンサー

横から失礼致します。

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

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

です。

Excel2003と2007で検証しました。

お礼

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

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

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

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

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

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

回答No.5

TAKA_R

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

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

お礼

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

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

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

回答No.4

mar00

Range(Worksheets("Sheet1").Columns(i), Worksheets("Sheet1").Columns(j)).Copy Destination:= _
Worksheets("Sheet2").Columns("C")
ではどうでしょうか。

お礼

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

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

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

回答No.3

TAKA_R

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

お礼

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

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

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

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

回答No.2

TAKA_R

いけないのかどうかは分かりませんが、
range(columns("c"))を　range(columns("c:c")) または　range(columns(3))　はたまた range("c1")
にするとうまくいくかと思います。

お礼

やはり、私の書いたコードと同じエラーが出てしまいました。

候補をたくさん教えていただき、ありがとうございました。

回答No.1

mar00

Worksheets("Sheet1").Range(Columns(i), Columns(j)).Copy Destination:= _
Worksheets("Sheet2").Columns("C")
としてみてはどうでしょうか。

お礼

私の書いたコードと同じく、

アプリケーション定義またはオブジェクト定義のエラーです。

と出てしまいました。

早速のご回答、ご回答ありがとうございます。