Excel宏的制作问题， 复制：列选A列至B列，行选B列单元格第一个最大值所在的行？请高手指教

Question

A B
鸡 2
鸭 2
鹅 5
牛 6
羊 6
马 6
这里应该选第四行【牛 6】
【复制：列选A列至B列，行选B列单元格第一个最大值所在的行】是我一系列程序中的一部分，函数能找到第一个最大值所在的行，但不能复制，

Answer 1

无需编制宏，用函数即可。在C1单元格内输入：
=MATCH(MAX(B:B),B:B,0)
即可算出第一个最大值所在的行

用宏实现也可以，代码如下：
Sub tty()
Max1 = Application.WorksheetFunction.Max(Range("B:B")) '找第一个最大值
rw = Application.WorksheetFunction.Match(Max1, Range("B:B"), 0) ''找第一个最大值所在的行
Cells(rw, 1).EntireRow.Interior.ColorIndex = 3 '标注颜色
End Sub