2017-01-25 14 views
0

行の列参照を使用してExcel 2013 VBAでデータをコピーして貼り付けるのが難しいです。VBAでのセル/行の参照を使用したデータのコピーと貼り付け

ここで(エラーメッセージを作成します)失敗した私のコードの抜粋です: 「定義アプリケーションまたはオブジェクト定義のエラー」

Worksheets("Sheet2").Range(Cells(1, 1), Cells(3, 3)).Copy Worksheets("Sheet1").Range(Cells(1,1)) 

ここで(コピー範囲A1作品の代替バージョンです:1からC3は、他のワークシート:?私は、行と列のすべての参照が変数である範囲をコピーして貼り付けることができるようにしたいので

Worksheets("Sheet2").Range("A1:C3").Copy Worksheets("Sheet1").Range("A1") 

は、なぜ私は、行/列の方法に固執しています。これは私の個人のためです。知識。

ありがとうございます!

+0

*は*(エラーメッセージを作成する)失敗した、とあなたは*エラーメッセージが*言っている私たちに伝えるために有用であろうとは思いません?すでに問題に関する情報を私たちに与えておけば、問題を解決する方がはるかに簡単です。定義によるエラーメッセージには、**問題の原因**に関する情報を提供する**メッセージ**が含まれています。それはあなたの目の前の画面にはっきりとあります - あなたが求めている人々とそれを分かち合うことができない理由は何でしょうか?**自由な助け**あなたの問題**を解決するには? –

+0

申し訳ありませんが、エラーメッセージが追加されました。 – ChrisG

+0

良い**正確な**エラーメッセージ(あなたの投稿に含まれている部分的なものではなく、エラーメッセージ全体)を使ってこのサイトを検索し、文字通り何十件もの既存の質問があなたに答えられないかどうかを確認します。エラーの部分一致で数十回も答えられたという事実を特定できるので、まず最初に検索する努力をしていませんでした。実際、含まれている部分メッセージの検索は、おそらくあなたに答えを提供するでしょう。 –

答えて

1

Cellsは、ActiveSheetを参照してください、それはあなたの可変資格を見てください。また、ここでは、ユーザがワークシート名を変更しないようにするために、CodeNamesWorksheet.CodeNameを使用しました。私はあなたが何をしたいと考えてい

はこれです...

Option Explicit 

Sub Test() 

    Sheet2.Range(Sheet2.Cells(1, 1), Sheet2.Cells(3, 3)).Copy Sheet1.Cells(1, 1) 

End Sub 
+0

」がテストされ、確認されました。これは大いに役立ち、今私が忘れた場合のために私のStackOverflowの歴史にあります。ありがとう! – ChrisG

関連する問題