将命名范围扩展1行

Question

如何在命名范围的末尾向命名范围插入1行？ 然后，命名范围应具有2行，并且行应向下移动，但是，不是在命名范围的开头，而是在结尾。 我试过了，但是没用：

ASheet.Range(Me.Name).Resize(2).Insert Shift:=xlDown
ASheet.Range(Me.Name).End(xlDown).Insert Shift:=xlDown

替代测试：

Range("B17:D17").Name = "test"
Range("test").Resize(2).Insert Shift:=xlDown

我在想的是，如果我应该在命名范围下面插入一行，然后扩展名称范围...假设您不能在1个命名范围内插入一行。

Answer 1

我认为这是解决方案之一...但是需要重命名命名范围。

Range("B17:D17").Name = "test"
Range("test").Rows(2).Insert Shift:=xlDown
Range("B17:D18").Name = "test"