エクセル インデックスを用いた串刺し計算

例えば　sheetが10枚で　"A1"　の値を合計するマクロで11枚目のsheetの　"A3"に表示させるのに
下記のようにすると出来ましたが、これを短く記述する方法を教えてください、よろしくお願いします。
Range("a3").value=Worksheets(1).Range("a1").valur + Worksheets(2).Range("a1").value +
Worksheets(3).Range("a1").value + ・・・・・・・Worksheets(10).Range("a1").value

No.2 ベストアンサー 回答者： nao-y 回答日時： 2012/05/24 16:54

#1の方がおっしゃっている

> 又は、For　～　Nextで繰り返し処理を行う。
を実現なさりたいということですね。

例えば、以下のコードでできると思います。

Dim i as Long
Dim Kei as Long

Kei = 0
For i = 1 To 10
Kei = Kei + Worksheets(i).Range("A1").Value
Next
Range("A3").Value=Kei

この回答へのお礼

ありがとうございました。シート枚数が多いものですから大変助かりました。

お礼日時：2012/05/24 17:10

No.1 回答者： mu2011 回答日時： 2012/05/24 14:02

一例です。

Range("A3").Value = Evaluate("sum(sheet1:sheet10!A1)")
又は、For　～　Nextで繰り返し処理を行う。

この回答への補足

ありがとうございます、質問が不備でした、シートには各々(シート名)があります。
又、シート名は変更されます、そのためインデックス番号での集計をしています。
よろしくお願いします。

補足日時：2012/05/24 16:10