#50　物量表からH17年岩手県重量単価[初期値]を推計

2021年11月11日 2021年11月11日

宮崎稔也

今回は、産業連関物量表（以下、「物量表」）のデータを整理していきます。

物量表には、以下のようにデータが記載されています。

行部門ごとに、列コード999900（TOTAL）がある行に数量と金額の合計値が記載されています。また、数量単位の記載がないのに注意ですね。

この行部門ごとに、列コード999900（TOTAL）がある行を、ワークシート「H17基本分類物量表」に転記していくプログラムを作成しました。

Sub 物量表データ転記()
    Dim wsOrg As Worksheet  ' 転記元ワークシート
    Dim wsDes As Worksheet  ' 転記先ワークシート
    Dim i As Long           ' カウンター変数
    Dim rw As Long          ' 行番号カウンター変数

    set wsOrg = Workbooks("H17物量表.ods").Worksheets("H17物量表（基本）")
    set wsDes = Workbooks("H17物量表.ods").Worksheets("H17基本分類物量表")    
    rw = 2
    For i = 3 To Rows.Count
        If wsOrg.Cells(i, 3).Value = "999900" Then  ' TOTALにさし当たったときの処理 
                wsDes.Cells(rw, 1).Value = wsOrg.Cells(i, 1).Value
                wsDes.Cells(rw, 2).Value = wsOrg.Cells(i, 2).Value
                wsDes.Cells(rw, 3).Value = wsOrg.Cells(i-1, 7).Value
                wsDes.Cells(rw, 4).Value = wsOrg.Cells(i, 8).Value
                wsDes.Cells(rw, 5).Value = wsOrg.Cells(i, 9).Value
                rw = rw + 1
        End If
    Next    
End Sub

実行結果は以下のようになります。

物量表に重量が記載されている品目の重量単価[初期値]の推計

物量表のデータを整理できたので、重量単価[初期値]を推計していきます。

まず、結合小分類のワークシートすべてに対して、産業内製品の生産単位が[t]の製品の重量と生産額を積み上げて、重量単価[初期値]を推計します。

つまり、先日投稿した、下記の1),2)の方法に則って推計を行っていきます。

1）産業内製品の生産単位が全て[t]または[g],[kg]の場合、[g],[kg]は[t]に変換して算出します。算出式は以下のようになります。

Ux = Mx / Tx　　　(2.1)
Ux : x産業の重量単価[円/t]
Mx : x産業の総生産額[円]
Tx : x産業の総生産量[t]

2）産業内製品の生産単位の一部が[t]または[g],[kg]の場合、その一部のみを用いて1）と同じように推計しました。

https://note.com/embed/notes/n3453198d0e1a