【VBA視頻合集】Word VBA教程 Excel VBA教程 WordVBA教
2023-02-27 16:03 作者:嚕啦啦嚕啦啦嚕啦嚕啦嘞cai | 我要投稿
最后一個(gè)案例講復(fù)雜了，這個(gè)代碼好理解↓
Sub a()
Dim i, arr
i = Application.WorksheetFunction.CountA(Columns(1)) - 1
ReDim arr(1 To i)
For j = LBound(arr) To UBound(arr)
??arr(j) = Range("B" & j + 1) * Range("C" & j + 1)
Next
Range("H3") = Application.WorksheetFunction.Max(arr)
k = Application.WorksheetFunction.Match(Range("H3").Value, arr, 0)
[H2] = Range("A" & k + 1)
End Sub
標(biāo)簽：
