我需要修改此代码,或者如果有人可以给我写一个更高效的代码。
不是这个公式很好用,但是我需要新行仅在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
答案 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