1，对标准差进行排序，排完序后选中所有标准差小于0的行，进行删除。
2，筛选，对标准差进行筛选，选出所有小于0的，进行删除。
3，编写代码
sub delete()
'
dim n%
for n=2 to activesheet.usedrange.rows.count 'n从2开始是因为首行为标题行
if activesheet.range("列名"& n).value < 0 then
rows(n).delete
else
endif
next n
end sub
内容全部来源于网络收集，如有侵权，请联系网站删除！