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

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

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

行部門ごとに、列コード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）と同じように推計しました。

単位換算を用いて重量単価[初期値]を推計

分類コード0152（部門名：素材）

分類コード0152（部門名：素材）について、以前投稿した単位変換の表に換算値がありました。

なので、「素材」については単位換算値（0.5[t/m3])を用いて、重量単価[初期値]を推計します。

分類コード1121（部門名：酒類）

酒類については、物量表では生産単位がklで記載されているので、ここでは、単位換算値を（先述の表にはありませんでしたが）1.0[t/kl]と仮定して重量単価[初期値]を推計しました。