|
えっと、何をどうしたいのかとか趣旨が全く解っていませんけど....。
ピボットテーブルって使ったことありませんが、今まで色々な質問を見てきた感じでは、こういうのってピボットテーブルを使ったりしているみたいですけど....。
解らないなりに一応考えてみました。
グループ名は、グループ種をいちいち調べるのが、大変そうだったので(面倒)
グループXで、1〜3までとして、Sheet3に書き込んでいます。
マクロでなく手動で済んじゃう事なんですけど.....。
要望のものとは全く違うトンチンカンな事と思いますが、これ以上は解りません。
Sub nnmm()
She2BE = Sheets("Sheet2").Range("B65536").End(xlUp).Row
Sheets("Sheet2").Range("A1:B" & She2BE).Copy Sheets("Sheet3").Range("A2")
For i = 1 To 3
Cells(1, i + 2).Value = "グループ" & i
Next
Sheets("Sheet3").Range("C2", Cells(She2BE + 1, i + 1)).Formula = _
"=SUMPRODUCT((Sheet1!$A$2:$A$8=C$1)*(Sheet1!$C$2:$C$8=$A2)*(Sheet1!$D$2:$D$8))"
End Sub
|
|