|
いつも勉強させて頂いております。
質問があります。
下のように書かれてあるシートがあります。
A B C
1 1200 300 (=B1/A1)
2 1500 200 (=B2/A2)
3 1400 180 (=B3/A3)
4 1500 260
5 合計1 合計2 合計2/合計1
A1〜A4までの合計を次のセルA5に、B1〜B4までの合計を次のセルB5に表示します。
C1にはB1/A1の値が入っています。
Sub 合計 ()
Dim row1 As Long
Dim row2 As Long
row1=worksheets("Sheet1").Range("A65536").End(xlUp).Row
worksheets("Sheet1").Range("A" & row1 +1).Formula="=SUM(A1:A4)"
row2=worksheets("Sheet1").Range("B65536").End(xlUp).Row
worksheets("Sheet1").Range("B" & row2 +1).Formula="=SUM(B1:B4)"
End sub
これを少し変化させたいのです・・・
今は行4つ分のレコードしかありませんが
行5、行6・・とどんどんレコードが増えた場合に
このコードでは対応できなくなってしまいます。
行5にレコードが増えた場合、行6に合計を表示させたいと思っています。
行6までレコードが増えた場合、行7に合計を表示させたいのです。
そこで
SUM(A1:A4)のところをSUM(A1,A1.End(xlDown))と変えてみたのですが
#NAME?とセルに出てしまいます。
何かよいヒントを頂けますでしょうか?
お願いします。
|
|