EXCEL异常下限确定.docx

文档介绍：Option Base 1
Sub 剔除平加 3 离差 ()
Dim i As Long
Dim j As Long
Dim y As Long
Dim n As Long ' 个数计数
Dim myarray(1 To 39)
Dim ys As Long ' 分析元素的个数
Dim jz As Double ' 均值
Dim licha As Double '离差
Dim MYRANGE As Range ' 选择区域
Dim TCSSJ As Double ' 剔除数上界限
Dim TCSXJ As Double ' 剔除数下界限
Dim TCGS As Double ' 剔除数的个数
Dim M1 As Double
Dim MH1 As Double
Dim M2 As Double
Dim MH2 As Double
Dim haha As Variant
ys = 39 ' 分析 39 种元素
myarray(1) = "E"
myarray(2) = "F"
myarray(3) = "G"
myarray(4) = "H"
myarray(5) = "I"
myarray(6) = "J"
myarray(7) = "K"
myarray(8) = "L"
myarray(9) = "M"
myarray(10) = "N"
myarray(11) = "O"
myarray(12) = "P"
myarray(13) = "Q"
myarray(14) = "R"
myarray(15) = "S"
myarray(16) = "T"
myarray(17) = "U"
myarray(18) = "V"
myarray(19) = "W"
myarray(20) = "X"
myarray(21) = "Y"
myarray(22) = "Z"
myarray(23) = "AA"
myarray(24) = "AB"
myarray(25) = "AC"
myarray(26) = "AD"
myarray(27) = "AE"
myarray(28) = "AF"
myarray(29) = "AG"
myarray(30) = "AH"
myarray(31) = "AI"
myarray(32) = "AJ"
myarray(33) = "AK"
myarray(34) = "AL"
myarray(35) = "AM"
myarray(36) = "AN"
myarray(37) = "AO"
myarray(38) = "AP"
myarray(39) = "AQ"
y = Sheets(4).Range("e20000").End(xlUp).Row - 1 ' 样品总数量
For ii = 1 To ys Step 1
i=2
Set MYRANGE = Sheets(4).Range(myarray(ii) & "2:" & myarray(ii) & y + 1)
jz = (MYRANGE)
licha =