VBA基於最大列值插入空白行

Question

如何在A列中指定的最大值以下插入空行？這是我搜索其他人的帖子時可以拼湊出來的最好的選擇。

Dim i As Range 
Dim cell As Range 
    Set i = Range("A:A") 
    For Each cell In i.Cells 
If cell.Value = Max(i) Then 
    cell.Offset(1).EntireRow.Insert 
End If 

Answer 1

Dim MaxRow As Double 
    MaxRow = Application.Match(Application.Max(Range("a:a")), Range("a:a"), 0) 
     Cells(MaxRow + 1, 1).EntireRow.Insert 

Answer 2

您可以使用工作表函數匹配最大值，然後將位置向下移動一行並插入。

Sub xcv() 
    With ActiveSheet 
     .Rows(Application.Match(Application.Max(.Columns(1)), .Columns(1), 0) + 1).EntireRow.Insert 
    End With 
End Sub