【VBA】excel宏

<pre name="code" class="vb">Sub 批量计算()
Dim a, i As Integer
For a = 1 To 80
    Cells(a, 6) = "" 
    Cells(a, 7) = "" 
    Cells(a, 8) = ""
Next
For i = 1 To 80 
    Cells(i, 6) = Mid(Cells(i, 1), 5, 5) 
    Cells(i, 7) = Cells(i, 2) + Cells(i + 1, 2) 
    Cells(i, 8) = Cells(i, 4) + Cells(i + 1, 4) 
    i = i + 1
Next
End Sub

Sub 删除空行()
For i = 1 To 80
    If Cells(i, 1) = "" Then
        Rows(i).Delete
    End If
Next
End Sub

Sub 变成M()
For i = 1 To 40
    Cells(i, 2) = Cells(i, 2) / 1000000
    Cells(i, 3) = Cells(i, 3) / 1000000
Next
End Sub

Sub 最后一步()
Dim a, b As Integer
For i = 3 To 43
    a = Mid(Cells(i, 2), 5, 5)
    For b = 3 To 42
        If Cells(b, 19) = a Then
            Cells(i, 16) = Cells(b, 20)
            Cells(i, 17) = Cells(b, 21)
            Cells(i, 18) = Cells(i, 17) / Cells(i, 16) * 100
            Cells(i, 18) = Cells(i, 18) & "%"
        End If
    Next
Next
End Sub