行番号を変数として格納

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