|
Sub kensaku()
Dim hani As Range
Dim R As Range
Dim tl, tl2, tl3, tl4, tl5, tl6 As Variant
Set hani = Worksheets(2).Range(Cells(1, 1), Cells(20, 1))
For Each R In hani
If R.Value = 132 Then
If Worksheets(2).Cells(R.Row, 31) = "あああ" Then
tl = Worksheets(2).Cells(R.Row, 14)
tl2 = tl2 + tl
tl3 = Worksheets(2).Cells(R.Row, 15)
tl4 = tl4 + tl3
tl5 = Worksheets(2).Cells(R.Row, 16)
tl6 = tl6 + tl5
For i = 1 To 3
myarray = Array(tl2, tl4, tl6)
Worksheets(3).Cells(3, i) = myarray(i)
Next i
End If
End If
Next
End Sub
上記のように書いているのですが、
tl = Worksheets(2).Cells(R.Row, 14)
tl2 = tl2 + tl
tl3 = Worksheets(2).Cells(R.Row, 15)
tl4 = tl4 + tl3
tl5 = Worksheets(2).Cells(R.Row, 16)
tl6 = tl6 + tl5
の合計していく部分を
ループさせる?あるいはまとめる方法を教えてください。
今、3列のそれぞれの合計だけを書いているのですが
実際は20列分のそれぞれの合計を出す必要があり
何か策はないかと検討中です。
よろしくお願いします。
|
|