在已选定区域中剔除部分单元格

kevinhee

请高手指教：
需求：
1、先选定第一列中大于0的单元格区域
2、在第1步的结果中剔除值最大的单元格，形成最后区域
第1步我已完成，请教第2步

excelvlookup

sub aa()
rw=sheet1.cells(rows.count,1).end(3).row+1
ar=sheet1.range("a1:a"&rw)
a=0
for i=1 to ubound(ar)-1
  if ar(i,1)>0 then
    if ar(i,1)>a then
      b=ar(ubound(ar),1)
      ar(ubound(ar),1)=ar(i,1)
      a=ar(i,1)
    else
      b=ar(i,1)
    end if
   if b<>"" then n=n+1:ar(n,1)=b
  end if
next
if n>0 then sheet1.range("b1").resize(n,1)=ar
end sub
没有测试，请自已测试