VBAでの集計方法について

質問

今、あるプログラムを作成していますが、合計の出し方が分かりません。

B列に数値が並んでおり、その最終行に合計を入れたいのです。更にそのセルの上辺に二重線を付けたいのですが、困っています。
ただし、列に並ぶ数はその時によって変化します。

どなたか、詳しい方教えていただければ幸いです。

回答No.2

vvooo · ベストアンサー

シート１のB1～最終行まで合計します
Sub Test()
Dim WS As Worksheet
Dim Lrow As Long
Set WS = Worksheets("Sheet1")
Lrow = WS.Range("B" & CStr(Rows.Count)).End(xlUp).Row
With WS.Range("B" & CStr(Lrow)).Offset(1, 0)
　　　.Borders(xlEdgeTop).LineStyle = xlDouble
　　　.Value = _
　　　　　WorksheetFunction.Sum(WS.Range("B1:B" & CStr(Lrow)))
End With
End Sub

回答No.1

imogasi

合計する最上のセルは固定であることがほとんど。
問題は下の最終行をどのようにして捉えるか。
（１）１行ずつ聞いていって、空白行が見つかったらその前でやめる。
（２）ＥＮＤメソッドを使う
（３）ＵｓｅｄＲａｎｇｅやＣｕｒｒｅｎｔＲｅｇｉｏｎを使う
最近の回答では（２）が多い。
（Ａ）Ｂ２からＥＮＤキーを押し↓きー
（Ｂ）これ以下の行は使わないセルをぽいんつぃてから、Ｅｎｄキーを押し↑キー
（Ｂ）でやれば
Sub test01()
d = Range("B30").End(xlUp).Row
Cells(d + 1, "B").Formula = "=sum(B2:B" & d & ")"
'--罫線
Cells(d + 1, "B").Borders(xlEdgeTop).LineStyle = xlContinuous
Cells(d + 1, "B").Borders(xlEdgeTop).Weight = xlThick
Cells(d + 1, "B").Borders(xlEdgeTop).LineStyle = xlDouble
End Sub