哪兒看院校代碼排名 excel vba 成績排名的代碼 我要求用第J列的總分的排...

因為前段時間主要是申請美國的Ph.D，所以以下都是美國的學校：
金融專業(yè)排名 學校名 代碼
2. 芝加哥大學(布斯商學院) University of Chicago (Booth) Chicago, IL 1832
3. 紐約大學(斯特恩商學院) New York University (Stern) New York, NY 2586
4. 哥倫比亞大學 Columbia University New York, NY 2141
5. 斯坦福大學 Stanford University Stanford, CA 4704
23. 俄亥俄州立大學(菲舍爾商學院) Ohio State University (Fisher) Columbus, OH 1592
23. 澤維爾大學(威廉斯商學院) Xavier University (Williams) Cincinnati, OH
25. 馬里蘭大學帕克分校(羅伯特史密斯商學院) University of Maryland--College Park (Smith) College Park, MD 5814

按80可顯示滬深A股綜合排名。但滬深漲幅排名沒有。只能按61顯示滬市漲幅排名，按63顯示深市漲幅排名。
顧名思義，漲幅就是股票漲跌的幅度，如果一只股票開盤10元的股票，當天收盤的時候漲幅為5%，也就是說收盤價=10*（1+5%）=10.5元；如果收盤的時候跌幅為5%，收盤價=10*（1-5%）=9.5元。
目前A股普通股每日的漲跌幅最高為上下10%，ST股每日漲跌幅為上下5%。新股與重組等特殊情況除外

java實現(xiàn)的簡單猜數(shù)字游戲代碼,通過隨機數(shù)與邏輯判斷來實現(xiàn)游戲功能
代碼如下：

import java.util.InputMi*atchException;

import java.util.Scanner;
public class Main {

public static void main(String[] args) {

// 產(chǎn)生一個隨機數(shù)

int number = (int) (Math.random() * 100) + 1;
// 加入count

int count = 0;
// 在這里加入最大值，和最小值

int max = 100;

int min = 1;
while (true) {

// 鍵盤錄入數(shù)據(jù)

Scanner sc = new Scanner(System.in);

System.out.println("請輸入你要猜的數(shù)據(jù)：(" + min + "~" + max + ")");

try {

count++;

int guessNumber = sc.nextInt();

// 判斷

if (guessNumber > number) {

max = guessNumber;

System.out.println("你猜大了");

} else if (guessNumber < number) {

min = guessNumber;

System.out.println("你猜小了");

} else {

System.out.println("恭喜你,花了" + count + "次就猜中了");

// 問是否繼續(xù)

System.out.println("請問還要繼續(xù)嗎？(yes)");

sc = new Scanner(System.in);

String str = sc.nextLine();

if ("yes".equals(str)) {

// 重寫賦值隨機數(shù)

number = (int) (Math.random() * 100) + 1;

count = 0;

max = 100;

min = 1;

} else {

break;

}

}

} catch (InputMi*atchException e) {

System.out.println("你輸入的數(shù)據(jù)有誤");

}

}

}

}

廣西車牌號城市字母是桂，廣西各地車牌代碼是：
桂A是南寧、桂B(yǎng)是柳州、桂C是桂林、桂D是梧州、桂E是北海、桂F是崇左、桂G是來賓、桂H是桂林荔浦增補、桂J是賀州、桂K是玉林、桂L是百色、桂M是河池、桂N是欽州、桂P是防城港、桂R是貴港。
目前廣西車牌還沒有用到26個字母。正常來說，首府城市對應字母A，所以廣西的首府南寧就是桂A。

這個問題似乎用函數(shù)就很方便解決了,如第一行為標題,數(shù)據(jù)從第二行到第100行.
在K2輸入公式
=RANK(J2,$J$2:$J$100)
公式下拉完成
如果一定要用宏來處理
代碼如下
Sub 排名()
Dim arr, x&, y&, i&
arr = Range("J2:J7")
For x = 1 To UBound(arr)
i = UBound(arr)
For y = 1 To UBound(arr)
If arr(x, 1) >= arr(y, 1) And x <> y Then i = i - 1
Next y
Cells(x + 1, "K") = i
Next x
End Sub