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

您可以使用工作表函数匹配最大值，然后将位置向下移动一行并插入。

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

Answer 2

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

VBA根据最大列值插入空行

2 个答案: