Question

我使用下面的vba公式来插入新的行保持公式，因为它在A1行中。

Sub move_and_delete_rows()
Dim i As Long
    For i = 2 To Worksheets.Count
        With Worksheets(i)
            With .Range("A1")
                .Offset(1, 0).EntireRow.Insert
                .CurrentRegion.Copy
            End With
            .Range("A2").PasteSpecial Paste:=xlPasteValues
            .Range("A21").EntireRow.Delete
        End With
    Next i
End Sub

以上配方工作正常。但它应该在J列没有插入行之后插入从列A到列J的行。

Answer 1

1）如果你想插入整行但是只复制10个单元从A1到J1，那么代替这一行：

.CurrentRegion.Copy

试试这一行：

.Resize(1,10).Copy

2）但是，如果您只想在范围A1:j1 范围内插入10个单元格，则不要使用此行：

.Offset(1, 0).EntireRow.Insert

试试这一行：

.Offset(1,0).Resize(1,10).Insert

如果要复制和插入10个单元格，可以将两个选项组合。

插入第一行空白

1 个答案: