将行号存储为变量

Question

我必须将公式应用于从第1行到最大值所在行的列。因此，如果在A列中最大值是第8行，我需要将公式应用于A1：A8。

我创建了一个可行的变量范围，但我不知道如何创建变量rowMax，它是列中最大值的行号。有任何想法吗？？感谢

Dim rowMax As Long
rowMax = ??????    
Dim TMaxRange As Range
Set TMaxRange = Range("A1:A" & rowMax)

Answer 1

使用Application.WorkSheetFunction.Match()和Application.WorkSheetFunction.Max()

With Application.WorksheetFunction    
    rowMax = .Match(.Max(ActiveSheet.Range("A:A")),ActiveSheet.Range("A:A"),0)
End With