EXCEL VB自定义宏对worksheet简单计算

第一个

Sub Test()
Dim i As Integer

For j = 2 To 20
numerator = Cells(j, 3)
s = 0

targerID = Cells(j, 2)
For i = 2 To 20
If Cells(i, 2) = targerID Then
s = s + Cells(i, 3)

End If
Next i

Cells(j, 4) = numerator / s
Next j
End Sub

第二个

Sub Test()
Dim i As Integer
s = 0
For i = 2 To 10
s = Cells(i, 4) + Cells(i, 2)
Cells(i, 6) = s
If s = 2 And (Cells(i, 4) <> Cells(i, 2)) Then
Cells(i, 6) = 2
ElseIf s = 2 And (Cells(i, 4) = Cells(i, 2)) Then
Cells(i, 6) = 5
ElseIf s = 4 Then
Cells(i, 6) = 3
ElseIf s = 3 Then
Cells(i, 6) = 4
End If
Next i
End Sub