2011-10-21 15 views
0

数値の列と数式を含む1つのファイル(ブック1)があります。私はBook 1からBook 2、Book 3などのセルにその合計をコピーする必要があります。私は数式をコピーして移動します。1つのExcelファイルから別のExcelファイルに合計をコピーする

Sub CopyInfo() 
    experiment1.Range("F7").Value = experiment2.Range("I5").Value 
    experiment1.Range("F7").Copy 
    experiment2.Range("I5").Paste 
    Application.CutCopyMode = False 
End Sub 

私は "experiment2" に "experiment1" からコピーしようとしています。

+0

は、あなたの実際のコードを投稿することができますか? – isJustMe

+0

私はそれを私の質問に入れます。 – Jillian

+0

@吉林:このコードはexpt2:I5から値をコピーして、それをもう一度貼り直すようです。それは意図されていますか? ** expt1.Range( "I5")。Value = expt2.Range( "F7")。値** –

答えて

2

代わりペーストの、このようPasteSpecialを使用します。

experiment2.Range("I5").PasteSpecial xlPasteValues 

これは代わりに、式の計算値を貼り付けます。あなたが持っているでしょうので

+0

ありがとうございます。私はそれが私が行方不明だった些細なものであることを知っていた。 :) – Jillian

0

は、過去の特別の操作を行います。

dim wkb1 as workbook, wkb2 as workbook 
Dim r1 as range, r2 as range 

set wkb1=workbooks("wkb1") 
set wkb2=workbooks("wkb2") 
set r1=wkb1.worksheets("whatever").range("A1") 
set r2=wkb2.worksheets("whatever2").range("A1") 
r1.copy 
r2.PasteSpecial xlPasteValues 
+0

あなたが好きな答えに+1をつけて、あなたの質問に最もよく答えると答えた人に答えてください。私たちのポイントが好きです:) – Jon49

+0

悲しいことに、私はまだ物事を投票するのに十分な評判はありません。私はそれが役に立つとマークしました。 :) – Jillian

関連する問題