|
どなたかご教示下さい、よろしくお願いします。
行数が不定の表で、ある列の集計をその列の最下行に出すのに以下のコードを書きましたが、もっとスマートな方法をどなたか教えて下さい。
A列 B列 C列 D列 E列
チェック 品種 数量 ケース数 入数
つがる 280 3 60
ふじ 570 8 80
スター 480 12 40
合 計 1330 23 ← この行を出す
Dim Adr1 As String
Dim Adr2 As String
'--- C列の集計
Adr1 = ActiveSheet.Range("C4").Address
Adr2 = ActiveSheet.Range("C65536").End(xlUp).Address
ActiveSheet.Range("B65536").End(xlUp).Offset(1, 0).Value = "合 計"
ActiveSheet.Range("C65536").End(xlUp).Offset(1, 0).Formula = "=SUM(" + Adr1 + ":" + Adr2 + ")"
'--- D列の集計(数式が入っている為、C列で最下行を見つけている)
Adr1 = ActiveSheet.Range("D4").Address
Adr2 = ActiveSheet.Range("C65536").End(xlUp).Offset(-1, 1).Address
ActiveSheet.Range("C65536").End(xlUp).Offset(0, 1).Formula = "=SUM(" + Adr1 + ":" + Adr2 + ")"
|
|