| |
▼kanabun さん：
ご返信ありがとうございます。
20列は連続していないのですが1番目の方法を使わせていただきました。
勉強になります。
>▼makira さん：
>>の合計していく部分を
>>ループさせる？あるいはまとめる方法を教えてください。
>
>そのままをまとめると、こういうことをしているのですよね？
>Sub kensaku()
> Dim R As Range
> Dim t2, t4, t6
>
> For Each R In Worksheets(2).[A1:A20]
> If R.Value = 132 Then
> If R(1, 31).Value = "あああ" Then
> t2 = t2 + R(1, 14).Value
> t4 = t4 + R(1, 15).Value
> t6 = t6 + R(1, 16).Value
> Worksheets(3).[A3].Resize(, 3).Value = Array(t2, t4, t6)
> End If
> End If
> Next
>End Sub
>
>>今、3列のそれぞれの合計だけを書いているのですが
>>実際は20列分のそれぞれの合計を出す必要があり
>>何か策はないかと検討中です。
>
>その20列というのは 連続した列ですか？
>もしそうで、かつ、ループしないことが目的ならば、
>加算貼り付けという手があります。
>
>Sub kensaku2()
> Dim R As Range
>
> For Each R In Worksheets(2).[A1:A20]
> If R.Value = 132 Then
> If R(1, 31).Value = "あああ" Then
> R.Range("N1:P1").Copy
> Worksheets(3).[A3].PasteSpecial xlPasteValues, xlAdd
> End If
> End If
> Next
>End Sub
|
|
makira
- 08/7/30(水) 21:46 -
