|
初めまして。
既存のシートAがあるとします。シートAのデータを以下のよう処理したいとおもいますが、処理方法はわからなくて、投稿しました。
シートA
識別 商品 数量
A1 あいうえお 10
・
・
A7
B1
・
・
B14
・
・
シートB
識別 商品 数量
A1 あいうえお 10
・
・
A7
B1
・
・
B14
Aグループ ΣA1〜A7
Bグループ ΣB1〜B14
Excelマクロ自動記録を使って、以下のコードを得ました。
A、B、・・・要素の個数が不定数であり、その制御はできないです。
Sub Macro2()
Range("A1:C22").Select
Selection.Copy
Sheets("B").Select
Cells.Select
ActiveSheet.Paste
Range("C23").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = "=SUM(R[-21]C:R[-15]C)"
Range("C24").Select
ActiveCell.FormulaR1C1 = "=SUM(R[-15]C:R[-2]C)"
Range("B23").Select
ActiveCell.FormulaR1C1 = "Aグループ"
Range("B24").Select
ActiveCell.FormulaR1C1 = "Bグループ"
Range("B25").Select
End Sub
|
|