excel2007シート間でのコピーについて

質問

excelでシート間でのコピーを実行したいのですが、上手くいきません。
質問文中にわかりにくい点があるかとは思いますが宜しくお願いします。

シート1(シート名"ds1_1")のO17をシート51(シート名"sheet51")のC1に
シート2(シート名"ds1_2")のO17をシート51のC2に
といった作業をシート1～50まで繰り返し実行したいです。

またそれぞれのシートでのO17の値はそのシートでのO4:O15の和となっており下記のように
入力されております。
=SUM(O4:O15)

そのような状態で下記のようなVBAを実行したところ
sheet51のC列の各セルには
#REF!
と表示され、その入力内容は
1行目から13行目までは
=SUM(#REF!)
14行目から50行目までは
=SUM(C1:C12)
=SUM(C2:C13)
…
=SUM(C37:C48)
のようになっています。

解決法について教えて頂きたいです。
よろしくお願いします。

Sub Macro9()
'
' Macro9 Macro

Dim i As Integer
For i = 1 To 50
With Sheets("ds1_" & i).Select
Range("O17").Select
Selection.Copy
With Sheets("sheet51").Select
Range("C" & i).Select
ActiveSheet.Paste
End With
End With
Next i
End Sub

回答No.1

MackyNo1 · ベストアンサー

数式で貼り付けるのではなく以下のように値で代入してください。

For i = 1 To 50
Sheets("sheet51").Range("C" & i).Value = Sheets("ds1_" & i).Range("O17").Value
Next i

お礼

上手く実行することができました。
ありがとうございました。

回答No.3

mu2011

各シートの対象セルを全てペーストしているのだからエクセルが数式を自己解釈して貼り付けしています。
ご例示のコードが良く分かりませんので、以下のサンプルコードを参考にして下さい。

Sub sample()
For i = 1 To 50
Sheets("ds1_" & i).Range("O17").Copy
Sheets("sheet51").Range("C" & i).PasteSpecial Paste:=xlValues
Next
End Sub

お礼

ご回答ありがとうございました。
今後活用させて頂きたいと思います。

回答No.2

hananoppo

次のようなマクロでどうでしょう。

Sub Macro9()
Dim i As Integer

For i = 1 To 50
Worksheets("sheet51").Range("C" & i).Formula = "=ds1_" & i & "!O17"
Next i
End Sub

お礼

ご回答ありがとうございます。
参考になりました。