=LOOKUP(MAX(A1:J1)，A1:J1，COLUMN(A1:J1))
VBA碼補充如下，請參考~
子aa()
Dim h，I為整數
H = InputBox("請輸入要查找最大值的行號")
對於i = 1到100 '假設有100列數據。
如果單元格(h，I)>那麽max1
max1 = Cells(h，I)
max2 = i
如果…就會結束
接下來我
MsgBox("第壹個" &；h & amp”行中最大的數字是“&；max2 & amp“列”)
末端接頭
裏面有負數嗎？呃，這個代碼不是負數