江湖救急：将下列代码改成vb代码

Sub 常压塔物料衡算()
Sheet2.Range("D7:D8").Value = Sheet1.Range("C14:C15").Value
Sheet2.Range("D9").Value = Sheet1.Range("C18").Value
Sheet2.Range("D10").Value = Sheet1.Range("C38").Value
Sheet2.Range("D11:D16").Value = Sheet1.Range("C40:C45").Value
Sheet2.Range("G7:G15").Value = Sheet1.Range("C19:C27").Value
Sheet2.Range("G16").Value = Sheet1.Range("C39").Value
Sheet2.Range("D17").Formula = "=Sum(D7:D16)"
Sheet2.Range("G17").Formula = "=Sum(G7:G16)"
Dim Count As Integer
Dim Sum As Double
Sum = 0
Count = 7
While Count <= 9
Sum = Sum + Sheet2.Cells(Count, 4)
Count = Count + 1
End While
Count = 7
While Count <= 9
If Sheet2.Cells(Count, 4) = 0 Then
Sheet2.Cells(Count, 3) = 0
Else
Sheet2.Cells(Count, 3) = Sheet2.Cells(Count, 4) / Sum * 100
Sheet2.Cells(Count, 3) = Format(Sheet2.Cells(Count, 3), "#####.##")
End If
Count = Count + 1
End While
Sheet2.Range("C10:C16").Value = 0
Sheet2.Cells(17, 3) = Sum / Sum * 100
Sheet2.Cells(17, 3) = Format(Sheet2.Cells(17, 3), "#####.##")
Sum = 0
Count = 7
While Count <= 15
Sum = Sum + Sheet2.Cells(Count, 4)
Count = Count + 1
End While
Count = 7
While Count <= 15
If Sheet2.Cells(Count, 7) = 0 Then
Sheet2.Cells(Count, 6) = 0
Else
Sheet2.Cells(Count, 6) = Sheet2.Cells(Count, 7) / Sum * 100
Sheet2.Cells(Count, 6) = Format(Sheet2.Cells(Count, 6), "#####.##")
End If
Count = Count + 1
End While
Sheet2.Range("F16").Value = 0
Sheet2.Cells(17, 6) = Sum / Sum * 100
Sheet2.Cells(17, 6) = Format(Sheet2.Cells(17, 3), "#####.##")
End Sub
Sub 全装置物料衡算()
'入方赋值
'原油
If Sheet1.Cells(5, 3) <> 0 Then
Sheet12.Cells(7, 4) = Sheet1.Cells(5, 3)
Else
Sheet12.Cells(7, 4) = Sheet1.Cells(5, 12)
End If
'合计
Sheet12.Cells(22, 4) = Sheet12.Cells(7, 4)
'比例
Sheet12.Cells(7, 3) = Sheet12.Cells(7, 4) / Sheet12.Cells(22, 4) * 100
Sheet12.Cells(7, 3) = Format(Sheet12.Cells(7, 3), "#####.##")
Sheet12.Cells(22, 3) = Sheet12.Cells(22, 4) / Sheet12.Cells(22, 4) * 100
Sheet12.Cells(22, 3) = Format(Sheet12.Cells(22, 3), "#####.##")
'出方赋值
Sheet12.Range("g7:g13").Value = Sheet1.Range("c19:c25").Value
Sheet12.Range("g14:g21").Value = Sheet1.Range("c74:c81").Value
'合计
Sheet12.Range("g22").Formula = "=sum(g7:g21)"
'比例
Count = 7
While Count <= 22
Sheet12.Cells(Count, 6) = Sheet12.Cells(Count, 7) / Sheet12.Cells(22, 7) * 100
If Sheet12.Cells(Count, 6) <> 0 Then
Sheet12.Cells(Count, 6) = Format(Sheet12.Cells(Count, 6), "#####.##")
End If
Count = Count + 1
End While
'常压塔拔出率
Sheet12.Range("f23").Formula = "=sum(f8:f13)"
Sheet12.Range("f24").Formula = "=sum(f15:f20)"
Sheet12.Range("g23").Formula = "=sum(g8:g13)"
Sheet12.Range("g24").Formula = "=sum(g15:g20)"
End Sub
小白急求……用的visual studio编的……急求