创建Vba宏以查找最大值偏移并粘贴

Question

需要帮助编写一些VBA代码才能找到最大值

我想找到第10行中的最大值，然后偏移到具有价格的第一行。例如，在第10行中，最大值为360，价格为30.

所以vba代码应找到行中的最大值，然后偏移到相关价格。然后应将价格粘贴到第一张纸上（在第B列 - 第10天的票价）

我想为第10行到第0行循环此过程

请帮忙

代码的逻辑如下，但我不知道如何编写语法

Dim i as Integer
For i = 10 to 1
 Select row of day i
 Search each cell from minimum price to maximum price;
 If cell = maximum profit then
  Use offset function offset (i - 11) to go up to find the price
  Copy price and paste into the Price of ticket row on sheet1. 
 Else
  Nothing
 End If
Next i
MsgBox “Optimum profits  have been generated”

谢谢