评价总分:0.205 0.32 0.39 0.085
排序名次: 3    2    1    4如上面的那样,比较玩评价总分大小后,在正下方显示排序,但他们的位置不可以改变的,就显示排序的名次。
具体代码怎么样?求教~~~~

解决方案 »

  1.   

    '下面的算法,想法简单,效率不高~~~~
    '假设数据在sheet1的第一行
    with thisworkbook.worksheets("sheet1")
        for i=1 to n 'n为要比较的元素的个数
             t=n
             for j=i+1 to n
                if .cells(1,j).value>.cells(1,i).value then
                   t=t-1
               endif
            next j
            .cells(2,i).value=t
         next i
    end with