### 1*SUM(i) 開源社區

w 算法優化

Cells(i, "Y") + Cells(i, "Z") * 0.2 多計算了一次

```Sub 訂單利潤()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Select Case Cells(i, "C")
Cells(i, "AA") = 0
Case Is = FBA_W_Fee And W_Deal_Fee And Service_Fee
Cells(i, "AA") = Range(Cells(i, "V"))
Case Is = Order
If Cells(i, "X") = "" Then
Cells(i, "AA") = 0
Else
Cells(i, "AA") = Range(Cells(i, "Z")) - Range(Cells(i, "Y")) * Range(Cells(i, "G"))
End If
Case Is = Refund
If (Range(Cells(i, "Y")) + Range(Cells(i, "Z"))) * 0.1234 < 0 Then
Cells(i, "AA") = (Range(Cells(i, "Y")) + Range(Cells(i, "Z"))) * 0.1234
Else
Cells(i, "AA") = 0
End If
Case Is = Transfer
Cells(i, "AA") = 0
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤0()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Cells(i, "AA") = 1000
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤1()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Select Case Cells(i, "C")
Cells(i, "AA") = 12
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤2()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Cells(i, "AA") = 0
Select Case Cells(i, "C")
Cells(i, "AA") = 12
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤3()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Cells(i, "AA") = 0
Select Case Cells(i, "C")
Cells(i, "AA") = 12
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤4()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Cells(i, "AA") = 0
Select Case Cells(i, "C")
Cells(i, "AA") = Cells(i, "V")
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤5()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Cells(i, "AA") = 0
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee"
Cells(i, "AA") = Cells(i, "V")
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤6()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Cells(i, "AA") = 0
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "W Deal Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Service Fee"
Cells(i, "AA") = Cells(i, "V")
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤7()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Cells(i, "AA") = 0
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "W Deal Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Service Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Order"
If Not IsError(Cells(i, "X")) Then
Cells(i, "AA") = Cells(i, "Z") - Cells(i, "Y") * Cells(i, "G")
End If
Case Is = "Refund"
If Cells(i, "Y") + Cells(i, "Z") * 0.1234 < 0 Then
Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
End If
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤8()
Dim Adjustment, FBA_W_Fee, W_Deal_Fee, Order, Refund, Service_Fee, Transfer As Integer, i As Integer
i = 2
Do
Cells(i, "AA") = 0
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee", "W Deal Fee", "Service Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Order"
If Not IsError(Cells(i, "X")) Then
Cells(i, "AA") = Cells(i, "Z") - Cells(i, "Y") * Cells(i, "G")
End If
Case Is = "Refund"
If Cells(i, "Y") + Cells(i, "Z") * 0.1234 < 0 Then
Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
End If
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub

Sub 訂單利潤9()
Dim i As Integer
i = 2
Do
Cells(i, "AA") = 0
Select Case Cells(i, "C")
Case Is = "FBA Inventory Fee", "W Deal Fee", "Service Fee"
Cells(i, "AA") = Cells(i, "V")
Case Is = "Order"
If Not IsError(Cells(i, "X")) Then
Cells(i, "AA") = Cells(i, "Z") - Cells(i, "Y") * Cells(i, "G")
End If
Case Is = "Refund"
If Cells(i, "Y") + Cells(i, "Z") * 0.1234 < 0 Then
Cells(i, "AA") = Cells(i, "Y") + Cells(i, "Z") * 0.1234
End If
End Select
i = i + 1
Loop Until Cells(i, "C") = ""
End Sub```