将行号存储为variables

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

我创build了一个可用的范围，但我不知道如何创buildvariablesrowMax这是列中的最大值的行号。 有任何想法吗？？ 谢谢

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