哪儿看院校代码排名 excel vba 成绩排名的代码 我要求用第J列的总分的排...

因为前段时间主要是申请美国的Ph.D，所以以下都是美国的学校：
金融专业排名 学校名 代码
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实现的简单猜数字游戏代码,通过随机数与逻辑判断来实现游戏功能
代码如下：

import java.util.InputMismatchException;

import java.util.Scanner;
public class Main {

public static void main(String[] args) {

// 产生一个随机数

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

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

int max = 100;

int min = 1;
while (true) {

// 键盘录入数据

Scanner sc = new Scanner(System.in);

System.out.println("请输入你要猜的数据：(" + 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 + "次就猜中了");

// 问是否继续

System.out.println("请问还要继续吗？(yes)");

sc = new Scanner(System.in);

String str = sc.nextLine();

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

// 重写赋值随机数

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

count = 0;

max = 100;

min = 1;

} else {

break;

}

}

} catch (InputMismatchException e) {

System.out.println("你输入的数据有误");

}

}

}

}

广西车牌号城市字母是桂，广西各地车牌代码是：
桂A是南宁、桂B是柳州、桂C是桂林、桂D是梧州、桂E是北海、桂F是崇左、桂G是来宾、桂H是桂林荔浦增补、桂J是贺州、桂K是玉林、桂L是百色、桂M是河池、桂N是钦州、桂P是防城港、桂R是贵港。
目前广西车牌还没有用到26个字母。正常来说，首府城市对应字母A，所以广西的首府南宁就是桂A。

这个问题似乎用函数就很方便解决了,如第一行为标题,数据从第二行到第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