Question

我有一个带有“插入行”按钮的Excel工作表。

我已将模板工作表分为三部分范围（财务，运营，技术），每个范围现在由两行组成。当用户插入行（用户可以一次插入任意多行）时，所有这些行都应插入到用户当前所在的范围内。

因此，基本上，它正在调整大小。但是无法找到适用于我不同范围范围的通用代码。

有没有一种方法可以使用Excel工作表中的名称管理器定义动态范围，并使当前代码可以使用它？请帮忙。

enter code here
 Sub Insert_rows()

Dim xCount As Integer
LableNumber:
xCount = Application.InputBox("Number of Rows", "Kutools for Excel", , , , , , 1)
If xCount < 1 Then
    MsgBox "the entered number of rows is error, please enter again", vbInformation, "Kutools for Excel"
    'GoTo LableNumber
End If

ActiveCell.EntireRow.Copy
Range(ActiveCell, ActiveCell.Offset(xCount - 1, 0)).EntireRow.Insert Shift:=xlDown
Range(ActiveCell.Offset(1, 0), ActiveCell.Offset(xCount, 0)).EntireRow.Validation.Delete
Application.CutCopyMode = False

End Sub

在插入行时动态扩展范围

0 个答案: