|
▼マエ/ケン さん:
> 行合計=Price×GroupTotal(Sheet1の5行目から最終行まで)
> 列合計=ΣPrice×Group01 (Sheet1の5行目から最終行まで)
こんなふうにしても数式セットできると思います。
Sub Try1()
Dim m&, n&
Dim c As Range
Dim r As Range
m = Application.Match("GroupTotal", Rows(4), 0)
If IsError(m) Then Exit Sub
m = m - 4
Set c = Range("C5", Range("C4").End(xlDown))
n = c.Count
Set r = Range("E5").Resize(n, m) '[E5]セルを基点に n行×m列の範囲
r.Columns(m + 1).FormulaR1C1 = "=RC[-" & m + 2 & "]*RC[-1]"
r.Rows(n + 1).Formula = "=Sumproduct(" & c.Address(1, 1, xlA1) _
& "," & c.Offset(, 2).Address(0, 0, xlA1) & ")"
End Sub
|
|