tv1:=ref(v,2)<ma(v,5);tv2:=cross(c,ma(c,5)) and v>=ma(v,5);tv3:=ma(c,5)<ref(ma(c,5),1) and ma(c,10)<ref(ma(c,10),1);xg:tv1 and tv2 and tv3;仅供参考,希望能够帮助您,顺祝马年投资顺利!
1楼所述,vlookup就能搞定 如果强行要用vba的话,代码也不会很多的 翻译按钮 'a列一番下 dim maxline as long maxline=cells(rows.count,1).end(xlup).row '検索缲り返し dim i as long for i=3 to maxline if trim(cells(i,1))<>""and trim(cells(i,3...