0

単純な問題のように見える問題を教えてください。この質問は最後の手段に近いことに注意してください。私は通常のサイトをすべて試して答えを見つけましたが、イライラして成功しませんでした.

エクセルvbaを使用しています。ワークシートの値を同じブック内の別のワークシートにコピーしたいと考えています。

私が作成したコード行は次のとおりです。

Range(Cells(1, 4), Cells(1, 6)) = Worksheets("Summary Data").Range(Cells(1, 4), Cells(1, 6))

このコード行により、「実行時エラー 1004」が生成されます。

次のコード行を実行すると、正常に動作します。

Range(Cells(1, 4), Cells(1, 6)) = Worksheets("Summary Data").Cells(1, 4)

しかし、ワークシート「Summary Data」の範囲を別のワークシートにコピーしたい。

上記のエラーの説明および/または解決策を提供して、誰かが血圧の管理を手伝ってくれませんか?

4

2 に答える 2

0

それに続く簡単な解決策を教えます。マクロの記録を開始し、コピーするセルを別のシートにコピーしてそこに貼り付け、マクロの記録を停止します。次に、Visual Basic Editorに移動して、マクロコードを確認します。

于 2012-04-27T09:08:15.083 に答える
0

古い質問ですが...

おそらく、ステートメントを修飾する必要があります。

Range(Cells(1, 4), Cells(1, 6)).Value = _
  Worksheets("Summary Data").Range(Cells(1, 4), Cells(1, 6)).value

または、範囲をより完全に修飾します。

Dim ws1 As Worksheet, ws2 As Worksheet
Set ws1 = ActiveSheet
Set ws2 = Worksheets("Summary Data")

ws1.Range(ws1.Cells(1,4), ws1.Cells(1,6)).Value = _
  ws2.Range(ws2.Cells(1,4), ws2.Cells(1,6)).Value
于 2012-10-30T13:32:10.200 に答える