#141　2013年（平成25年）大阪府産業連関表における最終需要部門の推計（その１）

2022年9月5日 2022年9月5日

宮崎稔也

前回の投稿（#140）までで、2013年（平成25年）大阪府産業連関表における生産額、粗付加価値額、中間投入額を推計してきました。

今回の投稿から、最終需要部門の推計に移ります。

最終需要部門の推計

（１）家計外消費支出（列）

推計方法の確認

総額は、粗付加価値部門の家計外消費支出（行）の行和と同額である。内訳額は、全国延長表の家計外消費支出（列）の構成比を用いて配分して推計した。

大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用

タテ（列）方向で部門統合

投稿#140にて、全国延長表（基本分類）を統合小分類（190部門）に統合しました。

その際、最初にタテ（列）方向で部門統合を行ったのですが、最終需要部門で統合するのを忘れていたので、ここで行うことにします。

最終需要部門におけるタテ（列）方向での部門統合を行うVBAのコードは、以下のようになります。

Sub 列方向部門統合()
    Dim WsOrg As Worksheet      '転記元ワークシート
    Dim WsDes As Worksheet      '転記先ワークシート
    Dim i As Integer            'カウンタ変数
    Dim OrgRow As Integer       'カウンタ変数
    Dim DesRow As Integer       'カウンタ変数
    Dim code4d As String        '4桁コード
    Dim sum As Long             '中間投入額の合計
    Const FirstColumn = 399     '開始列番号
    Const LastColumn = 428      '最終列番号
    Const OrgFirstRow = 3       '転記元開始行番号
    Const OrgLastRow = 518      '転記元終了行番号
    Const DesFirstRow = 3       '転記先開始行番号
    Const DesLastRow = 192      '転記先終了行番号
    Const CodeColumn = 1        'code列番号

    Set WsOrg = Workbooks("H25全国延長表統合.ods").Worksheets("基本分類")
    Set WsDes = Workbooks("H25全国延長表統合.ods").Worksheets("列方向統合")

    For i = FirstColumn To LastColumn
        OrgRow = 3
        DesRow = 3
        Do While DesRow <= DesLastRow
            code4d = WsDes.Cells(DesRow, CodeColumn).Value
            sum = 0
            Do While WsOrg.Cells(OrgRow, CodeColumn).Value Like code4d & "[0-9][0-9][0-9]"
                sum = sum + WsOrg.Cells(OrgRow, i).Value
                OrgRow = OrgRow + 1
            Loop
            WsDes.Cells(DesRow, i) = sum
            DesRow = DesRow + 1
        Loop
    Next
End Sub

家計外消費支出（列）の内訳額の推計

家計外消費支出（列）の内訳額を推計するVBAのコードは、以下のようになります。

Sub 内訳額推計()
    Dim WsOrg As Worksheet      '転記元ワークシート
    Dim WsDes As Worksheet      '転記先ワークシート
    Dim i As Integer            'カウンタ変数
    Dim j As Integer            'カウンタ変数
    Dim total As Long           '家計外消費支出（列）の行和
    Dim sum As Long             '家計外消費支出（列）の列和
    Dim tmp As Long             '家計外消費支出（列）の内訳額
    Dim ratio As Double         '家計外消費支出（列）の構成比
    Const FirstRow = 3          '開始行番号
    Const LastRow = 192         '最終行番号
    Const OrgObjColumn = 399    '転記元家計外消費支出列番号
    Const DesObjColumn = 194    '転記先家計外消費支出列番号
    Const TotalRow = 193        '家計外消費支出（列）の列和列番号

    Set WsOrg = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("列方向統合")
    Set WsDes = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("家計外消費支出（列）推計") 

    total = WsDes.Cells(TotalRow, DesObjColumn)
    sum = WsOrg.Cells(TotalRow, OrgObjColumn)
    For i = FirstRow to LastRow
        tmp = WsOrg.Cells(i, OrgObjColumn)
        ratio = tmp / sum
        WsDes.Cells(i, DesObjColumn) = total * ratio
    Next
End Sub

（２）家計消費支出

推計方法の確認

総額は、下式により求めた。
内訳額の推計方法は、家計外消費支出（列）と同様である

$$
全国延長表の家計消費支出額 × \frac{府民経済計算の家計最終消費支出額}{国民経済計算の家計最終消費支出額}\
$$
大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用

家計消費支出の総額の推計

国民経済計算の家計最終消費支出額は、内閣府「2020年度国民経済計算（2015年基準・2008SNA）」における「フロー編」の「5. 付表(11) 家計の形態別最終消費支出の構成」での名目の値を利用しました。

府民経済計算の家計最終消費支出額は、大阪府総務部統計課「2020年度国民経済計算（2015年基準・2008SNA）」における「第２編　統計表（平成18年度から平成30年度）」の「２主要系列表 (5)府内総生産（支出側：名目）」の平成24年度と平成25年度の値から暦年換算することで推計しました。

家計消費支出の内訳額の推計

内訳額の推計方法は、（１）家計外消費支出（列）と同様なので、推計するVBAのコードは割愛します。

対家計民間非営利団体消費支出

推計方法

大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」には推計方法の記載がありませんでした。

今回は、（２）家計消費支出と同様の方法で推計していきます。
まず、総額を下式より求めます。
$$
全国延長表の対家計民間非営利団体消費支出額 × \frac{府民経済計算の対家計民間非営利団体最終消費支出額}{国民経済計算の対家計民間非営利団体最終消費支出額}\
$$

内訳額は、家計外消費支出（列）と同様の方法で推計します。

実際の推計

国民経済計算の対家計民間非営利団体最終消費支出額は、内閣府「2020年度国民経済計算（2015年基準・2008SNA）」における「フロー編」の「5. 付表(13) 対家計民間非営利団体の目的別最終消費支出」の名目の平成24年度と平成25年度の値から暦年換算することで推計しました。

府民経済計算の対家計民間非営利団体最終消費支出額は、大阪府総務部統計課「2020年度国民経済計算（2015年基準・2008SNA）」における「第２編　統計表（平成18年度から平成30年度）」の「２主要系列表 (5)府内総生産（支出側：名目）」の平成24年度と平成25年度の値から暦年換算することで推計しました。

（３）一般政府消費支出

推計方法の確認

総額は、下式により求めた額から下記（４）の社会資本減耗分を引いた額である。
内訳額の推計方法は、家計外消費支出（列）と同様である。

$$
全国延長表の一般政府消費支出額 × \frac{府民経済計算の政府最終消費支出額}{国民経済計算の政府最終消費支出額}\
$$

（４）一般政府消費支出（社会資本減耗分）
粗付加価値部門の資本減耗引当（社会資本減耗分）と同額である。

大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用

一般政府消費支出の部門統合

上述の（１）家計外消費支出（列）において、全国延長表（基本分類）をタテ（列）方向に統合小分類（部門数190）で部門統合を行いました。

この表では一般政府消費支出が以下のような分類に分かれているので、統合を行います。

731101 中央政府集合的消費支出
731102 地方政府集合的消費支出
731103 中央政府個別的消費支出
731104 地方政府個別的消費支出

一般政府消費支出の統合を行うVBAのコードは、以下のようになります。

Sub 行方向部門統合()
    Dim WsOrg As Worksheet      '転記元ワークシート
    Dim WsDes As Worksheet      '転記先ワークシート
    Dim sum As Long             '行和
    Dim i As Integer            'カウンタ変数
    Dim j As Integer            'カウンタ変数
    Const FirstRow = 3          '開始行番号
    Const LastRow = 193         '最終行番号
    Const FirstColumn = 402     '開始列番号
    Const LastColumn = 405      '終了列番号
    Const DesObjColumn = 402    '転記先列番号

    Set WsOrg = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("全国延長表列方向統合")
    Set WsDes = Workbooks("最終需要推計シート_平成25年大阪府産業連関表.ods").Worksheets("全国延長表一般政府消費支出統合")

    For i = FirstRow To LastRow
        sum = 0
        For j = FirstColumn To LastColumn
            sum = sum + WsOrg.Cells(i, j)
        Next
        WsDes.Cells(i, DesObjColumn) = sum
    Next
End Sub

一般政府消費支出の総額の推計

国民経済計算の一般政府最終消費支出額は、内閣府「2020年度国民経済計算（2015年基準・2008SNA）」における「フロー編」の「5. 付表(6-1) 一般政府の部門別勘定」の名目の平成24年度と平成25年度の値から暦年換算することで推計しました。

府民経済計算の一般政府最終消費支出額は、大阪府総務部統計課「2020年度国民経済計算（2015年基準・2008SNA）」における「第２編　統計表（平成18年度から平成30年度）」の「２主要系列表 (5)府内総生産（支出側：名目）」の平成24年度と平成25年度の値から暦年換算することで推計しました。

一般政府消費支出の内訳額の推計

内訳額の推計方法は、（１）家計外消費支出（列）と同様なので、推計するVBAのコードは割愛します。

（５）府内総固定資本形成（公的、民間）の推計

推計方法の確認

総額は、下式より求めた。
内訳額の推計方法は、家計外消費支出（列）と同様である。

$$
全国延長表の国内総固定資本形成額 × \frac{府民経済計算の府内総固定資本形成額}{国民経済計算の国内総固定資本形成額}\
$$

大阪府総務部統計課「平成25年（2013年）大阪府産業連関表（延長表）報告書」より引用

府内総固定資本形成（公的、民間）の推計

国民経済計算の国内総固定資本形成（公的、民間）は、内閣府「2020年度国民経済計算（2015年基準・2008SNA）」における「フロー編」の「5. 付表(15) 民間・公的別の総資本形成」の名目の平成24年度と平成25年度の値から暦年換算することで推計しました。

府民経済計算の府内総固定資本形成（公的、民間）は、大阪府総務部統計課「2020年度国民経済計算（2015年基準・2008SNA）」における「第２編　統計表（平成18年度から平成30年度）」の「２主要系列表 (5)府内総生産（支出側：名目）」の平成24年度と平成25年度の値から暦年換算することで推計しました。