Dim nrow作為整數
將nn標註為整數
將I標註為整數
Dim sumall As Single
將nplus標註為整數
Dim sumplus為Single
將溫度調成單壹值
Dim st As Long
Dim en壹樣長
i = 2
溫度= 0
st =範圍(" a2 ")
Do While單元格(I，4)& lt；& gt""
如果Cells(i，4) = "buy "，則temp = temp-Cells(i，5)
如果Cells(i，4) = "sell "，則temp = temp+Cells(i，5)
如果(Cells(i，4) =“買入”)和(Cells(i+1，4) =“賣出”)，那麽_
en = Range(" a " & amp；(i + 1))
If (Cells(i，4) = "sell ")和((Cells(i+1，4)= " buy))_
Or (Cells(i + 1，4) = " ")然後
Cells(i，10)= ST & amp；“-”& amp；（構成動詞）表示“使處於…狀態”
ST = Range(" a " & amp；(i + 1))
單元格(I，11) = temp
溫度= 0
如果…就會結束
i = i + 1
環
nrow = Range("k65536 ")。結束(xlUp)。排
If(工作表函數。最大(範圍(" k2 "，" k " & ampnrow))& gt；0)然後
範圍(" m2") =工作表函數。最大(範圍(" k2 "，" k " & ampnrow))
否則:範圍(" m2") = 0
如果…就會結束
If(工作表函數。最小(範圍(" k2 "，" k " & ampnrow))& lt；0)然後
範圍(" m3") =工作表函數。最小(範圍(" k2 "，" k " & ampnrow))
否則:範圍(" m2") = 0
如果…就會結束
sumall =工作表功能。Sum(Range("k2 "，" k " & ampnrow))
範圍(" m4") = sumall
nn =工作表功能。CountA(Range("k2 "，" k " & ampnrow))
對於i = 2至nrow
if(Range(" k " & amp；I)>0)然後
nplus = nplus + 1
sumplus = sumplus+Range(" k " & amp；我)
如果…就會結束
接下來我
Range("m5") = sumplus / nn
範圍(" M6 ")=(sumall-sumplus)/(nn-nplus)
範圍(" m7") = sumplus / nplus
末端接頭