EXCEL统计问题，关于体重统计
ALT+F11，打开VBA编辑器，插入模块，复制粘贴以下代码，F5运行，结果显示在A11—A16中。
子tj()
将I，j，x，y表示为字节
将a、b、c、d、e、f标注为单个
范围(“k:p”)。清楚的
对于i = 2到8
x = 0
y = 0
对于j = 3到10
if Int(j/2)& lt；& gtj / 2和单元格(I，j)& lt；& gt”“那么
x = x + 1
其他
如果Int(j / 2) = j / 2且Cells(i，j)& lt；& gt”“那么
y = y + 1
如果…就会结束
如果…就会结束
然后
如果x = 0且y = 0，则
Cells(i，Asc(Cells(i，2)) - 54) = 1
如果…就会结束
如果x = 1且y = 0，则
单元格(I，Asc(单元格(I，2)) - 54) = 0.5
对于j = 3到10
if Int(j/2)& lt；& gtj / 2和单元格(I，j)& lt；& gt”“那么
Cells(i，Asc(Cells(i，j)) - 54) = Cells(i，Asc(Cells(i，j)) - 54) + 0.5
如果…就会结束
然后
如果…就会结束
如果x & gt1，那么y = 0
单元格(I，Asc(单元格(I，2)) - 54) = 0.3
对于j = 3到10
if Int(j/2)& lt；& gtj / 2和单元格(I，j)& lt；& gt”“那么
Cells(i，Asc(Cells(i，j)) - 54) = Cells(i，Asc(Cells(i，j)) - 54) + 0.7 / x
如果…就会结束
然后
如果…就会结束
如果x = 0且y & gt= 1然后
单元格(I，Asc(单元格(I，2)) - 54) = 0.6
对于j = 3到10
如果Int(j / 2) = j / 2且Cells(i，j)& lt；& gt”“那么
Cells(i，Asc(Cells(i，j)) - 54) = Cells(i，Asc(Cells(i，j)) - 54) + 0.4 / y
如果…就会结束
然后
如果…就会结束
如果x = 1且y & gt= 1然后
单元格(I，Asc(单元格(I，2)) - 54) = 0.3
对于j = 3到10
if Int(j/2)& lt；& gtj / 2和单元格(I，j)& lt；& gt”“那么
Cells(i，Asc(Cells(i，j)) - 54) = Cells(i，Asc(Cells(i，j)) - 54) + 0.6
其他
如果Int(j / 2) = j / 2且Cells(i，j)& lt；& gt”“那么
Cells(i，Asc(Cells(i，j)) - 54) = Cells(i，Asc(Cells(i，j)) - 54) + 0.1 / y
如果…就会结束
如果…就会结束
然后
如果…就会结束
如果x & gt1和y & gt那么1
单元格(I，Asc(单元格(I，2)) - 54) = 0.2
对于j = 3到10
if Int(j/2)& lt；& gtj / 2和单元格(I，j)& lt；& gt”“那么
Cells(i，Asc(Cells(i，j)) - 54) = Cells(i，Asc(Cells(i，j)) - 54) + 0.7 / x
其他
如果Int(j / 2) = j / 2且Cells(i，j)& lt；& gt”“那么
Cells(i，Asc(Cells(i，j)) - 54) = Cells(i，Asc(Cells(i，j)) - 54) + 0.1 / y
如果…就会结束
如果…就会结束
然后
如果…就会结束
然后
a =应用。WorksheetFunction.Sum(范围(" k:k "))
b =应用。工作表Function.Sum(范围(" l:l "))
c =应用。WorksheetFunction.Sum(范围(" m:m "))
d =应用。工作表Function.Sum(范围(" n:n "))
e =应用。工作表Function.Sum(范围(" o:o "))
f =应用。WorksheetFunction.Sum(范围(" p:p "))
范围(“k:p”)。清楚的
Cells(11，1)= " A = " & amp；格式(a，“0.00”)
Cells(12，1)= " B = " & amp；格式(b，“0.00”)
Cells(13，1)= " C = " & amp；格式(c，“0.00”)
Cells(14，1)= " D = " & amp；格式(d，“0.00”)
Cells(15，1)= " E = " & amp；格式(例如，“0.00”)
Cells(16，1)= " F = " & amp；格式(f，“0.00”)
末端接头