用于将行插入活动单元格下方的指定列范围的宏

Posted 2021-05-07

我需要修改这段代码，或者如果有人可以给我写一个效率更高的代码。

不是这个公式很好用，但我需要新行只插入A到F列。

原因是，我有从H3到K36的数据/报告表需要保留并且不能用新行修改。

Sub InsertRow()    
    If ActiveCell.Column = 1 Then

        Dim numCopies As Long
        numCopies = 1

        Dim i As Long
        For i = 1 To numCopies
            Rows(ActiveCell.Row + 1).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
        Next i

        ActiveCell.AutoFill Destination:=Range(ActiveCell, ActiveCell.Offset(numCopies, 0)), Type:=xlFillDefault
    End If
End Sub

答案

修改并尝试以下其中一项：

Option Explicit

Sub test()

    With ThisWorkbook.Worksheets("Sheet1")
        .Range("A1").EntireRow.Insert ' <- Insert a row at row 1
        .Rows("1:3").EntireRow.Insert ' <- Insert 3 rows from 1
    End With

End Sub