【VBA视频合集】Word VBA教程 Excel VBA教程 WordVBA教

最后一个案例讲复杂了，这个代码好理解↓

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