![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
シート上の表に…
![シート上の表](https://excel-vba.work/wp-content/uploads/2023/05/vba_add_total_row_001.png)
![](https://excel-vba.work/wp-content/themes/cocoon-master/images/b-woman.png)
集計行を追加できます!
![集計行を追加](https://excel-vba.work/wp-content/uploads/2023/05/vba_add_total_row_002.png)
VBAコード
ここでは例として、
・シート「sample」上の表に
・集計行を追加
します。
![シート「sample」上の表](https://excel-vba.work/wp-content/uploads/2023/05/vba_add_total_row_001.png)
Option Explicit
Sub sample()
Dim ws As Worksheet
Dim startRange As Range
Dim table As ListObject
'対象シート
Set ws = Worksheets("sample")
'表の一番左上のセル
Set startRange = ws.Range("B2")
'表をテーブル化してListObjectを取得
Set table = ws.listObjects.Add(Source:=startRange.CurrentRegion, XlListObjectHasHeaders:=xlYes)
'集計行を表示
table.ShowTotals = True
'テーブル化を解除
With table
.TableStyle = ""
.Unlist
End With
End Sub
実行結果
表に集計行を追加できました。
![実行結果](https://excel-vba.work/wp-content/uploads/2023/05/vba_add_total_row_002.png)
参考①
上記のVBAコードは以下の記事を参考にして作成しました。
●シート上の表をテーブル化する
●シート上の表のテーブル化を解除する
参考②
上記で使用した以下の詳細は、公式サイトをご確認ください。
●「ListObjectオブジェクト」の「ShowTotals」プロパティ