|
皆さん、こんばんは。
>まずシート名ですが、200-001(相手先コード-取引番号)という規則をもっています。ex)200-001、200-002、200-003、201-001、300-001、300-001・・・
仮に集計するシートを「集計」というシート名だとすると
'==============================================================
Sub main()
Const 検索 = "200" '相手先コード---200で集計
Const セル範囲 = "$D$18:$D$30"
Const shukei = "集計" '集計するシート名
Worksheets(shukei).Range(セル範囲).Value = 0
For Each sht In Worksheets
If sht.Name Like 検索 & "-*" Then
Worksheets(shukei).Range(セル範囲).Value = _
Evaluate("'" & shukei & "'!" & セル範囲 & "+'" & _
sht.Name & "'!" & セル範囲)
End If
Next
End Sub
配列をつかいました
確認してみて下さい
|
|