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

时间:2019-03-22 11:42:21

标签: excel vba

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

不是这个公式很好用,但是我需要新行仅在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

1 个答案:

答案 0 :(得分:0)

修改并尝试以下操作之一:

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