| |
いつも勉強させて頂いております。
質問があります。
下のように書かれてあるシートがあります。
A B C
１ 1200 300 （=B1/A1）
２ 1500 200 （=B2/A2）
３ 1400 180 （=B3/A3）
４ 1500 260
５ 合計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
これを少し変化させたいのです・・・
今は行４つ分のレコードしかありませんが
行５、行6・・とどんどんレコードが増えた場合に
このコードでは対応できなくなってしまいます。
行５にレコードが増えた場合、行６に合計を表示させたいと思っています。
行６までレコードが増えた場合、行７に合計を表示させたいのです。
そこで
SUM(A1:A4)のところをSUM(A1,A1.End(xlDown))と変えてみたのですが
＃NAME？とセルに出てしまいます。
何かよいヒントを頂けますでしょうか？
お願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
